Finish previous change.

diff --git a/lisp/simple.el b/lisp/simple.el
index 54674c59ea9ee45b8e892a3dfde1130aac5e8bef..e85d1710953f4b6e6b4b22545f11a6d43848c9a3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1201,7 +1201,7 @@ If ARG is zero, move to the beginning of the current line."
            (if (get-text-property (1- (point)) 'invisible)
                (goto-char (previous-single-property-change (point) 'invisible))
              (goto-char (previous-overlay-change (point))))
-           (or (zerop (vertical-motion -1))
+           (or (zerop (forward-line -1))
                (signal 'beginning-of-buffer nil)))
          (setq arg (1+ arg))))
     ((beginning-of-buffer end-of-buffer)