changeset 86999:44a6a92e5396

(recenter-top-bottom): Don't use `ecase'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 03 Dec 2007 00:26:28 +0000
parents f8cec9494348
children a546ee064ba2
files lisp/window.el
diffstat 1 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)