From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 Aug 1993 05:47:03 +0000 (+0000)
Subject: (find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'.
X-Git-Tag: emacs-19.34~11206
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=455d9d28a99fc63dd5f792ed08da3aa0df3a7c94;p=emacs.git

(find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'.
---

diff --git a/lisp/files.el b/lisp/files.el
index b21e2736eb5..56d92806180 100644
--- 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))