Commit 5b3087c0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(forward-visible-line): Use forward-line, not

vertical-motion, when moving backwards.
parent 57cf80bf
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment