diff options
| author | Richard M. Stallman | 1992-11-27 22:55:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-11-27 22:55:31 +0000 |
| commit | e12d0df7040cfd607bf67a7487eddfac5979b51e (patch) | |
| tree | 8a279eb3b452a56c27519ba95b210cad9e26b427 | |
| parent | a22b53407d17373ebe07717a1c4c3957ef3d67c0 (diff) | |
| download | emacs-e12d0df7040cfd607bf67a7487eddfac5979b51e.tar.gz emacs-e12d0df7040cfd607bf67a7487eddfac5979b51e.zip | |
(add-change-log-entry): Expand file-name again after chasing links.
| -rw-r--r-- | lisp/add-log.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 780c2d84cf8..179852e1058 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -68,7 +68,8 @@ Third arg OTHER-WINDOW non-nil means visit in other window." | |||
| 68 | ;; Chase links before visiting the file. | 68 | ;; Chase links before visiting the file. |
| 69 | ;; This makes it easier to use a single change log file | 69 | ;; This makes it easier to use a single change log file |
| 70 | ;; for several related directories. | 70 | ;; for several related directories. |
| 71 | (setq file-name (or (file-symlink-p file-name) file-name)) | 71 | (setq file-name |
| 72 | (expand-file-name (or (file-symlink-p file-name) file-name))) | ||
| 72 | (set (make-local-variable 'change-log-default-name) file-name) | 73 | (set (make-local-variable 'change-log-default-name) file-name) |
| 73 | (if buffer-file-name | 74 | (if buffer-file-name |
| 74 | (setq entry (if (string-match | 75 | (setq entry (if (string-match |