changeset 3201:6ae7487f1a3d

(find-change-log): Chase symlinks multiple levels.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 May 1993 05:18:06 +0000
parents add7f1e21bee
children dda1a74daff6
files lisp/add-log.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Fri May 28 04:52:55 1993 +0000
+++ b/lisp/add-log.el	Fri May 28 05:18:06 1993 +0000
@@ -65,8 +65,10 @@
     ;; 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)