From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 4 Jul 1997 21:01:42 +0000 (+0000)
Subject: (forward-visible-line): Use forward-line, not
X-Git-Tag: emacs-20.1~1329
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b3087c0149960412443be24d4057db8b30cd226;p=emacs.git

(forward-visible-line): Use forward-line, not
vertical-motion, when moving backwards.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index fac5987756d..54674c59ea9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1189,7 +1189,7 @@ If ARG is zero, move to the beginning of the current line."
 		  (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