# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 821139845 0
# Node ID c8c5b83d9691a3b31b6384383bb826a2f81853cf
# Parent  29ead09726c612a2fb2d7552af5ad67c383a7abc
(vc-update-change-log): Use add-log-full-name and
add-log-mailing-address if they are defined.

diff -r 29ead09726c6 -r c8c5b83d9691 lisp/vc.el
--- a/lisp/vc.el	Mon Jan 08 22:18:57 1996 +0000
+++ b/lisp/vc.el	Mon Jan 08 22:24:05 1996 +0000
@@ -1761,7 +1761,13 @@
 				(substring f 0 (match-end 1))
 			      f)))
 			 (directory-files RCS nil "...\\|^[^.]\\|^.[^.]")))))))
-  (let ((odefault default-directory))
+  (let ((odefault default-directory)
+	(full-name (if (boundp 'add-log-full-name)
+		       add-log-full-name
+		     (user-full-name)))
+	(mailing-address (if (boundp 'add-log-mailing-address)
+			     add-log-mailing-address
+			   user-mail-address)))
     (find-file-other-window (find-change-log))
     (barf-if-buffer-read-only)
     (vc-buffer-sync)
@@ -1775,9 +1781,9 @@
 				  "-u"
 				  (concat (user-login-name)
 					  "\t"
-					  (user-full-name)
+					  full-name
 					  "\t"
-					  user-mail-address)
+					  mailing-address)
 				  (mapcar (function
 					   (lambda (f)
 					     (file-relative-name