aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-09-21 18:38:53 +0000
committerGerd Moellmann2000-09-21 18:38:53 +0000
commit7d1eb6a4c09b9ca535e19aae43a221ee8916bbad (patch)
tree1e57327ff2ffb0ec1462e5e1592ac4e345a66bdf
parent80585273bd164c0eca43fc6225d43b326a9f27e2 (diff)
downloademacs-7d1eb6a4c09b9ca535e19aae43a221ee8916bbad.tar.gz
emacs-7d1eb6a4c09b9ca535e19aae43a221ee8916bbad.zip
(command-line): If frame was created with a non-zero
tool-bar-lines parameter, switch tool-bar-mode on.
-rw-r--r--lisp/startup.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el
index c1344f6f7b9..3353330a198 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -652,6 +652,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
652 (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))) 652 (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0)))
653 (menu-bar-mode t)) 653 (menu-bar-mode t))
654 654
655 ;; If frame was created with a tool bar, switch tool-bar-mode on.
656 (when (and (not noninteractive)
657 (memq window-system '(x w32))
658 (> (frame-parameter nil 'tool-bar-lines) 0))
659 (tool-bar-mode t))
660
655 ;; Can't do this init in defcustom because window-system isn't set. 661 ;; Can't do this init in defcustom because window-system isn't set.
656 (when (and (not noninteractive) 662 (when (and (not noninteractive)
657 (not (eq system-type 'ms-dos)) 663 (not (eq system-type 'ms-dos))