Mercurial > emacs

comparison lisp/add-log.el @ 3201:6ae7487f1a3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-change-log): Chase symlinks multiple levels.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 May 1993 05:18:06 +0000
parents 8291de1718d4
children 8e605e107faa
comparison
equal deleted inserted replaced
3200:add7f1e21bee 3201:6ae7487f1a3d
63 (if (file-directory-p file-name) 63 (if (file-directory-p file-name)
64 (setq file-name (expand-file-name (change-log-name) file-name))) 64 (setq file-name (expand-file-name (change-log-name) file-name)))
65 ;; Chase links before visiting the file. 65 ;; Chase links before visiting the file.
66 ;; This makes it easier to use a single change log file 66 ;; This makes it easier to use a single change log file
67 ;; for several related directories. 67 ;; for several related directories.
68 (setq file-name 68 (let (temp)
69 (expand-file-name (or (file-symlink-p file-name) file-name))) 69 (while (setq temp (file-symlink-p file-name))
70 (setq file-name temp)))
71 (setq file-name (expand-file-name file-name))
70 ;; Move up in the dir hierarchy till we find a change log file. 72 ;; Move up in the dir hierarchy till we find a change log file.
71 (let ((file1 file-name) 73 (let ((file1 file-name)
72 parent-dir) 74 parent-dir)
73 (while (and (not (file-exists-p file1)) 75 (while (and (not (file-exists-p file1))
74 (progn (setq parent-dir 76 (progn (setq parent-dir