(forward-paragraph): Return the steps left.

2002-10-03 23:00:19 +00:00
parent 7803dbb027
commit 7b462fc6c4
1 changed files with 3 additions and 1 deletions
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -299,7 +299,9 @@ to which the end of the previous line belongs, or the end of the buffer."
 	(if (< (point) (point-max))
 	    (goto-char start)))
      (setq arg (1- arg)))
-    (constrain-to-field nil opoint t)))
+    (constrain-to-field nil opoint t)
+    ;; Return the number of steps that could not be done.
+    arg))

 (defun backward-paragraph (&optional arg)
  "Move backward to start of paragraph.