mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(tool-bar-mode): Only change tool-bar-lines on graphical terminals.

Browse Source 
(tool-bar-setup): No-op if called on a tty.
This commit is contained in:
Chong Yidong 2008-10-09 19:30:47 +00:00
parent a448e4167f
commit f3af39b802
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/tool-bar.el
View File

@ -52,12 +52,13 @@ conveniently adding tool bar items."
:global t
:group 'mouse
:group 'frames
(and (display-images-p)
(modify-all-frames-parameters (list (cons 'tool-bar-lines
(if tool-bar-mode 1 0))))
(if (and tool-bar-mode
(display-graphic-p))
(tool-bar-setup))))
(if tool-bar-mode
(progn
(dolist (frame (frame-list))
(if (display-graphic-p frame)
(set-frame-parameter frame 'tool-bar-lines 1)))
(tool-bar-setup))
(modify-all-frames-parameters (list (cons 'tool-bar-lines 0)))))
;;;###autoload
;; Used in the Show/Hide menu, to have the toggle reflect the current frame.
@ -257,10 +258,16 @@ holds a keymap."
;;; Set up some global items. Additions/deletions up for grabs.
(defvar tool-bar-setup nil
"Set to t if the tool-bar has been set up by `tool-bar-setup'.")
"Non-nil if the tool-bar has been set up by `tool-bar-setup'.")
(defun tool-bar-setup (&optional frame)
(unless tool-bar-setup
(unless (or tool-bar-setup
(null tool-bar-mode)
;; No-op if the initial frame is on a tty, deferring
;; action until called from x-create-frame-with-faces.
;; Tool-bar icons can depend on X settings, which are
;; initially unavailable in this case.
(not (display-graphic-p frame)))
(with-selected-frame (or frame (selected-frame))
;; People say it's bad to have EXIT on the tool bar, since users
;; might inadvertently click that button.