HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
690a797
)
(find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'.
author
Richard M. Stallman
<rms@gnu.org>
Sun, 15 Aug 1993 05:47:03 +0000
(
05:47
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Sun, 15 Aug 1993 05:47:03 +0000
(
05:47
+0000)
lisp/files.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/files.el
b/lisp/files.el
index
b21e273
..
56d9280
100644
(file)
--- a/
lisp/files.el
+++ b/
lisp/files.el
@@
-652,7
+652,11
@@
The buffer is not selected, just returned to the caller."
;; Run find-file-not-found-hooks until one returns non-nil.
(let ((hooks find-file-not-found-hooks))
(while (and hooks
- (not (funcall (car hooks))))
+ (not (and (funcall (car hooks))
+ ;; If a hook succeeded, clear error.
+ (progn (setq error nil)
+ ;; Also exit the loop.
+ t))))
(setq hooks (cdr hooks))))))
;; Find the file's truename, and maybe use that as visited name.
(setq buffer-file-truename (abbreviate-file-name truename))