Commit 9a6015e8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Finish previous change.

parent 411d5924
......@@ -59,7 +59,9 @@ current buffer to the complete file name."
(and buffer-file-name
(let (temp (file buffer-file-name))
(while (setq temp (file-symlink-p file))
(setq file temp))
(setq file
(expand-file-name
temp (file-name-directory file))))
(file-name-directory file)))
default-directory)))
(if (and (eq file-name change-log-default-name)
......@@ -74,7 +76,8 @@ current buffer to the complete file name."
;; for several related directories.
(let (temp)
(while (setq temp (file-symlink-p file-name))
(setq file-name temp)))
(setq file-name
(expand-file-name temp (file-name-directory file-name)))))
(setq file-name (expand-file-name file-name))
;; Move up in the dir hierarchy till we find a change log file.
(let ((file1 file-name)
......
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