comparison lisp/simple.el @ 62059:1f57a1631e42

(line-move-1): Fix previous change to signal errors appropriately.

62058:7276665dac33

		;; If there's no invisibility here, move over the newline.
		(if (not (line-move-invisible-p (point)))
		    ;; We avoid vertical-motion when possible
		    ;; because that has to fontify.
		    (if (eobp)
			(setq done t)
		      (forward-line 1))
		  ;; Otherwise move a more sophisticated way.
		  ;; (What's the logic behind this code?)
		  (and (zerop (vertical-motion 1))
		       (if (not noerror)

		  (setq arg (1- arg))))
	      ;; The logic of this is the same as the loop above, 
	      ;; it just goes in the other direction.
	      (while (and (< arg 0) (not done))
		(beginning-of-line)
		(if (not (line-move-invisible-p (1- (point))))
		    (if (bobp)
			(setq done t)
		      (forward-line -1))
		  (if (zerop (vertical-motion -1))
		      (if (not noerror)
			  (signal 'beginning-of-buffer nil)
			(setq done t))))

62059:1f57a1631e42

		;; If there's no invisibility here, move over the newline.
		(if (not (line-move-invisible-p (point)))
		    ;; We avoid vertical-motion when possible
		    ;; because that has to fontify.
		    (if (eobp)
		       (if (not noerror)
			   (signal 'end-of-buffer nil)
			 (setq done t))
		      (forward-line 1))
		  ;; Otherwise move a more sophisticated way.
		  ;; (What's the logic behind this code?)
		  (and (zerop (vertical-motion 1))
		       (if (not noerror)

		  (setq arg (1- arg))))
	      ;; The logic of this is the same as the loop above, 
	      ;; it just goes in the other direction.
	      (while (and (< arg 0) (not done))
		(beginning-of-line)
		(if (or (bobp) (not (line-move-invisible-p (1- (point)))))
		    (if (bobp)
			(if (not noerror)
			    (signal 'beginning-of-buffer nil)
			  (setq done t))
		      (forward-line -1))
		  (if (zerop (vertical-motion -1))
		      (if (not noerror)
			  (signal 'beginning-of-buffer nil)
			(setq done t))))