[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/follow.el,v
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/follow.el,v |
Date: |
Tue, 28 Oct 2008 17:36:00 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Martin Rudalics <m061211> 08/10/28 17:35:59
Index: follow.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/follow.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- follow.el 6 May 2008 07:57:36 -0000 1.48
+++ follow.el 28 Oct 2008 17:35:56 -0000 1.49
@@ -624,7 +624,7 @@
(select-window win)
(goto-char start)
(vertical-motion (- (- (window-height win)
- 1
+ (if header-line-format 2 1)
next-screen-context-lines)))
(set-window-start win (point))
(goto-char start)
@@ -887,7 +887,9 @@
(prog1
(save-excursion
(goto-char (window-start))
- (setq height (- (window-height) 1))
+ (setq height
+ (- (window-height)
+ (if header-line-format 2 1)))
(setq buffer-end-p
(if (bolp)
(not (= height (vertical-motion height)))
@@ -1219,7 +1221,9 @@
;(setq exact (bolp))
(vertical-motion 0 win)
(while pred
- (vertical-motion (- 1 (window-height (car pred))) (car pred))
+ (vertical-motion
+ (- (if header-line-format 2 1)
+ (window-height (car pred))) (car pred))
(if (not (bolp))
(setq exact nil))
(setq pred (cdr pred)))
@@ -1353,7 +1357,7 @@
;; the screen if it should be unaligned.
;;
;; We divide the check into two parts; whether we are at the end or not.
-;; This is due to the fact that the end can actaually be visible
+;; This is due to the fact that the end can actually be visible
;; in several window even though they are aligned.
(defun follow-post-command-hook ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/follow.el,v,
Martin Rudalics <=