From: Romain Francoise <romain@orebokech.com>
Date: Wed, 30 Nov 2005 21:15:11 +0000 (+0000)
Subject: (speedbar-default-position): New defcustom.
X-Git-Tag: emacs-pretest-22.0.90~5581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64db3923d32a71d18e4ab4ae364c8ef48313ca82;p=emacs.git

(speedbar-default-position): New defcustom.
(speedbar-frame-reposition-smartly): Use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7950d5e4dbc..5bde6631876 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-11-30  Romain Francoise  <romain@orebokech.com>
 
+	* speedbar.el (speedbar-default-position): New defcustom.
+	(speedbar-frame-reposition-smartly): Use it.
+
 	* dframe.el (dframe-reposition-frame-emacs): Fix position
 	computation for 'left location.
 	Update copyright year.
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index e09c0d734cc..a48f480a756 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -331,6 +331,16 @@ display is used instead."
   :group 'speedbar
   :type 'boolean)
 
+(defcustom speedbar-default-position 'left-right
+  "*Default position of the speedbar frame.
+Possible values are 'left, 'right or 'left-right.
+If value is 'left-right, the most suitable location is
+determined automatically."
+  :group 'speedbar
+  :type '(radio (const :tag "Automatic" left-right)
+		(const :tag "Left" left)
+		(const :tag "Right" right)))
+
 (defcustom speedbar-sort-tags nil
   "*If non-nil, sort tags in the speedbar display.  *Obsolete*.
 Use `semantic-tag-hierarchy-method' instead."
@@ -967,7 +977,7 @@ supported at a time.
 	(t
 	 (dframe-reposition-frame speedbar-frame
 				  (dframe-attached-frame speedbar-frame)
-				  'left-right))))
+				  speedbar-default-position))))
 
 (defun speedbar-detach ()
   "Detach the current Speedbar from auto-updating.