Mercurial > emacs
changeset 1644:35fbd349c58d
(add-change-log-entry): Expand file-name again after chasing links.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 27 Nov 1992 22:55:31 +0000 |
parents | 150011471634 |
children | fb092d69da76 |
files | lisp/add-log.el |
diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Thu Nov 26 18:32:45 1992 +0000 +++ b/lisp/add-log.el Fri Nov 27 22:55:31 1992 +0000 @@ -68,7 +68,8 @@ ;; 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