# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1118244905 0
# Node ID bbac4c8066b4e36dc31a8c590e405990337f5f1a
# Parent  ade1be8b63fdde7216b0493fb49f937ab65f6b19
Comment changes.

diff -r ade1be8b63fd -r bbac4c8066b4 lisp/simple.el
--- a/lisp/simple.el	Wed Jun 08 15:34:13 2005 +0000
+++ b/lisp/simple.el	Wed Jun 08 15:35:05 2005 +0000
@@ -3342,10 +3342,15 @@
       (or (memq prop buffer-invisibility-spec)
 	  (assq prop buffer-invisibility-spec)))))
 
-;; Perform vertical scrolling of tall images if necessary.
-;; Don't vscroll in a keyboard macro.
+;; This is like line-move-1 except that it also performs
+;; vertical scrolling of tall images if appropriate.
+;; That is not really a clean thing to do, since it mixes
+;; scrolling with cursor motion.  But so far we don't have
+;; a cleaner solution to the problem of making C-n do something
+;; useful given a tall image.
 (defun line-move (arg &optional noerror to-end try-vscroll)
   (if (and auto-window-vscroll try-vscroll
+	   ;; But don't vscroll in a keyboard macro.
 	   (not defining-kbd-macro)
 	   (not executing-kbd-macro))
       (let ((forward (> arg 0))
@@ -3368,6 +3373,8 @@
 	      ;; Update display before calling pos-visible-in-window-p,
 	      ;; because it depends on window-start being up-to-date.
 	      (sit-for 0)
+	      ;; If the current line is partly hidden at the bottom,
+	      ;; scroll it partially up so as to unhide the bottom.
 	      (if (and (setq part (nth 2 (pos-visible-in-window-p
 					  (line-beginning-position) nil t)))
 		       (> (cdr part) 0))