diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-08 22:24:05 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-08 22:24:05 +0000 |
| commit | 449decf581c0092e3048c9529dbe747b8b1619d3 (patch) | |
| tree | eeca36b8d1089df012e87a8bb4edd79ed34366ed /lisp | |
| parent | f768c9cdc9405f1a487fa4c2f3b67c2a1ab623d5 (diff) | |
| download | emacs-449decf581c0092e3048c9529dbe747b8b1619d3.tar.gz emacs-449decf581c0092e3048c9529dbe747b8b1619d3.tar.bz2 emacs-449decf581c0092e3048c9529dbe747b8b1619d3.zip | |
(vc-update-change-log): Use add-log-full-name and
add-log-mailing-address if they are defined.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc.el | 12 |
1 files 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 |