comparison lisp/simple.el @ 59698:815c3e98edef

(line-move): Fix last change. Check partial visibility at point rather than at window-start.

59697:3c5cc02ff90e

;; Perform vertical scrolling of tall images if necessary.
(defun line-move (arg &optional noerror to-end)
  (if auto-window-vscroll
      (let ((forward (> arg 0))
	    (pvis (pos-visible-in-window-p (window-start) 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)

59698:815c3e98edef

;; Perform vertical scrolling of tall images if necessary.
(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)