From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 3 Dec 2007 00:27:14 +0000 (+0000)
Subject: (recenter-top-bottom): Don't use `ecase'.
X-Git-Tag: emacs-pretest-23.0.90~9132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18715c3318e416cdf27a2f8dd4619afec98ac84a;p=emacs.git

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

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)