/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.685 by kfstorm, Sun Jan 23 00:53:32 2005 UTC revision 1.686 by kfstorm, Sun Jan 23 13:28:16 2005 UTC
# Line 3183  Outline mode sets this." Line 3183  Outline mode sets this."
3183  (defun line-move (arg &optional noerror to-end)  (defun line-move (arg &optional noerror to-end)
3184    (if auto-window-vscroll    (if auto-window-vscroll
3185        (let ((forward (> arg 0))        (let ((forward (> arg 0))
3186              (pvis (pos-visible-in-window-p (point) nil t)))              (part (nth 2 (pos-visible-in-window-p (point) nil t))))
3187          (if (and pvis (null (nth 2 pvis))          (if (and (consp part)
3188                   (> (nth (if forward 4 3) pvis) 0))                   (> (setq part (if forward (cdr part) (car part))) 0))
3189              (set-window-vscroll nil              (set-window-vscroll nil
3190                                  (if forward                                  (if forward
3191                                      (+ (window-vscroll nil t)                                      (+ (window-vscroll nil t)
3192                                         (min (nth 4 pvis)                                         (min part
3193                                              (* (frame-char-height) arg)))                                              (* (frame-char-height) arg)))
3194                                    (max 0                                    (max 0
3195                                         (- (window-vscroll nil t)                                         (- (window-vscroll nil t)
3196                                            (min (nth 3 pvis)                                            (min part
3197                                                 (* (frame-char-height) (- arg))))))                                                 (* (frame-char-height) (- arg))))))
3198                                  t)                                  t)
3199            (set-window-vscroll nil 0)            (set-window-vscroll nil 0)

Legend:
Removed from v.1.685  
changed lines
  Added in v.1.686

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26