From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Mar 2007 18:46:36 +0000 (+0000)
Subject: (find-file-noselect): No error if file no longer exists.
X-Git-Tag: emacs-pretest-22.0.96~240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c5b1db7f5d4582ee735b2f33b29616f5e370244;p=emacs.git

(find-file-noselect): No error if file no longer exists.
Display a message and avoid other questions.
---

diff --git a/lisp/files.el b/lisp/files.el
index 719cda70739..02b50123a50 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1474,11 +1474,12 @@ the various files."
 	  (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 @@ the various files."
 		;; 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 @@ the various files."
 
 		(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.