diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-28 22:08:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-28 22:08:53 +0000 |
| commit | 14e50d6712739412b7bc7d343cc6d3466fe170b4 (patch) | |
| tree | 478d520cb30da1412a36f1b3100549d187c12b4e /lisp/add-log.el | |
| parent | de9febfec047c081b3901718a8f6ed1cae41a409 (diff) | |
| download | emacs-14e50d6712739412b7bc7d343cc6d3466fe170b4.tar.gz | |
(find-log-file): Use source file's truename dir.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 2c9170903d1..9b180566f70 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -54,6 +54,13 @@ Once a file is found, `change-log-default-name' is set locally in the current buffer to the complete file name." (or file-name (setq file-name (or change-log-default-name + ;; Chase links in the source file + ;; and use the change log in the dir where it points. + (and buffer-file-name + (let (temp (file buffer-file-name)) + (while (setq temp (file-symlink-p file)) + (setq file temp)) + (file-name-directory file))) default-directory))) (if (and (eq file-name change-log-default-name) (assq 'change-log-default-name (buffer-local-variables))) |