(find-log-file): Use source file's truename dir.

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)))