Commit 411d5924 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent cbfa19e9
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment