# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1173120396 0
# Node ID 2a5ebeee48fce8c6c3ee1c913bdae7326d990d6f
# Parent  82bf47521df920b4c286e1bc833d267325d970e2
(find-file-noselect): No error if file no longer exists.
Display a message and avoid other questions.

diff -r 82bf47521df9 -r 2a5ebeee48fc lisp/files.el
--- a/lisp/files.el	Mon Mar 05 18:39:31 2007 +0000
+++ b/lisp/files.el	Mon Mar 05 18:46:36 2007 +0000
@@ -1474,11 +1474,12 @@
 	  (error "Aborted"))
 	(if buf
 	    ;; We are using an existing buffer.
-	    (progn
+	    (let (nonexistent)
 	      (or nowarn
 		  (verify-visited-file-modtime buf)
 		  (cond ((not (file-exists-p filename))
-			 (error "File %s no longer exists!" filename))
+			 (setq nonexistent t)
+			 (message "File %s no longer exists!" filename))
 			;; Certain files should be reverted automatically
 			;; if they have changed on disk and not in the buffer.
 			((and (not (buffer-modified-p buf))
@@ -1515,7 +1516,8 @@
 		;; writable and vice versa, but if the buffer agrees
 		;; with the new state of the file, that is ok too.
 		(let ((read-only (not (file-writable-p buffer-file-name))))
-		  (unless (or (eq read-only buffer-file-read-only)
+		  (unless (or nonexistent
+			      (eq read-only buffer-file-read-only)
 			      (eq read-only buffer-read-only))
 		    (when (or nowarn
 			      (let ((question
@@ -1528,6 +1530,7 @@
 
 		(when (and (not (eq (not (null rawfile))
 				    (not (null find-file-literally))))
+			   (not nonexistent)
 			   ;; It is confusing to ask whether to visit
 			   ;; non-literally if they have the file in
 			   ;; hexl-mode.