From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 3 Oct 2002 23:00:19 +0000 (+0000)
Subject: (forward-paragraph): Return the steps left.
X-Git-Tag: ttn-vms-21-2-B4~12944
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b462fc6c48b205a4aa1e819cf28fce1eaeca63e;p=emacs.git

(forward-paragraph): Return the steps left.
---

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index bc4cac2a088..73dbd56240d 100644
--- 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.