# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764993651 0
# Node ID 3a0db3b2366cefc047afadc104eb0cb975d25c64
# Parent  4c20c6b1d2c2b30abee7be743f1ee4c5759a2c69
(vc-checkin): Undo previous change.

diff -r 4c20c6b1d2c2 -r 3a0db3b2366c lisp/vc.el
--- 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.