From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 21 May 1996 14:31:40 +0000 (+0000)
Subject: (do-auto-fill): Return t if real work was done.
X-Git-Tag: emacs-19.34~599
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2504204dc392fc9f87b788fdcc5d4043a644f2d;p=emacs.git

(do-auto-fill): Return t if real work was done.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 829f39083d6..bdacf04b1df 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2330,6 +2330,9 @@ Setting this variable automatically makes it local to the current buffer.")
 (defconst auto-fill-inhibit-regexp nil
   "*Regexp to match lines which should not be auto-filled.")
 
+;; This function is the auto-fill-function of a buffer
+;; when Auto-Fill mode is enabled.
+;; It returns t if it really did any work.
 (defun do-auto-fill ()
   (let (fc justify bol give-up
 	   (fill-prefix fill-prefix))
@@ -2419,7 +2422,8 @@ Setting this variable automatically makes it local to the current buffer.")
 	    ;; No place to break => stop trying.
 	    (setq give-up t))))
       ;; justify last line
-      (justify-current-line justify t t)))) 
+      (justify-current-line justify t t)
+      t))) 
 
 (defun auto-fill-mode (&optional arg)
   "Toggle auto-fill mode.