From d7660a3dcead87f4c03b8c12452d02f9b576c338 Mon Sep 17 00:00:00 2001 From: Gian Uberto Lauri Date: Thu, 5 Jul 2018 18:06:05 +0200 Subject: [PATCH] Do not warn for size on these files Added a list of file for which no warning is issued when their size exceeds large-file-warning-threshold Changes to be committed: modified: lisp/files.el --- lisp/files.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 84e0304..e2a8055 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -219,6 +219,10 @@ small-temporary-file-directory ;; The system null device. (Should reference NULL_DEVICE from C.) (defvar null-device (purecopy "/dev/null") "The system null device.") +;; I am unsure if letting this customizable is a good idea. +(defvar ignore-file-size-list '() "A list of file for which the user is +not warned when the size exceeds `large-file-warning-threshold'." ) + (declare-function msdos-long-file-names "msdos.c") (declare-function w32-long-file-name "w32proc.c") (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) @@ -2070,6 +2074,12 @@ abort-if-file-too-large (> size large-file-warning-threshold) ;; No point in warning if we can't read it. (file-readable-p filename) + ;; The user does not want to be bothered for + ;; these files (full path). + (not (let (rv) + (dolist (test-file-name ignore-file-size-list rv) + (setq rv + (or rv (string= filename test-file-name)))))) (files--ask-user-about-large-file size op-type filename offer-raw)))) (when (eq choice 'abort) @@ -2134,7 +2144,7 @@ find-file-noselect (find-file-wildcards nil)) (if (null files) (find-file-noselect filename) - (mapcar #'find-file-noselect files))) + (mapcar 'find-file-noselect files))) (let* ((buf (get-file-buffer filename)) (truename (abbreviate-file-name (file-truename filename))) (attributes (file-attributes truename)) @@ -2155,7 +2165,7 @@ find-file-noselect ;; Check to see if the file looks uncommonly large. (when (not (or buf nowarn)) (when (eq (abort-if-file-too-large - (nth 7 attributes) "open" filename );; t) fourth argument is in excess... + (nth 7 attributes) "open" filename t) 'raw) (setf rawfile t)) (warn-maybe-out-of-memory (nth 7 attributes))) -- 2.7.4