Mercurial > emacs
changeset 15263:0d7899c372ed
(do-auto-fill): Return t if real work was done.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 21 May 1996 14:31:40 +0000 |
| parents | b455f3f77823 |
| children | 0eb55cad57c6 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue May 21 14:29:56 1996 +0000 +++ b/lisp/simple.el Tue May 21 14:31:40 1996 +0000 @@ -2330,6 +2330,9 @@ (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 @@ ;; 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.