diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-05-21 14:31:40 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-05-21 14:31:40 +0000 |
commit | d96797e6c58265120cdc005ba93b74c0e0d33387 (patch) | |
tree | 330846a2e00b4c3342c85d1aa9ae46c236c35902 | |
parent | 45d702e2675c7188a3de471abe9b2d8c4c4870db (diff) | |
download | emacs-d96797e6c58265120cdc005ba93b74c0e0d33387.tar.gz |
(do-auto-fill): Return t if real work was done.
-rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 5 insertions, 1 deletions
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. |