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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bec72ccb1f2365ef7e2e1fb5ec7b0aafae11d874..373eead8fdc0181987dda9c030883d0e4031f982 100644 (file)
--- 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 fea89e86d3aa76e1acf2702a31d782676e742c9f..025a7c5ab653ad8973b67c2d908ec764d34bdf12 100644 (file)
--- 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)
 \f