mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(speedbar-default-position): New defcustom.

Browse source 
(speedbar-frame-reposition-smartly): Use it.
This commit is contained in:
Romain Francoise 2005-11-30 21:15:11 +00:00
parent 8a2c27b96c
commit 64db3923d3
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

12
lisp/speedbar.el
View file

@ -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.