From 449decf581c0092e3048c9529dbe747b8b1619d3 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 8 Jan 1996 22:24:05 +0000 Subject: [PATCH] (vc-update-change-log): Use add-log-full-name and add-log-mailing-address if they are defined. --- lisp/vc.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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 -- 2.39.2