         (concat (string-remove-suffix test-suffix basename) "." extension)
       (concat basename test-suffix "." extension))))
 
-;;;### autoload
 (defun test-file (file-name)
   "The test file related to FILE-NAME."
   (if (test-file-p file-name)

      (when do-switch
        (switch-to-buffer-other-window buffer)))))

;;;### autoload
(defun get-buffer-display-time (buffer)
  "Get the display time for BUFFER."
  (with-current-buffer buffer

        (delq (current-buffer)
              (cl-remove-if-not 'buffer-file-name (buffer-list)))))

(defun switch-to-minibuffer ()
  "Switch to minibuffer window."
  (interactive)
