mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2018-04-15 21:03:34 +02:00
parent b72de45eb0
commit 2e1caf3254
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/files.el
View file

@ -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))))