[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.180 
emacs/lisp/emacs-lisp/lisp-mode.el:1.181
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.180    Mon Jul  4 17:33:35 2005
--- emacs/lisp/emacs-lisp/lisp-mode.el  Mon Jul  4 20:13:34 2005
***************
*** 172,177 ****
--- 172,181 ----
    (setq paragraph-ignore-fill-prefix t)
    (make-local-variable 'fill-paragraph-function)
    (setq fill-paragraph-function 'lisp-fill-paragraph)
+   ;; Adaptive fill mode gets the fill wrong for a one-line paragraph made of
+   ;; a single docstring.  Let's fix it here.
+   (set (make-local-variable 'adaptive-fill-function)
+        (lambda () (if (looking-at "\\s-+\"[^\n\"]+\"\\s-*$") "")))
    ;; Adaptive fill mode gets in the way of auto-fill,
    ;; and should make no difference for explicit fill
    ;; because lisp-fill-paragraph should do the job.