Fix bug #14842 with doc strings of next-line and previous-line.

[bpt/emacs.git] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 7c42cc6..005e43b 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -725,10 +725,7 @@ see."
   (interactive "^p")
   (if visual-order-cursor-movement
       (dotimes (i (if (numberp n) (abs n) 1))
-       (if (< n 0)
-           (move-point-visually -1)
-         (move-point-visually 1))
-       (sit-for 0))
+       (move-point-visually (if (and (numberp n) (< n 0)) -1 1)))
     (if (eq (current-bidi-paragraph-direction) 'left-to-right)
        (forward-char n)
       (backward-char n))))
@@ -746,10 +743,7 @@ see."
   (interactive "^p")
   (if visual-order-cursor-movement
       (dotimes (i (if (numberp n) (abs n) 1))
-       (if (< n 0)
-           (move-point-visually 1)
-         (move-point-visually -1))
-       (sit-for 0))
+       (move-point-visually (if (and (numberp n) (< n 0)) 1 -1)))
     (if (eq (current-bidi-paragraph-direction) 'left-to-right)
        (backward-char n)
       (forward-char n))))