From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 8 Jan 1996 22:24:05 +0000 (+0000)
Subject: (vc-update-change-log): Use add-log-full-name and
X-Git-Tag: emacs-19.34~1807
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=449decf581c0092e3048c9529dbe747b8b1619d3;p=emacs.git

(vc-update-change-log): Use add-log-full-name and
add-log-mailing-address if they are defined.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index e71dd51cef6..386b62abe35 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1761,7 +1761,13 @@ From a program, any arguments are passed to the `rcs2log' script."
 				(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 @@ From a program, any arguments are passed to the `rcs2log' script."
 				  "-u"
 				  (concat (user-login-name)
 					  "\t"
-					  (user-full-name)
+					  full-name
 					  "\t"
-					  user-mail-address)
+					  mailing-address)
 				  (mapcar (function
 					   (lambda (f)
 					     (file-relative-name