(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/etc/NEWS b/etc/NEWS
index e32a9391356ecb9e666376770a7a96d0e5ee0376..434e22f20f82fac6cd66c8bb51c8e006a77ab4af 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -15,6 +15,10 @@ much pure storage it will approximately need.
 `${foo}' in the specified new value of the environment variable.  To
 include a `$' in the value, use `$$'.
 
+** New user option `inhibit-startup-buffer-menu'.
+When loading many files, for instance with `emacs *', Emacs normally
+displays a buffer menu.  This option turns the buffer menu off.
+
 \f
 * Lisp Changes in Emacs 21.2
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89c34984ca2e1035b010fd09da36c9b057f5bbc8..91141c3cd73642c874bfe1520f0d82c80a7e7326 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,14 @@
 2001-10-04  Gerd Moellmann  <gerd@gnu.org>
 
+       Added to NEWS.
+
+       * startup.el (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>.
+       
        This allows upto 99999 messages in the summary without screwing up
-       the summary.  Previously 9999 were the maximum.
+       the summary sorting.  Previously 9999 was the maximum.  Added
+       to NEWS.
        
        * mail/rmailsum.el (rmail-make-summary-line) 
        (rmail-make-summary-line-1, rmail-summary-next-same-subject) 

diff --git a/lisp/startup.el b/lisp/startup.el
index 45de4ea80a2809ddea11641c2b1864234aa25ce2..b12834a823a0c1546f0998aabfd042e7de6d94a1 100644 (file)
--- 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))))))