(speedbar-default-position): New defcustom.

(speedbar-frame-reposition-smartly): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7950d5e4dbcb77fb7669026277a0efd3871ad7ec..5bde663187610e2fbeb8c9170420072a124acf8c 100644 (file)
--- 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 e09c0d734ccaaa7281f0b8a8eec92f9d8f66d637..a48f480a756a8e92864689731b682426e098d027 100644 (file)
--- 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.