diff options
| author | Eric M. Ludlam <zappo@gnu.org> | 2000-05-15 22:17:24 +0000 |
|---|---|---|
| committer | Eric M. Ludlam <zappo@gnu.org> | 2000-05-15 22:17:24 +0000 |
| commit | e9a4dcba679e097d9d579ee26de31fc1b3ad41d2 (patch) | |
| tree | 36da0c21eadddce074d0853391fd10f4be112de0 /lisp/speedbar.el | |
| parent | 119b42eb55ed58a855a95b302527f49606d4f604 (diff) | |
| download | emacs-e9a4dcba679e097d9d579ee26de31fc1b3ad41d2.tar.gz emacs-e9a4dcba679e097d9d579ee26de31fc1b3ad41d2.tar.bz2 emacs-e9a4dcba679e097d9d579ee26de31fc1b3ad41d2.zip | |
(speedbar-recenter): Typo, and fix logic.
(speedbar-expand-line): Make arg optional.
(speedbar-mode): Avoid a compiler warning.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 2bd71901c9e..b5c2980ac55 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -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. |