comparison lisp/startup.el @ 39556:c12d72aa46b9

(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>.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Oct 2001 09:24:51 +0000
parents daf9a2765762
children d9591551229b
comparison
equal deleted inserted replaced
39555:8f03c11f64ef 39556:c12d72aa46b9
150 (string :tag "Enter your user name, to inhibit")) 150 (string :tag "Enter your user name, to inhibit"))
151 :group 'initialization) 151 :group 'initialization)
152 152
153 (defcustom inhibit-default-init nil 153 (defcustom inhibit-default-init nil
154 "*Non-nil inhibits loading the `default' library." 154 "*Non-nil inhibits loading the `default' library."
155 :type 'boolean
156 :group 'initialization)
157
158 (defcustom inhibit-startup-buffer-menu nil
159 "*Non-nil inhibits display of buffer list when more than 2 files are loaded."
155 :type 'boolean 160 :type 'boolean
156 :group 'initialization) 161 :group 'initialization)
157 162
158 (defvar command-switch-alist nil 163 (defvar command-switch-alist nil
159 "Alist of command-line switches. 164 "Alist of command-line switches.
1619 (setq column 0)))))))) 1624 (setq column 0))))))))
1620 ;; If 3 or more files visited, and not all visible, 1625 ;; If 3 or more files visited, and not all visible,
1621 ;; show user what they all are. But leave the last one current. 1626 ;; show user what they all are. But leave the last one current.
1622 (and (> file-count 2) 1627 (and (> file-count 2)
1623 (not noninteractive) 1628 (not noninteractive)
1629 (not inhibit-startup-buffer-menu)
1624 (or (get-buffer-window first-file-buffer) 1630 (or (get-buffer-window first-file-buffer)
1625 (list-buffers)))))) 1631 (list-buffers))))))
1626 1632
1627 1633
1628 (defun command-line-normalize-file-name (file) 1634 (defun command-line-normalize-file-name (file)