(recenter-top-bottom): Don't use `ecase'.

18715c33 · Richard M. Stallman · 369fc5a6 · 18715c33 · 18715c33
Commit 18715c33 authored Dec 03, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 13 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/window.el lisp/window.el +9 -4

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2007-12-03  Richard Stallman  <rms@gnu.org>
+
+	* window.el (recenter-top-bottom): Don't use `ecase'.
+
 2007-12-02  Karl Fogel  <kfogel@red-bean.com>

 	* saveplace.el (save-place-alist-to-file): Set

--- a/lisp/window.el
+++ b/lisp/window.el
@@ -905,10 +905,15 @@ from true window top and bottom."
    (recenter))
   (t ;; repeat: loop through various options.
    (setq recenter-last-op
-          (ecase recenter-last-op
-            (middle (recenter scroll-conservatively)		'top)
-            (top    (recenter (1- (- scroll-conservatively)))	'bottom)
-            (bottom (recenter)					'middle))))))
+	  (cond ((eq recenter-last-op 'middle)
+		 (recenter scroll-conservatively)
+		 'top)
+		((eq recenter-last-op 'top)
+		 (recenter (1- (- scroll-conservatively)))
+		 'bottom)
+		((eq recenter-last-op 'bottom)
+		 (recenter)
+		 'middle))))))

 (define-key global-map [?\C-l] 'recenter-top-bottom)