Mercurial > emacs
changeset 6581:3a0db3b2366c
(vc-checkin): Undo previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 30 Mar 1994 02:14:11 +0000 |
| parents | 4c20c6b1d2c2 |
| children | bac8e17d51b3 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 3 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Wed Mar 30 01:43:37 1994 +0000 +++ b/lisp/vc.el Wed Mar 30 02:14:11 1994 +0000 @@ -605,15 +605,9 @@ 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.