(add-change-log-entry): Expand file-name again after chasing links.

This commit is contained in:
Richard M. Stallman 1992-11-27 22:55:31 +00:00
parent a22b53407d
commit e12d0df704

View file

@ -68,7 +68,8 @@ Third arg OTHER-WINDOW non-nil means visit in other window."
;; Chase links before visiting the file.
;; This makes it easier to use a single change log file
;; for several related directories.
(setq file-name (or (file-symlink-p file-name) file-name))
(setq file-name
(expand-file-name (or (file-symlink-p file-name) file-name)))
(set (make-local-variable 'change-log-default-name) file-name)
(if buffer-file-name
(setq entry (if (string-match