172 |
(setq paragraph-ignore-fill-prefix t) |
(setq paragraph-ignore-fill-prefix t) |
173 |
(make-local-variable 'fill-paragraph-function) |
(make-local-variable 'fill-paragraph-function) |
174 |
(setq fill-paragraph-function 'lisp-fill-paragraph) |
(setq fill-paragraph-function 'lisp-fill-paragraph) |
175 |
|
;; Adaptive fill mode gets the fill wrong for a one-line paragraph made of |
176 |
|
;; a single docstring. Let's fix it here. |
177 |
|
(set (make-local-variable 'adaptive-fill-function) |
178 |
|
(lambda () (if (looking-at "\\s-+\"[^\n\"]+\"\\s-*$") ""))) |
179 |
;; Adaptive fill mode gets in the way of auto-fill, |
;; Adaptive fill mode gets in the way of auto-fill, |
180 |
;; and should make no difference for explicit fill |
;; and should make no difference for explicit fill |
181 |
;; because lisp-fill-paragraph should do the job. |
;; because lisp-fill-paragraph should do the job. |