Mercurial > emacs
diff lisp/window.el @ 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 | 161416156d88 |
| children | 3acb39b0ac26 53108e6cea98 |
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)