From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 Mar 1996 13:25:21 +0000 (+0000)
Subject: (vc-update-change-log): Use add-log-full-name and
X-Git-Tag: emacs-19.34~1005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b91916f3301efb8946ebed211fff895e51793e24;p=emacs.git

(vc-update-change-log): Use add-log-full-name and
add-log-mailing-address only if non-nil.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index d8605b9fa12..4578d8211e3 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -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)