(add-change-log-entry): Only expand-file-name if non-nil.

lisp/ChangeLog

+2000-12-14  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* add-log.el (add-change-log-entry): Only expand-file-name if non-nil.
+
 2000-12-14  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* paths.el (Info-default-directory-list): If

lisp/add-log.el

@@ -432,10 +432,10 @@ non-nil, otherwise in local time."
   (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.