Mercurial > emacs
changeset 3897:83d0fc1ccca9
(find-change-log): Try get-file-buffer before file-exists-p.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 25 Jun 1993 22:01:47 +0000 |
| parents | bea021b3124a |
| children | 92d25f36e8aa |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Fri Jun 25 21:57:48 1993 +0000 +++ b/lisp/add-log.el Fri Jun 25 22:01:47 1993 +0000 @@ -75,7 +75,7 @@ ;; 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 @@ ;; 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)