# HG changeset patch
# User Eric M. Ludlam <zappo@gnu.org>
# Date 958429044 0
# Node ID 89a795d90175c1550dc34eddbf379a702adbe699
# Parent  7932a964e38f11ff03db2165ec7cfc86caebfdd3
(speedbar-recenter): Typo, and fix logic.
(speedbar-expand-line): Make arg optional.
(speedbar-mode): Avoid a compiler warning.

diff -r 7932a964e38f -r 89a795d90175 lisp/speedbar.el
--- 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.