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

(fill-context-prefix): Try `adaptive-fill-function'

Browse Source 
BEFORE `adaptive-fill-regexp' when determining a fill prefix.
(adaptive-file-function): Minor amendment to doc-string.
This commit is contained in:
Eli Zaretskii 2005-06-11 13:49:56 +00:00
parent 67ed6461a6
commit b48e52066f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/textmodes/fill.el
View File

@ -115,7 +115,7 @@ if it would act as a paragraph-starter on the second line."
(defcustom adaptive-fill-function nil
"*Function to call to choose a fill prefix for a paragraph, or nil.
This function is used when `adaptive-fill-regexp' does not match."
nil means the function has not determined the fill prefix."
:type '(choice (const nil) function)
:group 'fill)
@ -230,9 +230,9 @@ act as a paragraph-separator."
;; Also setting first-line-prefix to nil prevents
;; second-line-prefix from being used.
(cond ;; ((looking-at paragraph-start) nil)
((and adaptive-fill-function (funcall adaptive-fill-function)))
((and adaptive-fill-regexp (looking-at adaptive-fill-regexp))
(match-string-no-properties 0))
(adaptive-fill-function (funcall adaptive-fill-function))))
(match-string-no-properties 0))))
(forward-line 1)
(if (< (point) to)
(progn
@ -240,11 +240,11 @@ act as a paragraph-separator."
(setq start (point))
(setq second-line-prefix
(cond ((looking-at paragraph-start) nil) ;Can it happen ? -stef
((and adaptive-fill-function
(funcall adaptive-fill-function)))
((and adaptive-fill-regexp
(looking-at adaptive-fill-regexp))
(buffer-substring-no-properties start (match-end 0)))
(adaptive-fill-function
(funcall adaptive-fill-function))))
(buffer-substring-no-properties start (match-end 0)))))
;; If we get a fill prefix from the second line,
;; make sure it or something compatible is on the first line too.
(when second-line-prefix