Function: erc--fill-module-docstring

erc--fill-module-docstring is a byte-compiled function defined in erc-common.el.gz.

Signature

(erc--fill-module-docstring &rest STRINGS)

Documentation

Concatenate STRINGS and fill as a doc string.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-common.el.gz
(defun erc--fill-module-docstring (&rest strings)
  "Concatenate STRINGS and fill as a doc string."
  ;; Perhaps it's better to mimic `internal--format-docstring-line'
  ;; and use basic filling instead of applying a major mode?
  (with-temp-buffer
    (delay-mode-hooks
      (if (fboundp 'lisp-data-mode) (lisp-data-mode) (emacs-lisp-mode)))
    (insert (format "%S" (apply #'concat strings)))
    (goto-char (point-min))
    (forward-line)
    (let ((fill-column 65)
          (sentence-end-double-space t))
      (fill-paragraph))
    (goto-char (point-min))
    (read (current-buffer))))