Mercurial > emacs
changeset 31823:4532598de5a9
(command-line): If frame was created with a non-zero
tool-bar-lines parameter, switch tool-bar-mode on.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 21 Sep 2000 18:38:53 +0000 |
| parents | 145e3a22d16c |
| children | b3295c7e7a60 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Sep 21 18:28:41 2000 +0000 +++ b/lisp/startup.el Thu Sep 21 18:38:53 2000 +0000 @@ -652,6 +652,12 @@ (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))) (menu-bar-mode t)) + ;; If frame was created with a tool bar, switch tool-bar-mode on. + (when (and (not noninteractive) + (memq window-system '(x w32)) + (> (frame-parameter nil 'tool-bar-lines) 0)) + (tool-bar-mode t)) + ;; Can't do this init in defcustom because window-system isn't set. (when (and (not noninteractive) (not (eq system-type 'ms-dos))