Mercurial > emacs

changeset 3222:f37166b46007

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish previous change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 May 1993 22:12:56 +0000
parents 8e605e107faa
children 28a9541901d7
files lisp/add-log.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Fri May 28 22:08:53 1993 +0000
+++ b/lisp/add-log.el	Fri May 28 22:12:56 1993 +0000
@@ -59,7 +59,9 @@
 			  (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 @@
     ;; 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)