diff options
author | Roland McGrath <roland@gnu.org> | 1993-06-25 22:01:47 +0000 |
---|---|---|
committer | Roland McGrath <roland@gnu.org> | 1993-06-25 22:01:47 +0000 |
commit | aecd27ba6af613a032344c06dc27dc8d374b9ba0 (patch) | |
tree | 906301f5091199c8835a3a68a9fcca7f38b54c78 /lisp/add-log.el | |
parent | 8fc28d4ab6865d300191f10cea5bd445abab84f6 (diff) | |
download | emacs-aecd27ba6af613a032344c06dc27dc8d374b9ba0.tar.gz |
(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 6c468a919ec..1277fd7e7b3 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) |