[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Fri, 03 Jun 2005 19:48:21 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.723 emacs/lisp/simple.el:1.724
*** emacs/lisp/simple.el:1.723 Tue May 31 09:32:06 2005
--- emacs/lisp/simple.el Fri Jun 3 23:48:21 2005
***************
*** 3351,3375 ****
(let ((forward (> arg 0))
(part (nth 2 (pos-visible-in-window-p (point) nil t))))
(if (and (consp part)
! (> (setq part (if forward (cdr part) (car part))) 0))
(set-window-vscroll nil
(if forward
(+ (window-vscroll nil t)
! (min part
(* (frame-char-height) arg)))
(max 0
(- (window-vscroll nil t)
! (min part
(* (frame-char-height) (-
arg))))))
t)
(set-window-vscroll nil 0)
(when (line-move-1 arg noerror to-end)
! (sit-for 0)
! (if (and (not forward)
! (setq part (nth 2 (pos-visible-in-window-p
! (line-beginning-position) nil t)))
! (> (cdr part) 0))
! (set-window-vscroll nil (cdr part) t))
t)))
(line-move-1 arg noerror to-end)))
--- 3351,3375 ----
(let ((forward (> arg 0))
(part (nth 2 (pos-visible-in-window-p (point) nil t))))
(if (and (consp part)
! (> (if forward (cdr part) (car part)) 0))
(set-window-vscroll nil
(if forward
(+ (window-vscroll nil t)
! (min (cdr part)
(* (frame-char-height) arg)))
(max 0
(- (window-vscroll nil t)
! (min (car part)
(* (frame-char-height) (-
arg))))))
t)
(set-window-vscroll nil 0)
(when (line-move-1 arg noerror to-end)
! (when (not forward)
! (sit-for 0)
! (if (and (setq part (nth 2 (pos-visible-in-window-p
! (line-beginning-position) nil t)))
! (> (cdr part) 0))
! (set-window-vscroll nil (cdr part) t)))
t)))
(line-move-1 arg noerror to-end)))
- [Emacs-diffs] Changes to emacs/lisp/simple.el,
Kim F . Storm <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Luc Teirlinck, 2005/06/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Kim F . Storm, 2005/06/05
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/08
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Lute Kamstra, 2005/06/16
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juanma Barranquero, 2005/06/16
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juanma Barranquero, 2005/06/20
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juanma Barranquero, 2005/06/20
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/23
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M . Stallman, 2005/06/24