# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002273891 0
# Node ID c12d72aa46b9aa7dee8c72d0169b10e59c7413b6
# Parent  8f03c11f64eff31b9f3bcceefc91c8f7ea8f9c5b
(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 -r 8f03c11f64ef -r c12d72aa46b9 lisp/startup.el
--- a/lisp/startup.el	Fri Oct 05 09:24:20 2001 +0000
+++ b/lisp/startup.el	Fri Oct 05 09:24:51 2001 +0000
@@ -155,6 +155,11 @@
   :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 @@
       ;; 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))))))