[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.685 emacs/lisp/simple.el:1.686
*** emacs/lisp/simple.el:1.685  Sun Jan 23 00:53:32 2005
--- emacs/lisp/simple.el        Sun Jan 23 13:28:16 2005
***************
*** 3183,3199 ****
  (defun line-move (arg &optional noerror to-end)
    (if auto-window-vscroll
        (let ((forward (> arg 0))
!           (pvis (pos-visible-in-window-p (point) nil t)))
!       (if (and pvis (null (nth 2 pvis))
!                (> (nth (if forward 4 3) pvis) 0))
            (set-window-vscroll nil
                                (if forward
                                    (+ (window-vscroll nil t)
!                                      (min (nth 4 pvis)
                                            (* (frame-char-height) arg)))
                                  (max 0
                                       (- (window-vscroll nil t)
!                                         (min (nth 3 pvis)
                                               (* (frame-char-height) (- 
arg))))))
                                t)
          (set-window-vscroll nil 0)
--- 3183,3199 ----
  (defun line-move (arg &optional noerror to-end)
    (if auto-window-vscroll
        (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)