(after-find-file): Don't print a message ``New file''

if WARN is nil.

(after-find-file): Don't print a message ``New file''
if WARN is nil.
53bb90ca · Gerd Moellmann · 2488aba5 · 53bb90ca
Commit 53bb90ca authored Oct 24, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/files.el lisp/files.el +1 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1263,7 +1263,7 @@ unless NOMODES is non-nil."
 		       (format "%s has auto save data; consider M-x recover-file"
 			       (file-name-nondirectory buffer-file-name))
 		     (setq not-serious t)
-		     (if error "(New file)" nil)))
+		     (if (and warn error) "(New file)" nil)))
 		  ((not error)
 		   (setq not-serious t)
 		   "Note: file is write protected")