Mercurial > emacs
changeset 34576:372841b7a5ad
(add-change-log-entry): Only expand-file-name if non-nil.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 14 Dec 2000 17:29:47 +0000 |
| parents | 7b311c205762 |
| children | 57befc9b6311 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.