Mercurial > emacs

comparison lisp/window.el @ 86999:44a6a92e5396

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
86998:f8cec9494348 86999:44a6a92e5396
903 ;; First time - save mode and recenter. 903 ;; First time - save mode and recenter.
904 (setq recenter-last-op 'middle) 904 (setq recenter-last-op 'middle)
905 (recenter)) 905 (recenter))
906 (t ;; repeat: loop through various options. 906 (t ;; repeat: loop through various options.
907 (setq recenter-last-op 907 (setq recenter-last-op
908 (ecase recenter-last-op 908 (cond ((eq recenter-last-op 'middle)
909 (middle (recenter scroll-conservatively) 'top) 909 (recenter scroll-conservatively)
910 (top (recenter (1- (- scroll-conservatively))) 'bottom) 910 'top)
911 (bottom (recenter) 'middle)))))) 911 ((eq recenter-last-op 'top)
912 (recenter (1- (- scroll-conservatively)))
913 'bottom)
914 ((eq recenter-last-op 'bottom)
915 (recenter)
916 'middle))))))
912 917
913 (define-key global-map [?\C-l] 'recenter-top-bottom) 918 (define-key global-map [?\C-l] 'recenter-top-bottom)
914 919
915 (defvar mouse-autoselect-window-timer nil 920 (defvar mouse-autoselect-window-timer nil
916 "Timer used by delayed window autoselection.") 921 "Timer used by delayed window autoselection.")