[Emacs-diffs] Changes to emacs/lisp/window.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       07/12/03 00:26:28

Index: window.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/window.el,v
retrieving revision 1.128
retrieving revision 1.129
diff -u -b -r1.128 -r1.129
--- window.el   22 Nov 2007 18:08:05 -0000      1.128
+++ window.el   3 Dec 2007 00:26:28 -0000       1.129
@@ -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)