# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868050185 0
# Node ID c7a1c26b934fc3e57a8f19b5fd6346c38e7e6ac6
# Parent  4fb803479728ef208a5ff0b61d41aa7115c200a3
Finish previous change.

diff -r 4fb803479728 -r c7a1c26b934f lisp/simple.el
--- a/lisp/simple.el	Fri Jul 04 21:01:42 1997 +0000
+++ b/lisp/simple.el	Fri Jul 04 21:03:05 1997 +0000
@@ -1201,7 +1201,7 @@
 	    (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)