diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-06 06:51:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-06 06:51:29 +0000 |
| commit | ac707ebc83ed4631adab5e3c8df3e8d37d671966 (patch) | |
| tree | 8bbc22b27b421321e1a6175400e229b3627b3425 /lisp/startup.el | |
| parent | 0dd96d4cbc6495d15002c073570fbc944962a7be (diff) | |
| download | emacs-ac707ebc83ed4631adab5e3c8df3e8d37d671966.tar.gz | |
(command-line-1): Don't run buffer-menu if in batch mode.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 9aceed403ea..68f857cde74 100644 --- 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." |