mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2007-12-03 00:27:14 +00:00
parent 369fc5a626
commit 18715c3318
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

13
lisp/window.el
View File

@ -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)