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