(command-line-1): Don't run buffer-menu if in batch mode.

diff --git a/lisp/startup.el b/lisp/startup.el
index 9aceed403eab4635d855d6201227395b6ec1716b..68f857cde74fabcafecd8bf3f9e81298885bb640 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -947,10 +947,11 @@ Type \\[describe-distribution] for information on getting the latest version."))
                         (setq line 0))))))))
       ;; If 3 or more files visited, and not all visible,
       ;; show user what they all are.
-      (if (> file-count 2)
-         (or (get-buffer-window first-file-buffer)
-             (progn (other-window 1)
-                    (buffer-menu)))))))
+      (and (> file-count 2)
+          (not noninteractive)
+          (or (get-buffer-window first-file-buffer)
+              (progn (other-window 1)
+                     (buffer-menu)))))))
 
 (defun command-line-normalize-file-name (file)
   "Collapse multiple slashes to one, to handle non-Emacs file names."