diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2010-09-21 09:31:01 +0200 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2010-09-21 09:31:01 +0200 |
| commit | 36a1b6dba765828d617d6e4481f04acd3f809ad1 (patch) | |
| tree | 0a1bc86a2eb2b2e54bf708674f4294822d996797 /lisp/menu-bar.el | |
| parent | 8cf1771a55661ee7957d460395df5fe6ffcc8d6b (diff) | |
| download | emacs-36a1b6dba765828d617d6e4481f04acd3f809ad1.tar.gz | |
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.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index d0a8653f95c..0659ae98717 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -691,7 +691,7 @@ by \"Save Options\" in Custom buffers.") ;; 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 @@ mail status in mode line")) (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 @@ mail status in mode line")) "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) |