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 | 2df7af3acde8b22e89d1eec821cda398823c3730 (patch) | |
| tree | 22cf04b53a621157c58a204c3fa7195b2e95657a /lisp/speedbar.el | |
| parent | f51f99411c8322d765112db2ed27a6a4d32135cb (diff) | |
| download | emacs-2df7af3acde8b22e89d1eec821cda398823c3730.tar.gz | |
(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. |