changeset 14053:c8c5b83d9691

(vc-update-change-log): Use add-log-full-name and add-log-mailing-address if they are defined.
author Karl Heuer <kwzh@gnu.org>
date Mon, 08 Jan 1996 22:24:05 +0000
parents 29ead09726c6
children 103a1b22fcd8
files lisp/vc.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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