Function: log-edit--insert-filled-defuns

log-edit--insert-filled-defuns is a byte-compiled function defined in log-edit.el.gz.

Signature

(log-edit--insert-filled-defuns FUNC-NAMES)

Documentation

Insert FUNC-NAMES, following ChangeLog formatting.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/log-edit.el.gz
(defun log-edit--insert-filled-defuns (func-names)
  "Insert FUNC-NAMES, following ChangeLog formatting."
  (if (not func-names)
      (insert ":")
    (unless (or (memq (char-before) '(?\n ?\s))
                (> (current-column) fill-column))
      (insert " "))
    (cl-loop for first-fun = t then nil
             for def in func-names do
             (when (> (+ (current-column) (string-width def)) fill-column)
               (unless first-fun
                 (insert ")"))
               (insert "\n"))
             (insert (if (memq (char-before) '(?\n ?\s))
                         "(" ", ")
                     def))
    (insert "):")))