comparison lisp/speedbar.el @ 67227:d02e0d3b5db9

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

67226:fd62535b63a8

(defcustom speedbar-track-mouse-flag (not speedbar-use-tool-tips-flag)
  "*Non-nil means to display info about the line under the mouse."
  :group 'speedbar
  :type 'boolean)

(defcustom speedbar-sort-tags nil
  "*If non-nil, sort tags in the speedbar display.  *Obsolete*.
Use `semantic-tag-hierarchy-method' instead."
  :group 'speedbar

		(cdr (assoc 'top  speedbar-frame-parameters))))
	 )
	(t
	 (dframe-reposition-frame speedbar-frame
				  (dframe-attached-frame speedbar-frame)
				  'left-right))))

(defun speedbar-detach ()
  "Detach the current Speedbar from auto-updating.
Doing this allows the creation of a second speedbar."
  (interactive)

67227:d02e0d3b5db9

(defcustom speedbar-track-mouse-flag (not speedbar-use-tool-tips-flag)
  "*Non-nil means to display info about the line under the mouse."
  :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."
  :group 'speedbar

		(cdr (assoc 'top  speedbar-frame-parameters))))
	 )
	(t
	 (dframe-reposition-frame speedbar-frame
				  (dframe-attached-frame speedbar-frame)
				  speedbar-default-position))))

(defun speedbar-detach ()
  "Detach the current Speedbar from auto-updating.
Doing this allows the creation of a second speedbar."
  (interactive)