diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-11-30 21:15:11 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-11-30 21:15:11 +0000 |
| commit | 64db3923d32a71d18e4ab4ae364c8ef48313ca82 (patch) | |
| tree | 413f04a3059527838e5692f96077bbab9acdbff7 /lisp/speedbar.el | |
| parent | 8a2c27b96c3650af79b2cf436eca75da849f2549 (diff) | |
| download | emacs-64db3923d32a71d18e4ab4ae364c8ef48313ca82.tar.gz emacs-64db3923d32a71d18e4ab4ae364c8ef48313ca82.tar.bz2 emacs-64db3923d32a71d18e4ab4ae364c8ef48313ca82.zip | |
(speedbar-default-position): New defcustom.
(speedbar-frame-reposition-smartly): Use it.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 12 |
1 files changed, 11 insertions, 1 deletions
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. |