       (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

       (lambda () (setq testrun-functions (list ,@plist))))
     (add-hooks-pair modes fn-name)))

;;;###autoload
(defun testrun-all ()
  "Test all files using function from `testrun-functions'."
  (interactive)
  (let ((fn (plist-get testrun-functions :all)))
    (when (commandp fn) (call-interactively fn))))

;;;###autoload
(defun testrun-file ()
  "Test current file using function from `testrun-functions'."
  (interactive)
  (let ((fn (plist-get testrun-functions :file)))
    (when (commandp fn) (call-interactively fn))))

;;;###autoload
(defun testrun-at-point ()
  "Test definition at point using function from `testrun-functions'."
  (interactive)

;;;
;; Buffers

(defun kill-other-buffers ()
  "Kill all other buffers."
  (interactive)
