Mercurial > emacs
changeset 28925:89a795d90175
(speedbar-recenter): Typo, and fix logic.
(speedbar-expand-line): Make arg optional.
(speedbar-mode): Avoid a compiler warning.
| author | Eric M. Ludlam <zappo@gnu.org> |
|---|---|
| date | Mon, 15 May 2000 22:17:24 +0000 |
| parents | 7932a964e38f |
| children | f0c08cb8a89c |
| files | lisp/speedbar.el |
| diffstat | 1 files changed, 5 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/speedbar.el Mon May 15 20:18:15 2000 +0000 +++ b/lisp/speedbar.el Mon May 15 22:17:24 2000 +0000 @@ -1273,13 +1273,10 @@ (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 @@ 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 @@ (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.