changeset 1644:35fbd349c58d

(add-change-log-entry): Expand file-name again after chasing links.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 Nov 1992 22:55:31 +0000
parents 150011471634
children fb092d69da76
files lisp/add-log.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Thu Nov 26 18:32:45 1992 +0000
+++ b/lisp/add-log.el	Fri Nov 27 22:55:31 1992 +0000
@@ -68,7 +68,8 @@
     ;; Chase links before visiting the file.
     ;; This makes it easier to use a single change log file
     ;; for several related directories.
-    (setq file-name (or (file-symlink-p file-name) file-name))
+    (setq file-name
+	  (expand-file-name (or (file-symlink-p file-name) file-name)))
     (set (make-local-variable 'change-log-default-name) file-name)
     (if buffer-file-name
 	(setq entry (if (string-match