Function: cvs-mode-commit

cvs-mode-commit is an interactive and byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-mode-commit SETUP)

Documentation

Check in all marked files, or the current file.

The user will be asked for a log message in a buffer. The buffer's mode and name is determined by the "message" setting
  of cvs-buffer-name-alist.
The POSTPROC specified there (typically log-edit) is then called,
  passing it the SETUP argument.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun cvs-mode-commit (setup)
  "Check in all marked files, or the current file.
The user will be asked for a log message in a buffer.
The buffer's mode and name is determined by the \"message\" setting
  of `cvs-buffer-name-alist'.
The POSTPROC specified there (typically `log-edit') is then called,
  passing it the SETUP argument."
  (interactive "P")
  ;; It seems that the save-excursion that happens if I use the better
  ;; form of `(cvs-mode! (lambda ...))' screws up a couple things which
  ;; end up being rather annoying (like log-edit-mode's message being
  ;; displayed in the wrong minibuffer).
  (cvs-mode!)
  (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
	(setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
		      'log-edit)))
    (funcall setupfun 'cvs-do-commit setup
	     '((log-edit-listfun . cvs-commit-filelist)
	       (log-edit-diff-function . cvs-mode-diff)) buf)
    (setq-local cvs-minor-wrap-function 'cvs-commit-minor-wrap)
    (run-hooks 'cvs-mode-commit-hook)))