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

(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." ...@@ -1761,7 +1761,13 @@ From a program, any arguments are passed to the `rcs2log' script."
(substring f 0 (match-end 1)) (substring f 0 (match-end 1))
f))) f)))
(directory-files RCS nil "...\\|^[^.]\\|^.[^.]"))))))) (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)) (find-file-other-window (find-change-log))
(barf-if-buffer-read-only) (barf-if-buffer-read-only)
(vc-buffer-sync) (vc-buffer-sync)
...@@ -1775,9 +1781,9 @@ From a program, any arguments are passed to the `rcs2log' script." ...@@ -1775,9 +1781,9 @@ From a program, any arguments are passed to the `rcs2log' script."
"-u" "-u"
(concat (user-login-name) (concat (user-login-name)
"\t" "\t"
(user-full-name) full-name
"\t" "\t"
user-mail-address) mailing-address)
(mapcar (function (mapcar (function
(lambda (f) (lambda (f)
(file-relative-name (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