2 files changed, 13 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bec72ccb1f2..373eead8fdc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/lisp/window.el b/lisp/window.el
index fea89e86d3a..025a7c5ab65 100644
--- 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)