mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(command-line): If frame was created with a non-zero

Browse source 
tool-bar-lines parameter, switch tool-bar-mode on.
This commit is contained in:
Gerd Moellmann 2000-09-21 18:38:53 +00:00
parent 80585273bd
commit 7d1eb6a4c0
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/startup.el
View file

@ -652,6 +652,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(> (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))