Mercurial > emacs
comparison lisp/add-log.el @ 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 | 75fa9ad982a5 |
| children | d6cc12c97a59 |
comparison
equal
deleted
inserted
replaced
| 1643:150011471634 | 1644:35fbd349c58d |
|---|---|
| 66 (expand-file-name (change-log-name) file-name) | 66 (expand-file-name (change-log-name) file-name) |
| 67 (expand-file-name file-name))) | 67 (expand-file-name file-name))) |
| 68 ;; Chase links before visiting the file. | 68 ;; Chase links before visiting the file. |
| 69 ;; This makes it easier to use a single change log file | 69 ;; This makes it easier to use a single change log file |
| 70 ;; for several related directories. | 70 ;; for several related directories. |
| 71 (setq file-name (or (file-symlink-p file-name) file-name)) | 71 (setq file-name |
| 72 (expand-file-name (or (file-symlink-p file-name) file-name))) | |
| 72 (set (make-local-variable 'change-log-default-name) file-name) | 73 (set (make-local-variable 'change-log-default-name) file-name) |
| 73 (if buffer-file-name | 74 (if buffer-file-name |
| 74 (setq entry (if (string-match | 75 (setq entry (if (string-match |
| 75 (concat "^" (regexp-quote (file-name-directory | 76 (concat "^" (regexp-quote (file-name-directory |
| 76 file-name))) | 77 file-name))) |