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

* tool-bar.el (tool-bar-position): New defcustom (Bug#7049).

Browse Source
This commit is contained in:
Jan Djärv 2010-09-21 09:01:22 +02:00
parent 48e24408d0
commit 8cf1771a55
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-09-21 Jan Djärv <jan.h.d@swipnet.se>
* tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
2010-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/reftex-parse.el (reftex-what-macro)

17
lisp/tool-bar.el
View File

@ -311,6 +311,23 @@ holds a keymap."
'help
:help "Pop up the Help menu")))
(if (featurep 'move-toolbar)
(defcustom tool-bar-position 'top
"Specify on which side the tool bar shall be.
Possible values are `top' (tool bar on top), `bottom' (tool bar at bottom),
`left' (tool bar on left) and `right' (tool bar on right).
Customize `tool-bar-mode' if you want to show or hide the tool bar."
:type '(choice (const top)
(const bottom)
(const left)
(const right))
:group 'frames
:initialize 'custom-initialize-default
:set (lambda (sym val)
(set-default sym val)
(modify-all-frames-parameters
(list (cons 'tool-bar-position val))))))
(provide 'tool-bar)
;; arch-tag: 15f30f0a-d0d7-4d50-bbb7-f48fd0c8582f