From: Jan Djärv <jan.h.d@swipnet.se>
Date: Tue, 21 Sep 2010 07:01:22 +0000 (+0200)
Subject: * tool-bar.el (tool-bar-position): New defcustom (Bug#7049).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~844^2~3994
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8cf1771a55661ee7957d460395df5fe6ffcc8d6b;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2f94752943b..5e7ae954b8a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)
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