Subject: Re: bug#32056: Small patch

From: "Gian Uberto Lauri" <[email-masked]>
Date: Thu, 5 Jul 2018 18:09:33 +0200

>>>>> "RP" == Robert Pluim <[email-masked]> writes:

RP> Without seeing your patch, thatʼs hard to answer.

This is the patch (attached). Your judgment holds.

Nevertheless, any suggestion is welcomed.

-- 
ing. Gian Uberto Lauri
Senior Solution Developer
Dir. Tecnica Innovazione Ricerca / Tech. Innovation & Research Div.
[email-masked]

Sun Java Certified Programmer

Engineering Ingegneria Informatica spa
Corso Stati Uniti 23/C, 35127 Padova (PD)

Tel. +39-049.8283.533         | main(){printf(&unix["\021%six\012\0"],
Fax  +39-049.8283.569		  |    (unix)["have"]+"fun"-0x60);}
http://www.eng.it          	  |          David Korn, AT&T Bell Labs
                  			  |          ioccc best One Liner, 1987

>From d7660a3dcead87f4c03b8c12452d02f9b576c338 Mon Sep 17 00:00:00 2001
From: Gian Uberto Lauri <[email-masked]>
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