# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1033686019 0
# Node ID 75f4a9fc7b34c78360f32b4896433768efcc9fb7
# Parent  4d7a3dd9a644cd97f91578ce69413bb4c7e440bd
(forward-paragraph): Return the steps left.

diff -r 4d7a3dd9a644 -r 75f4a9fc7b34 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Thu Oct 03 22:48:54 2002 +0000
+++ b/lisp/textmodes/paragraphs.el	Thu Oct 03 23:00:19 2002 +0000
@@ -299,7 +299,9 @@
 	(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.