diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:24:51 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:24:51 +0000 |
| commit | 802a980a596407d8de800b26380944fd1303a366 (patch) | |
| tree | 443d263e3421d77df6dd495b27457fa3027aaae6 /lisp/startup.el | |
| parent | 67085aba974c00f4895003e8cea7442a414ae00c (diff) | |
| download | emacs-802a980a596407d8de800b26380944fd1303a366.tar.gz | |
(inhibit-startup-buffer-menu): New user-option.
(command-line-1): If inhibit-startup-buffer-menu is set, don't
display the buffer menu. From Simon Josefsson <jas@extundo.com>.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 45de4ea80a2..b12834a823a 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -155,6 +155,11 @@ the startup message unless he personally acts to inhibit it." :type 'boolean :group 'initialization) +(defcustom inhibit-startup-buffer-menu nil + "*Non-nil inhibits display of buffer list when more than 2 files are loaded." + :type 'boolean + :group 'initialization) + (defvar command-switch-alist nil "Alist of command-line switches. Elements look like (SWITCH-STRING . HANDLER-FUNCTION). @@ -1621,6 +1626,7 @@ Type \\[describe-distribution] for information on getting the latest version.")) ;; show user what they all are. But leave the last one current. (and (> file-count 2) (not noninteractive) + (not inhibit-startup-buffer-menu) (or (get-buffer-window first-file-buffer) (list-buffers)))))) |