[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101517: * tool-bar.el (tool-bar-posi
From: |
Jan D. |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101517: * tool-bar.el (tool-bar-position): New defcustom (Bug#7049). |
Date: |
Tue, 21 Sep 2010 09:01:22 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101517
committer: Jan D. <address@hidden>
branch nick: trunk
timestamp: Tue 2010-09-21 09:01:22 +0200
message:
* tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
modified:
lisp/ChangeLog
lisp/tool-bar.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-09-20 22:42:47 +0000
+++ b/lisp/ChangeLog 2010-09-21 07:01:22 +0000
@@ -1,3 +1,7 @@
+2010-09-21 Jan Djärv <address@hidden>
+
+ * tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
+
2010-09-20 Stefan Monnier <address@hidden>
* textmodes/reftex-parse.el (reftex-what-macro)
=== modified file 'lisp/tool-bar.el'
--- a/lisp/tool-bar.el 2010-08-29 16:17:13 +0000
+++ b/lisp/tool-bar.el 2010-09-21 07:01:22 +0000
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101517: * tool-bar.el (tool-bar-position): New defcustom (Bug#7049).,
Jan D. <=