Mercurial > emacs

diff lisp/menu-bar.el @ 110456:8d106071e2c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use tool-bar-position in menu Options/Show. * menu-bar.el (menu-bar-set-tool-bar-position): customize-set-variable tool-bar-position. Don't modify frame parameters here.
author Jan D. <jan.h.d@swipnet.se>
date Tue, 21 Sep 2010 09:31:01 +0200
parents 41bf9b6f3b91
children c7d5564f0621
line wrap: on
line diff
--- a/lisp/menu-bar.el	Tue Sep 21 09:01:22 2010 +0200
+++ b/lisp/menu-bar.el	Tue Sep 21 09:31:01 2010 +0200
@@ -691,7 +691,7 @@
 		   ;; Nonetheless, not saving it would like be confuse
 		   ;; more often.
 		   ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
-		   text-mode-hook))
+		   text-mode-hook tool-bar-position))
       (and (get elt 'customized-value)
 	   (customize-mark-to-save elt)
 	   (setq need-save t)))
@@ -981,13 +981,7 @@
 
 (defun menu-bar-set-tool-bar-position (position)
   (customize-set-variable 'tool-bar-mode t)
-  (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
-						 default-frame-alist))))
-
+  (customize-set-variable 'tool-bar-position position))
 (defun menu-bar-showhide-tool-bar-menu-customize-disable ()
   "Do not display tool bars."
   (interactive)
@@ -996,7 +990,6 @@
   "Display tool bars on the left side."
   (interactive)
   (menu-bar-set-tool-bar-position 'left))
-
 (defun menu-bar-showhide-tool-bar-menu-customize-enable-right ()
   "Display tool bars on the right side."
   (interactive)