diff options
author | Roland McGrath <[email protected]> | 1993-06-25 22:01:47 +0000 |
---|---|---|
committer | Roland McGrath <[email protected]> | 1993-06-25 22:01:47 +0000 |
commit | 1438263db4f48e948ee83a7a014b3043b03307ee (patch) | |
tree | c6d9aa296d5dc5d123ee785efbfdcd363518778a /lisp/add-log.el | |
parent | e294d0c380967ff3cabda94fb28608a46d0fdeb0 (diff) |
(find-change-log): Try get-file-buffer before file-exists-p.
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 6c468a919e..1277fd7e7b 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -75,7 +75,7 @@ current buffer to the complete file name." ;; Move up in the dir hierarchy till we find a change log file. (let ((file1 file-name) parent-dir) - (while (and (not (file-exists-p file1)) + (while (and (not (or (get-file-buffer file1) (file-exists-p file1))) (progn (setq parent-dir (file-name-directory (directory-file-name @@ -86,7 +86,7 @@ current buffer to the complete file name." ;; Move up to the parent dir and try again. (setq file1 (expand-file-name (change-log-name) parent-dir))) ;; If we found a change log in a parent, use that. - (if (file-exists-p file1) + (if (or (get-file-buffer file1) (file-exists-p file1)) (setq file-name file1))) ;; Make a local variable in this buffer so we needn't search again. (set (make-local-variable 'change-log-default-name) file-name) |