comparison lisp/simple.el @ 83320:ebfb2856c8e6

Merged from [e-mail]--gnu-2005 (patch 447-448) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-447 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-448 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-360

83319:8f5787c83345

			  (signal 'end-of-buffer nil)
			(setq done t)))
		  (when (and (not done)
			     (not (integerp selective-display))
			     (not (line-move-invisible-p (point))))
		    ;; We avoid vertical-motion when possible
		    ;; because that has to fontify.
		    (forward-line 1)
		    ;; If there are overlays in and around
		    ;; the text we moved over, we need to be
		    ;; sophisticated.
		    (unless (overlays-in (max (1- pos-before) (point-min))
					 (min (1+ (point)) (point-max)))
		      (setq line-done t)))
		  ;; Otherwise move a more sophisticated way.
		  ;; (What's the logic behind this code?)
		  (and (not done) (not line-done)
		       (zerop (vertical-motion 1))
		       (if (not noerror)
			   (signal 'end-of-buffer nil)
			 (setq done t))))
		(unless done

			  (signal 'beginning-of-buffer nil)
			(setq done t)))
		  (when (and (not done)
			     (not (integerp selective-display))
			     (not (line-move-invisible-p (1- (point)))))
		    (forward-line -1)
		    (unless (overlays-in (max (1- (point)) (point-min))
					 (min (1+ pos-before) (point-max)))
		      (setq line-done t)))
		  (and (not done) (not line-done)
		       (zerop (vertical-motion -1))
		       (if (not noerror)
			   (signal 'beginning-of-buffer nil)

83320:ebfb2856c8e6

			  (signal 'end-of-buffer nil)
			(setq done t)))
		  (when (and (not done)
			     (not (integerp selective-display))
			     (not (line-move-invisible-p (point))))
		    (unless (overlays-in (max (1- pos-before) (point-min))
					 (min (1+ (point)) (point-max)))
		      ;; We avoid vertical-motion when possible
		      ;; because that has to fontify.
		      (forward-line 1)
		      (setq line-done t)))
		  (and (not done) (not line-done)
		       ;; Otherwise move a more sophisticated way.
		       (zerop (vertical-motion 1))
		       (if (not noerror)
			   (signal 'end-of-buffer nil)
			 (setq done t))))
		(unless done

			  (signal 'beginning-of-buffer nil)
			(setq done t)))
		  (when (and (not done)
			     (not (integerp selective-display))
			     (not (line-move-invisible-p (1- (point)))))
		    (unless (overlays-in (max (1- (point)) (point-min))
					 (min (1+ pos-before) (point-max)))
		      (forward-line -1)
		      (setq line-done t)))
		  (and (not done) (not line-done)
		       (zerop (vertical-motion -1))
		       (if (not noerror)
			   (signal 'beginning-of-buffer nil)