From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 5 Oct 2001 09:24:51 +0000 (+0000)
Subject: (inhibit-startup-buffer-menu): New user-option.
X-Git-Tag: ttn-vms-21-2-B4~19761
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=802a980a596407d8de800b26380944fd1303a366;p=emacs.git

(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>.
---

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))))))