Mercurial > emacs
changeset 109982:1c825c451dc0
* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames.
| author | Jan D <jan.h.d@swipnet.se> |
|---|---|
| date | Wed, 25 Aug 2010 08:53:55 +0200 |
| parents | 55e2c5cbf29c |
| children | a44dc3503539 2e817b887353 |
| files | lisp/ChangeLog lisp/menu-bar.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Aug 25 15:10:09 2010 +0900 +++ b/lisp/ChangeLog Wed Aug 25 08:53:55 2010 +0200 @@ -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
--- a/lisp/menu-bar.el Wed Aug 25 15:10:09 2010 +0900 +++ b/lisp/menu-bar.el Wed Aug 25 08:53:55 2010 +0200 @@ -970,7 +970,8 @@ (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