Function: log-edit-done-strip-cvs-lines

log-edit-done-strip-cvs-lines is an interactive and byte-compiled function defined in log-edit.el.gz.

Signature

(log-edit-done-strip-cvs-lines &optional INTERACTIVE)

Documentation

Strip lines starting with "CVS:" from commit log message.

When not called interactively do this only when the VC backend is CVS. This mimicks what CVS does when invoked as 'cvs commit [files...]'.

Probably introduced at or before Emacs version 31.1.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/log-edit.el.gz
(defun log-edit-done-strip-cvs-lines (&optional interactive)
  "Strip lines starting with \"CVS:\" from commit log message.
When not called interactively do this only when the VC backend is CVS.
This mimicks what CVS does when invoked as \\='cvs commit [files...]'."
  (interactive "p")
  (when (or interactive (eq log-edit-vc-backend 'CVS))
    (let ((case-fold-search nil))
      (goto-char (point-min))
      ;; NB: While CVS defines CVSEDITPREFIX as "CVS: " it actually
      ;; checks only the first four characters of af a line, i.e. "CVS:"
      ;; to deal with editors that strip trailing whitespace.
      ;; c.f. src/cvs.h and src/logmsg.c:do_editor()
      (flush-lines "^CVS:"))))