procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(command-line): Enable tool-bar-mode as long as it is not suppressed

Browse source 
by X resources, regardless of the terminal.
This commit is contained in:
Chong Yidong 2008-10-09 19:31:51 +00:00
parent f3af39b802
commit 008330eada
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/startup.el
View file

@ -898,14 +898,16 @@ opening the first frame (e.g. open a connection to an X server).")
(<= (frame-parameter nil 'menu-bar-lines) 0)))))
(menu-bar-mode 1))
;; If we run as a daemon or frame was created with a tool bar,
;; switch tool-bar-mode on.
(when (or (daemonp)
(not (or noninteractive
emacs-basic-display
(not (display-graphic-p))
(<= (frame-parameter nil 'tool-bar-lines) 0))))
(tool-bar-mode 1))
;; Enable tool-bar-mode if necessary. Note that we might enable it
;; even in tty frames, which means that there is a tool-bar if Emacs
;; later opens a graphical frame.
(unless (or noninteractive emacs-basic-display
;; The tool-bar-lines parameter is nil if starting on a
;; tty; it is 0 if starting on a graphical display with
;; the toolbar disabled via X resources.
(and (numberp (frame-parameter nil 'tool-bar-lines))
(<= (frame-parameter nil 'tool-bar-lines) 0)))
(tool-bar-mode 1))
;; Can't do this init in defcustom because the relevant variables
;; are not set.