Commit b91916f3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

add-log-mailing-address only if non-nil.
parent ad8486a5
......@@ -1770,12 +1770,10 @@ From a program, any arguments are passed to the `rcs2log' script."
f)))
(directory-files RCS nil "...\\|^[^.]\\|^.[^.]")))))))
(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)))
(full-name (or add-log-full-name
(user-full-name)))
(mailing-address (or add-log-mailing-address
user-mail-address)))
(find-file-other-window (find-change-log))
(barf-if-buffer-read-only)
(vc-buffer-sync)
......
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