Function: change-log-read-defuns

change-log-read-defuns is a byte-compiled function defined in add-log.el.gz.

Signature

(change-log-read-defuns &optional END)

Documentation

Read ChangeLog formatted function names at point until END.

Move point to the end of names read and return the function names as a list of strings.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/add-log.el.gz
(defvar change-log-tag-re) ; add-log.el
(defun change-log-read-defuns (&optional end)
  "Read ChangeLog formatted function names at point until END.
Move point to the end of names read and return the function names
as a list of strings."
  (cl-loop while (and (skip-chars-forward ":\n[:blank:]" end)
                      (or (not end) (< (point) end))
                      (looking-at change-log-tag-re))
           do (goto-char (match-end 0))
           nconc (split-string (match-string-no-properties 1)
                               ",[[:blank:]]*" t)
           finally do (skip-chars-backward "\n[:blank:]")))