Don't warn the user about large files if they are unreadable

* lisp/files.el (abort-if-file-too-large): There's no point in
warning the user about a too-large file if we're not able to read
it (bug#29549).  Hopefully this doesn't introduce a race condition
between this test and the `file-readable-p' test later.

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 67a9abfa764..d98d09bb1e3 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2019,6 +2019,8 @@ think it does, because \"free\" is pretty hard to define in practice."
 OP-TYPE specifies the file operation being performed (for message to user)."
   (when (and large-file-warning-threshold size
              (> size large-file-warning-threshold)
+             ;; No point in warning if we can't read it.
+             (file-readable-p filename)
              (not (y-or-n-p (format "File %s is large (%s), really %s? "
                                     (file-name-nondirectory filename)
                                     (file-size-human-readable size) op-type))))