# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 722904931 0
# Node ID 35fbd349c58d7dcce1064fb25d4c324f9f7f58e7
# Parent  150011471634944d4f74cb38b695987e4f293768
(add-change-log-entry): Expand file-name again after chasing links.

diff -r 150011471634 -r 35fbd349c58d lisp/add-log.el
--- 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