From 3496099ffe9903761f9255a38175f5913b19db7d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 4 Jul 1997 21:01:42 +0000 Subject: (forward-visible-line): Use forward-line, not vertical-motion, when moving backwards. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.1