HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c9ed10f
)
(find-change-log): Chase symlinks multiple levels.
author
Richard M. Stallman
<rms@gnu.org>
Fri, 28 May 1993 05:18:06 +0000
(
05:18
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Fri, 28 May 1993 05:18:06 +0000
(
05:18
+0000)
lisp/add-log.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/add-log.el
b/lisp/add-log.el
index
276fe0a
..
2c91709
100644
(file)
--- a/
lisp/add-log.el
+++ b/
lisp/add-log.el
@@
-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.
;; 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)
;; Move up in the dir hierarchy till we find a change log file.
(let ((file1 file-name)
parent-dir)