* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames.
This commit is contained in:
parent
9bbaf4b01d
commit
a0c16be48f
2 changed files with 7 additions and 1 deletions
|
@ -1,3 +1,8 @@
|
|||
2010-08-25 Jan Djärv <jan.h.d@swipnet.se>
|
||||
|
||||
* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter
|
||||
on all frames.
|
||||
|
||||
2010-08-24 Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
||||
|
||||
* whitespace.el: Allow cleaning up blanks without blank
|
||||
|
|
|
@ -970,7 +970,8 @@ mail status in mode line"))
|
|||
|
||||
(defun menu-bar-set-tool-bar-position (position)
|
||||
(customize-set-variable 'tool-bar-mode t)
|
||||
(set-frame-parameter nil 'tool-bar-position position)
|
||||
(dolist (frame (frame-list))
|
||||
(set-frame-parameter frame 'tool-bar-position position))
|
||||
(customize-set-variable 'default-frame-alist
|
||||
(cons (cons 'tool-bar-position position)
|
||||
(assq-delete-all 'tool-bar-position
|
||||
|
|
Loading…
Add table
Reference in a new issue