From: Lars Ingebrigtsen Date: Sun, 15 Apr 2018 19:03:34 +0000 (+0200) Subject: Don't warn the user about large files if they are unreadable X-Git-Tag: emacs-27.0.90~5178 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e1caf3254ba6bf6bd764b60b24e298995ec2cb9;p=emacs.git 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. --- 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))))