mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(vc-checkin): Undo previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1994-03-30 02:14:11 +00:00
parent 2fc9d9f462
commit 61446fe76f
1 changed files with 3 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc.el
View file

@ -605,15 +605,9 @@ The optional argument REV may be a string specifying the new version level
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 "): ")))))
(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.