Mercurial > emacs
changeset 110455:c82718dcce89
* tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
author | Jan D. <jan.h.d@swipnet.se> |
---|---|
date | Tue, 21 Sep 2010 09:01:22 +0200 |
parents | 48428f365a8c |
children | 8d106071e2c8 |
files | lisp/ChangeLog lisp/tool-bar.el |
diffstat | 2 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 21 09:42:12 2010 +0300 +++ b/lisp/ChangeLog Tue Sep 21 09:01:22 2010 +0200 @@ -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)
--- a/lisp/tool-bar.el Tue Sep 21 09:42:12 2010 +0300 +++ b/lisp/tool-bar.el Tue Sep 21 09:01:22 2010 +0200 @@ -311,6 +311,23 @@ '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