mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 02:40:34 -08:00
Code Issues Projects Releases Wiki Activity

(do-auto-fill): Handle adaptive-fill-regexp.

Browse source
This commit is contained in:
Richard M. Stallman 1995-07-28 02:38:16 +00:00
parent e064a4f982
commit a0170800bb
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/simple.el
View file

@ -2300,7 +2300,8 @@ Setting this variable automatically makes it local to the current buffer.")
"*Regexp to match lines which should not be auto-filled.")
(defun do-auto-fill ()
(let (fc justify bol give-up)
(let (fc justify bol give-up
(fill-prefix fill-prefix))
(if (or (not (setq justify (current-justification)))
(null (setq fc (current-fill-column)))
(and (eq justify 'left)
@ -2312,6 +2313,26 @@ Setting this variable automatically makes it local to the current buffer.")
nil ;; Auto-filling not required
(if (memq justify '(full center right))
(save-excursion (unjustify-current-line)))
;; Choose a fill-prefix automatically.
(if (and adaptive-fill-mode
(or (null fill-prefix) (string= fill-prefix "")))
(let (start end)
(save-excursion
(end-of-line)
(setq end (point))
(beginning-of-line)
(setq start (point))
(move-to-left-margin)
;; Don't do it if this line is a paragraph-starter line
;; because then the next line will probably also become one.
;; In text mode, when the user indents the first line of a
;; paragraph, we don't want all the lines to be indented.
(and (not (looking-at paragraph-start))
(re-search-forward adaptive-fill-regexp end t)
(setq fill-prefix
(buffer-substring-no-properties start (point)))))))
(while (and (not give-up) (> (current-column) fc))
;; Determine where to split the line.
(let ((fill-point