Commit 8f530b95 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 4dddb0b7
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
......
......@@ -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.
......
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