Mercurial > emacs

changeset 97527:059ec03cfe4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(recenter-top-bottom): Determine top and bottom positions using scroll-margin instead of scroll-conservatively.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 18 Aug 2008 03:46:51 +0000
parents 35783b11cf3c
children 184bb2071e3f
files lisp/window.el
diffstat 1 files changed, 14 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/window.el	Mon Aug 18 03:45:54 2008 +0000
+++ b/lisp/window.el	Mon Aug 18 03:46:51 2008 +0000
@@ -1436,26 +1436,25 @@
 
 The cycling order is: middle -> top -> bottom.
 
-Top and bottom destinations are actually `scroll-conservatively' lines
-from true window top and bottom."
+Top and bottom destinations are actually `scroll-margin' lines
+the from true window top and bottom."
   (interactive "P")
   (cond
    (arg (recenter arg))                 ; Always respect ARG.
-   ((not (eq this-command last-command))
-    ;; First time - save mode and recenter.
+   ((or (not (eq this-command last-command))
+	(eq recenter-last-op 'bottom))
     (setq recenter-last-op 'middle)
     (recenter))
-   (t ;; repeat: loop through various options.
-    (setq recenter-last-op
-	  (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))))))
+   (t
+    (let ((this-scroll-margin
+	   (min (max 0 scroll-margin)
+		(truncate (/ (window-body-height) 4.0)))))
+      (cond ((eq recenter-last-op 'middle)
+	     (setq recenter-last-op 'top)
+	     (recenter this-scroll-margin))
+	    ((eq recenter-last-op 'top)
+	     (setq recenter-last-op 'bottom)
+	     (recenter (- -1 this-scroll-margin))))))))
 
 (define-key global-map [?\C-l] 'recenter-top-bottom)