Function: lisp-adaptive-fill

lisp-adaptive-fill is a byte-compiled function defined in lisp-mode.el.gz.

Signature

(lisp-adaptive-fill)

Documentation

Return fill prefix found at point.

Value for adaptive-fill-function.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/lisp-mode.el.gz
(defun lisp-adaptive-fill ()
  "Return fill prefix found at point.
Value for `adaptive-fill-function'."
  ;; Adaptive fill mode gets the fill wrong for a one-line paragraph made of
  ;; a single docstring.  Let's fix it here.
  (if (looking-at "\\s-+\"[^\n\"]+\"\\s-*$") ""))