procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(find-change-log): Chase symlinks multiple levels.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-28 05:18:06 +00:00
parent c9ed10f6f5
commit 4e44c03b9e
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/add-log.el
View file

@ -65,8 +65,10 @@ current buffer to the complete file name."
;; Chase links before visiting the file.
;; This makes it easier to use a single change log file
;; for several related directories.
(setq file-name
(expand-file-name (or (file-symlink-p file-name) file-name)))
(let (temp)
(while (setq temp (file-symlink-p file-name))
(setq file-name temp)))
(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)
parent-dir)