# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745393623 0
# Node ID f00c973bc8a42800409df8bc533ecf430d362243
# Parent  e19a647611876abf1232d90b929d90db6518addd
(find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'.

diff -r e19a64761187 -r f00c973bc8a4 lisp/files.el
--- a/lisp/files.el	Sun Aug 15 04:38:25 1993 +0000
+++ b/lisp/files.el	Sun Aug 15 05:47:03 1993 +0000
@@ -652,7 +652,11 @@
 	     ;; 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))