# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868050102 0
# Node ID 4fb803479728ef208a5ff0b61d41aa7115c200a3
# Parent  8d93d6d7eb233bccffc9232a21c4ef83916c229e
(forward-visible-line): Use forward-line, not
vertical-motion, when moving backwards.

diff -r 8d93d6d7eb23 -r 4fb803479728 lisp/simple.el
--- a/lisp/simple.el	Fri Jul 04 20:56:42 1997 +0000
+++ b/lisp/simple.el	Fri Jul 04 21:01:42 1997 +0000
@@ -1189,7 +1189,7 @@
 		  (signal 'end-of-buffer nil)))
 	    (setq arg (1- arg)))
 	(while (< arg 0)
-	  (or (zerop (vertical-motion -1))
+	  (or (zerop (forward-line -1))
 	      (signal 'beginning-of-buffer nil))
 	  (while (and (not (bobp))
 		      (let ((prop