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

f33ae5d0 · Richard M. Stallman · 5648486c · f33ae5d0
Commit f33ae5d0 authored May 04, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

lisp/simple.el lisp/simple.el +7 -3

No files found.
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3420,7 +3420,9 @@ Outline mode sets this."
 		    ;; We avoid vertical-motion when possible
 		    ;; because that has to fontify.
 		    (if (eobp)
-			(setq done t)
+		       (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?)
@@ -3434,9 +3436,11 @@ Outline mode sets this."
 	      ;; 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 (or (bobp) (not (line-move-invisible-p (1- (point)))))
 		    (if (bobp)
-			(setq done t)
+			(if (not noerror)
+			    (signal 'beginning-of-buffer nil)
+			  (setq done t))
 		      (forward-line -1))
 		  (if (zerop (vertical-motion -1))
 		      (if (not noerror)