mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(tool-bar-mode): Modify all frame parameters when

Browse Source 
toggling tool bars on.  (Bug#1754)
This commit is contained in:
Martin Rudalics 2009-01-10 09:51:28 +00:00
parent 707a78b298
commit fca863b816
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-01-10 Martin Rudalics <rudalics@gmx.at>
* tool-bar.el (tool-bar-mode): Modify all frame parameters when
toggling tool bars on. (Bug#1754)
2009-01-09 Chong Yidong <cyd@stupidchicken.com>
* faces.el (face-valid-attribute-values): Use string as value for

9
lisp/tool-bar.el
View File

@ -54,9 +54,12 @@ conveniently adding tool bar items."
:group 'frames
(if tool-bar-mode
(progn
(dolist (frame (frame-list))
(if (display-graphic-p frame)
(set-frame-parameter frame 'tool-bar-lines 1)))
;; Make one tool-bar-line for any - including non-graphical -
;; terminal, see Bug#1754. If this causes problems, we should
;; handle the problem in `modify-frame-parameters' or do not
;; call `modify-all-frames-parameters' when toggling the tool
;; bar off either.
(modify-all-frames-parameters (list (cons 'tool-bar-lines 1)))
(if (= 1 (length (default-value 'tool-bar-map))) ; not yet setup
(tool-bar-setup)))
(modify-all-frames-parameters (list (cons 'tool-bar-lines 0)))))