mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(normal-auto-fill-function): New variable.

Browse Source 
(auto-fill-mode): Use that instead of constant 'do-auto-fill.
This commit is contained in:
Richard M. Stallman 1996-08-07 19:45:46 +00:00
parent 18fef1118a
commit 24ebf92e58
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/simple.el
View File

@ -2432,21 +2432,28 @@ Setting this variable automatically makes it local to the current buffer.")
(setq give-up t)))
;; No place to break => stop trying.
(setq give-up t))))
;; justify last line
;; Justify last line.
(justify-current-line justify t t)
t)))
(defvar normal-auto-fill-function 'do-auto-fill
"The function to use for `auto-fill-function' if Auto Fill mode is turned on.
Some major modes set this.")
(defun auto-fill-mode (&optional arg)
"Toggle auto-fill mode.
With arg, turn Auto-Fill mode on if and only if arg is positive.
In Auto-Fill mode, inserting a space at a column beyond `current-fill-column'
automatically breaks the line at a previous space."
"Toggle Auto Fill mode.
With arg, turn Auto Fill mode on if and only if arg is positive.
In Auto Fill mode, inserting a space at a column beyond `current-fill-column'
automatically breaks the line at a previous space.
The value of `normal-auto-fill-function' specifies the function to use
for `auto-fill-function' when turning Auto Fill mode on."
(interactive "P")
(prog1 (setq auto-fill-function
(if (if (null arg)
(not auto-fill-function)
(> (prefix-numeric-value arg) 0))
'do-auto-fill
normal-auto-fill-function
nil))
(force-mode-line-update)))