Commit 449decf5 authored by Karl Heuer's avatar Karl Heuer

(vc-update-change-log): Use add-log-full-name and

add-log-mailing-address if they are defined.
parent f768c9cd
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment