From 455d9d28a99fc63dd5f792ed08da3aa0df3a7c94 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 15 Aug 1993 05:47:03 +0000 Subject: [PATCH] (find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'. --- lisp/files.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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))