[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el,v
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el,v |
Date: |
Wed, 13 Sep 2006 22:28:04 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kim F. Storm <kfstorm> 06/09/13 22:28:04
Index: simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.817
retrieving revision 1.818
diff -u -b -r1.817 -r1.818
--- simple.el 11 Sep 2006 22:33:46 -0000 1.817
+++ simple.el 13 Sep 2006 22:28:03 -0000 1.818
@@ -3487,28 +3487,27 @@
(set-window-vscroll nil (- vs (frame-char-height)) t)))
;; Move forward (down).
- (let* ((ppos (posn-at-point))
- (py (cdr (or (posn-actual-col-row ppos)
- (posn-col-row ppos))))
- (vs (window-vscroll nil t))
- (evis (or (pos-visible-in-window-p (window-end nil t) nil t)
+ (let* ((evis (or (pos-visible-in-window-p (window-end nil t) nil t)
(pos-visible-in-window-p (1- (window-end nil t)) nil t)))
(rbot (nth 3 evis))
- (vpos (nth 5 evis)))
+ (vpos (nth 5 evis))
+ ppos py vs)
(cond
- ;; (0) Last window line should be visible - fail if not.
+ ;; Last window line should be visible - fail if not.
((null evis)
nil)
;; If last line of window is fully visible, move forward.
((null rbot)
nil)
;; If cursor is not in the bottom scroll margin, move forward.
- ((< py (min (- (window-text-height) scroll-margin 1)
- (1- vpos)))
+ ((< (setq ppos (posn-at-point)
+ py (cdr (or (posn-actual-col-row ppos)
+ (posn-col-row ppos))))
+ (min (- (window-text-height) scroll-margin 1) (1- vpos)))
nil)
;; When already vscrolled, we vscroll some more if we can,
;; or clear vscroll and move forward at end of tall image.
- ((> vs 0)
+ ((> (setq vs (window-vscroll nil t)) 0)
(when (> rbot 0)
(set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
;; If cursor just entered the bottom scroll margin, move forward,
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Richard M. Stallman, 2006/09/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, John Paul Wallington, 2006/09/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Kim F. Storm, 2006/09/05
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Richard M. Stallman, 2006/09/11
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Kim F. Storm, 2006/09/11
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v,
Kim F. Storm <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Richard M. Stallman, 2006/09/14
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Kim F. Storm, 2006/09/15
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2006/09/16
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2006/09/16
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Kim F. Storm, 2006/09/18
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Kim F. Storm, 2006/09/19
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2006/09/19
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Kim F. Storm, 2006/09/20
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Richard M. Stallman, 2006/09/24
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2006/09/24