mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
add-log-mailing-address if they are defined.
This commit is contained in:
Karl Heuer 1996-01-08 22:24:05 +00:00
parent f768c9cdc9
commit 449decf581
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/vc.el
View File

@ -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