# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1196641588 0
# Node ID 44a6a92e5396860cde0c10dda60254ba4bc4f29a
# Parent  f8cec9494348c4f4da3411bea365bb44169ae1d2
(recenter-top-bottom): Don't use `ecase'.

diff -r f8cec9494348 -r 44a6a92e5396 lisp/window.el
--- a/lisp/window.el	Sun Dec 02 21:52:46 2007 +0000
+++ b/lisp/window.el	Mon Dec 03 00:26:28 2007 +0000
@@ -905,10 +905,15 @@
     (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)