From a0c16be48f9f2678e766ce31b0b47f99ce893568 Mon Sep 17 00:00:00 2001 From: Jan D Date: Wed, 25 Aug 2010 08:53:55 +0200 Subject: [PATCH] * menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames. --- lisp/ChangeLog | 5 +++++ lisp/menu-bar.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ffbd38561f9..3537a8dd0ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-08-25 Jan Djärv + + * menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter + on all frames. + 2010-08-24 Vinicius Jose Latorre * whitespace.el: Allow cleaning up blanks without blank diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index ed5c189252b..98cb061cccb 100644 --- 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 -- 2.39.2