merge trunk

2c94aa8d · Kenichi Handa · 38cc06d9 · a0c16be4 · 2c94aa8d · 2c94aa8d
Commit 2c94aa8d authored Aug 25, 2010 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/menu-bar.el lisp/menu-bar.el +2 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,11 @@
 	* international/fontset.el (setup-default-fontset): Fix typo for
 	arabic OTF spec (fini->fina).
  
+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
+++ 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