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

diff --git a/lisp/simple.el b/lisp/simple.el
index 73c01e98f6129e6ca299bf5203c555d3962f63f1..43a5708d6c3ef2521175517910df683e58881e20 100644 (file)
--- 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)