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

vertical-motion, when moving backwards.

diff --git a/lisp/simple.el b/lisp/simple.el
index fac5987756de16e39114153065c5a40880aecc3c..54674c59ea9ee45b8e892a3dfde1130aac5e8bef 100644 (file)
--- 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