(find-file-noselect): Signal error if file is unreadable.

diff --git a/lisp/files.el b/lisp/files.el
index 18aa7d85891f54f1508e7780f3c6785f83f05182..41f3c2d237ef2283ca8a1d657a4eb09df40d67b6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -914,11 +914,19 @@ Optional second arg RAWFILE non-nil means the file is read literally."
              (condition-case ()
                  (insert-file-contents-literally filename t)
                (file-error
+                (when (not (file-readable-p filename))
+                  (kill-buffer buf)
+                  (signal 'file-error (list "File is not readable"
+                                            filename)))
                 ;; Unconditionally set error
                 (setq error t)))
            (condition-case ()
                (insert-file-contents filename t)
              (file-error
+              (when (not (file-readable-p filename))
+                (kill-buffer buf)
+                (signal 'file-error (list "File is not readable"
+                                          filename)))
               ;; Run find-file-not-found-hooks until one returns non-nil.
               (or (run-hook-with-args-until-success 'find-file-not-found-hooks)
                   ;; If they fail too, set error.