(mouse-choose-completion): New function.

[gnu-emacs] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index fa38680d41577928b7129e4d377e5107c2b6bd8b..49a423f8a7aeabd26ce95bdd6303b0bd69ebe50c 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -403,7 +403,7 @@ Type \\[describe-distribution] for information on getting the latest version."))
       ;; show user what they all are.
       (if (> file-count 2)
          (or (get-buffer-window first-file-buffer)
-             (progn (other-window)
+             (progn (other-window 1)
                     (buffer-menu)))))))
 
 ;;; startup.el ends here