# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 976814987 0
# Node ID 372841b7a5ada3ddc71220e33a6b8327b4d09907
# Parent  7b311c2057623f5f1d50ac846fca3ceefdfd8659
(add-change-log-entry): Only expand-file-name if non-nil.

diff -r 7b311c205762 -r 372841b7a5ad lisp/add-log.el
--- a/lisp/add-log.el	Thu Dec 14 17:14:32 2000 +0000
+++ b/lisp/add-log.el	Thu Dec 14 17:29:47 2000 +0000
@@ -432,10 +432,10 @@
   (let* ((defun (add-log-current-defun))
 	 (version (and change-log-version-info-enabled
 		       (change-log-version-number-search)))
-	 (buffer-file
-	  (expand-file-name (if add-log-buffer-file-name-function
-				(funcall add-log-buffer-file-name-function)
-			      buffer-file-name)))
+	 (buf-file-name (if add-log-buffer-file-name-function
+			    (funcall add-log-buffer-file-name-function)
+			  buffer-file-name))
+	 (buffer-file (if buf-file-name (expand-file-name buf-file-name)))
 	 (file-name (expand-file-name
 		     (or file-name (find-change-log file-name buffer-file))))
 	 ;; Set ENTRY to the file name to use in the new entry.