From e9a4dcba679e097d9d579ee26de31fc1b3ad41d2 Mon Sep 17 00:00:00 2001 From: "Eric M. Ludlam" Date: Mon, 15 May 2000 22:17:24 +0000 Subject: [PATCH] (speedbar-recenter): Typo, and fix logic. (speedbar-expand-line): Make arg optional. (speedbar-mode): Avoid a compiler warning. --- lisp/speedbar.el | 13 +++++-------- 1 file 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. -- 2.39.5