[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 <rpluim@gmail.com> 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.
GianUberto.Lauri@eng.it
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 <saint@eng.it>
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