diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2010-09-21 09:01:22 +0200 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2010-09-21 09:01:22 +0200 |
| commit | 8cf1771a55661ee7957d460395df5fe6ffcc8d6b (patch) | |
| tree | 524cbe739e487a8e81ff773cfc1e6ca90f346276 /lisp/tool-bar.el | |
| parent | 48e24408d0048906c409aa8ce97eecdd0c48a790 (diff) | |
| download | emacs-8cf1771a55661ee7957d460395df5fe6ffcc8d6b.tar.gz | |
* tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
Diffstat (limited to 'lisp/tool-bar.el')
| -rw-r--r-- | lisp/tool-bar.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 98aaa8fe50a..4dedf3dfca5 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el @@ -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 |