2 files changed, 14 insertions, 1 deletions

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.