mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

Use tool-bar-position in menu Options/Show.

Browse Source 
* menu-bar.el (menu-bar-set-tool-bar-position): customize-set-variable
tool-bar-position.  Don't modify frame parameters here.
This commit is contained in:
Jan Djärv 2010-09-21 09:31:01 +02:00
parent 8cf1771a55
commit 36a1b6dba7
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2010-09-21 Jan Djärv <jan.h.d@swipnet.se>
* menu-bar.el (menu-bar-set-tool-bar-position): customize-set-variable
tool-bar-position. Don't modify frame parameters here.
* tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
2010-09-20 Stefan Monnier <monnier@iro.umontreal.ca>

11
lisp/menu-bar.el
View File

@ -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)