mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(speedbar-recenter): Typo, and fix logic.

Browse Source 
(speedbar-expand-line): Make arg optional.
(speedbar-mode): Avoid a compiler warning.
This commit is contained in:
Eric M. Ludlam 2000-05-15 22:17:24 +00:00
parent 119b42eb55
commit e9a4dcba67
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/speedbar.el
View File

@ -1273,13 +1273,10 @@ in the selected file.
(toggle-read-only 1)
(speedbar-set-mode-line-format)
(if speedbar-xemacsp
(progn
(make-local-variable 'mouse-motion-handler)
(setq mouse-motion-handler 'speedbar-track-mouse-xemacs))
(set (make-local-variable 'mouse-motion-handler)
'speedbar-track-mouse-xemacs)
(if speedbar-track-mouse-flag
(progn
(make-local-variable 'track-mouse)
(setq track-mouse t))) ;this could be messy.
(set (make-local-variable 'track-mouse) t)) ;this could be messy.
(setq auto-show-mode nil)) ;no auto-show for Emacs
(run-hooks 'speedbar-mode-hook))
(speedbar-update-contents)
@ -3397,7 +3394,7 @@ directory with these items."
nil))
(speedbar-do-function-pointer)))
(defun speedbar-expand-line (arg)
(defun speedbar-expand-line (&optional arg)
"Expand the line under the cursor.
With universal argument ARG, flush cached data."
(interactive "P")
@ -4105,7 +4102,7 @@ TEXT is the buffer's name, TOKEN and INDENT are unused."
(defun speedbar-recenter ()
"Recenter the current buffer so POINT is in the center of the window."
(recenter (window-hight (/ (selected-window) 2))))
(recenter (/ (window-height (selected-window)) 2)))
;;; Color loading section.