* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ffbd38561f919b47941627635c39841317a53b06..3537a8dd0ff0478828fc271b8d2485d29764fa7f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index ed5c189252bda1acee6d652a561f58d3678ddb14..98cb061cccb2d247e32bae0f02bbd89a01a052b0 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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