From: Eric M. Ludlam <zappo@gnu.org>
Date: Mon, 15 May 2000 22:17:24 +0000 (+0000)
Subject: (speedbar-recenter): Typo, and fix logic.
X-Git-Tag: emacs-pretest-21.0.90~3950
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9a4dcba679e097d9d579ee26de31fc1b3ad41d2;p=emacs.git

(speedbar-recenter): Typo, and fix logic.
(speedbar-expand-line): Make arg optional.
(speedbar-mode): Avoid a compiler warning.
---

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.