diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-28 22:12:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-28 22:12:56 +0000 |
| commit | 9a6015e8660fd1437dfe72f75a6b9ee6fcfb2a73 (patch) | |
| tree | 4e62e96502c21c1eb7b801d5421af83a7ccaea7e /lisp/add-log.el | |
| parent | 411d5924a8ff01b45101ba178ab7e7021a987b7b (diff) | |
| download | emacs-9a6015e8660fd1437dfe72f75a6b9ee6fcfb2a73.tar.gz | |
Finish previous change.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 9b180566f70..cca58931a37 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -59,7 +59,9 @@ current buffer to the complete file name." (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 @@ current buffer to the complete file name." ;; 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) |