diff options
| -rw-r--r-- | lisp/files.el | 2 |
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." | |||
| 2019 | OP-TYPE specifies the file operation being performed (for message to user)." | 2019 | OP-TYPE specifies the file operation being performed (for message to user)." |
| 2020 | (when (and large-file-warning-threshold size | 2020 | (when (and large-file-warning-threshold size |
| 2021 | (> size large-file-warning-threshold) | 2021 | (> size large-file-warning-threshold) |
| 2022 | ;; No point in warning if we can't read it. | ||
| 2023 | (file-readable-p filename) | ||
| 2022 | (not (y-or-n-p (format "File %s is large (%s), really %s? " | 2024 | (not (y-or-n-p (format "File %s is large (%s), really %s? " |
| 2023 | (file-name-nondirectory filename) | 2025 | (file-name-nondirectory filename) |
| 2024 | (file-size-human-readable size) op-type)))) | 2026 | (file-size-human-readable size) op-type)))) |