comparison lisp/vc.el @ 6563:15c92359800c

(vc-checkin): Insert name of current defun in comment buffer.

6562:0541a368505c

The optional argument REV may be a string specifying the new version level
\(if nil increment the current level).  The file is either retained with write
permissions zeroed, or deleted (according to the value of `vc-keep-workfiles').
COMMENT is a comment string; if omitted, a buffer is
popped up to accept a comment."
  (setq vc-log-after-operation-hook 'vc-checkin-hook)
  (vc-start-entry file rev comment "Enter a change comment." 'vc-backend-checkin))

;;; Here is a checkin hook that may prove useful to sites using the
;;; ChangeLog facility supported by Emacs.
(defun vc-comment-to-change-log (&optional whoami file-name)
  "Enter last VC comment into change log file for current buffer's file.

6563:15c92359800c

The optional argument REV may be a string specifying the new version level
\(if nil increment the current level).  The file is either retained with write
permissions zeroed, or deleted (according to the value of `vc-keep-workfiles').
COMMENT is a comment string; if omitted, a buffer is
popped up to accept a comment."
  ;; If we will pop up a buffer to edit the comment, and we are in a buffer
  ;; on the file being checked in, insert a default header into the comment
  ;; buffer based on the defun point is currently in.
  (let ((defun (and (null comment) (string= file buffer-file-name)
		    (add-log-current-defun))))
    (setq vc-log-after-operation-hook 'vc-checkin-hook)
    (prog1 (vc-start-entry file rev comment "Enter a change comment."
			   'vc-backend-checkin)
      (if defun (insert "(" defun "): ")))))

;;; Here is a checkin hook that may prove useful to sites using the
;;; ChangeLog facility supported by Emacs.
(defun vc-comment-to-change-log (&optional whoami file-name)
  "Enter last VC comment into change log file for current buffer's file.