[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#32056: Small patch

From: Gian Uberto Lauri
Subject: bug#32056: Small patch
Date: Thu, 5 Jul 2018 18:09:33 +0200

>>>>> "RP" == Robert Pluim <address@hidden> 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.

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 <address@hidden>
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 
@@ -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 
                       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)
             (setf rawfile t))
          (warn-maybe-out-of-memory (nth 7 attributes)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]