From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: "Gian Uberto Lauri" Newsgroups: gmane.emacs.bugs Subject: bug#32056: Small patch Date: Thu, 5 Jul 2018 18:09:33 +0200 Message-ID: <23358.17085.759649.529099@mail.eng.it> References: <23357.55055.302384.449502@mail.eng.it> <87in5uoubg.fsf@gmail.com> <23358.9317.518524.506241@mail.eng.it> <87efghpwww.fsf@gmail.com> Reply-To: Gian Uberto Lauri NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="8qv3hw0SVa" Content-Transfer-Encoding: 7bit X-Trace: blaine.gmane.org 1530807308 15908 195.159.176.226 (5 Jul 2018 16:15:08 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Thu, 5 Jul 2018 16:15:08 +0000 (UTC) Cc: 32056@debbugs.gnu.org, Gian Uberto Lauri To: Robert Pluim Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jul 05 18:15:03 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fb6uN-0003zm-EX for geb-bug-gnu-emacs@m.gmane.org; Thu, 05 Jul 2018 18:15:03 +0200 Original-Received: from localhost ([::1]:53602 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fb6wU-000334-E5 for geb-bug-gnu-emacs@m.gmane.org; Thu, 05 Jul 2018 12:17:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56958) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fb6pc-0005VJ-0T for bug-gnu-emacs@gnu.org; Thu, 05 Jul 2018 12:10:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fb6pW-0003yj-Vm for bug-gnu-emacs@gnu.org; Thu, 05 Jul 2018 12:10:07 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:40045) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fb6pW-0003yM-Mr for bug-gnu-emacs@gnu.org; Thu, 05 Jul 2018 12:10:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fb6pW-0007qQ-AT for bug-gnu-emacs@gnu.org; Thu, 05 Jul 2018 12:10:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Gian Uberto Lauri" Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 05 Jul 2018 16:10:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 32056 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: notabug Original-Received: via spool by 32056-submit@debbugs.gnu.org id=B32056.153080698930130 (code B ref 32056); Thu, 05 Jul 2018 16:10:02 +0000 Original-Received: (at 32056) by debbugs.gnu.org; 5 Jul 2018 16:09:49 +0000 Original-Received: from localhost ([127.0.0.1]:47942 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fb6pJ-0007pu-AH for submit@debbugs.gnu.org; Thu, 05 Jul 2018 12:09:49 -0400 Original-Received: from mail-db5eur01on0070.outbound.protection.outlook.com ([104.47.2.70]:9024 helo=EUR01-DB5-obe.outbound.protection.outlook.com) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fb6pF-0007pc-AR for 32056@debbugs.gnu.org; Thu, 05 Jul 2018 12:09:47 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=engit.onmicrosoft.com; s=selector1-eng-it; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=JU0sCzSFkptRyidCBkdfuDRaS2++31KV+aPM3/APHHg=; b=VaWNpU64gWJnk2/rkDFyAe7Zgf3fZqZD+gHNu8bBTqJ60MUKLu42Gu5t6pFvlA9bPuJR0aFd9hVgqChrkNzorHsxuQRvVo8tpOxKBAAKBAprJxcqclshWMpP79GGnbM75ocK4lfYxBpLAjjASerBiicE2shW1L7SLLvF7kBSLKg= Authentication-Results: spf=none (sender IP is ) smtp.mailfrom=GianUberto.Lauri@eng.it; Original-Received: from t65.eng.it (217.172.9.110) by VI1PR0102MB3549.eurprd01.prod.exchangelabs.com (2603:10a6:803:19::19) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.906.26; Thu, 5 Jul 2018 16:09:37 +0000 In-Reply-To: <87efghpwww.fsf@gmail.com> X-Mailer: VM 8.2.0b under 27.0.50 (x86_64-pc-linux-gnu) X-attribution: CC X-echelon-food: Terror UT/RUS AGT. AMME Saudi Arabia FBIS MIT ACC Typhoon Morwenstow Wackendude New Federation Domestic nuclear detection Reyosa BOP USCOI X-Originating-IP: [217.172.9.110] X-ClientProxiedBy: HE1PR07CA0040.eurprd07.prod.outlook.com (2603:10a6:7:66::26) To VI1PR0102MB3549.eurprd01.prod.exchangelabs.com (2603:10a6:803:19::19) X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: b3413bda-6b53-4ac6-9387-08d5e291b51a X-Microsoft-Antispam: UriScan:; BCL:0; PCL:0; RULEID:(7020095)(4652040)(8989117)(5600053)(711020)(4534165)(4627221)(201703031133081)(201702281549075)(8990107)(2017052603328)(7153060)(49563074)(7193020); SRVR:VI1PR0102MB3549; X-Microsoft-Exchange-Diagnostics: 1; VI1PR0102MB3549; 3:JJHijEjL+mZ2k2+T2WGNoOb7PbcULvHdbn0IGuL+C2qK1S+DnjHEXNRValNfgeEtwQOA8xwG2Ve5B2t0EWh4OcJJorgS07X5U2Ps2gAE2jmSlzcB6nPYRy99M4iLKK2TZJJni92Pcoc8RdNCOR9o+i02FDss3reuI1ixMCbiVvOJirxWjKpkDflTc2ROSji4aXyBPPGwnia3w6NTRx4bgJGHWfx5hmxfSQK2Z98atofkZqimAd+OtsbP+KkWn8dy; 25:acAlPP5BbwDx87xi30hK2HSVRuU/cK1k1KE7a2eY/QTUsNpDJ7Fh3dD6Ar+rksp4WePaNqHqCUzJGuR8SZ+usiOGFCi8a+jJ+r+ARIeelti5YPPara3c9+3pUxuxZaWHdr970+m7w8lI/qq5RxS/i8AAIF3Lib2b0eUpIqbWkBk/ESz6iBU94MjtAFmL750r8FgVIpWwAFZlIPr66mJ0/I0NyMkJdsbnSUqhdKgeVsjpRkOsjOuH/qfKj98+QIZhL6ev+YcgavKyyl/jM0tdkptBo26xH3zoy0wgss/AfMKV3dIqV/xirnpkNNUd7pPZ/ydBUmlcFe8TwRsqYvaQsA==; 31:GVfeTUxJY7lgIG2LNy7V4eLKpm5KVDPGG/E8BlI4hQ+jQe+sojn/vvHHg+6Apfj07fyfr3gLg/0hXAsfyiPJj/N+RfNEBY6LMoabReiwHWKVyflaREF6rkd2UQR5HYL9QBThzqFuEPKZMjGCO/CYU88WF3NVb+PlRR1YIHZpJzTdH4hnq3qcyseMzMj9LCFDB4GO208mg+PPrYMOKHdS2pt8cE+4t7Oi2sb27C/ X-MS-TrafficTypeDiagnostic: VI1PR0102MB3549: X-Microsoft-Exchange-Diagnostics: 1; VI1PR0102MB3549; 20:jXgom0NgNrc8MaD2n/T+Kl8mz0/GN5Jub9p/7EsxZYEiiCh9tVBlqbUtY6HTXqf2PzUXzEn1gduRhMihEeTuBhEoJ6vKAMVmne+i5esvFdJHfiJvddlQX06gV8ibK+mRm3VWp2NxzYWhIkE8YyI0XIj0+vcHkUdvCXrnmIb6CmbCoD608oUvJYhLWJxB5+cXrP4LAJLrrTLfWuwW+MKI6YlmfEdAljrx9JmgYVMY+sLTzdYLSiY+LPwkhvunauWOOACdxvP79b7LcGL2IVeY5aUN0yVUvk7uGk+q7Pj9f1jxE8FxDZFFAk6hY3L/hpsTuz/M5OAeJcWrWgQskP0GuNtDUs9XD6aODYviZwe4kKLrmsHAuPQxvm7oEYQL6g5KnXU99Oi4k9XQDml1NhlNeXsv52U/jTXbt52ZyaeoIkspeJ7BAFpSWfz5fkrRlxLQ; 4:mGVUMZnBehdRLumYsd9IF8v7enRhjXD+VVvhCW17o30JpbpRd2Jq9dKEQn5u96b20laPbyTTtMy/n3VcrD6xZDAgT85QJkNfzRupxcBe+JNhNK+YvlY9W53/wl1ik/YeoWWk3qwCYfWEVgxi1O/xtbrXiloqTj9SB6vZMW6bujVyT4yEe1ymHzOGfyV7pMia1Pwex0Iz6tFGlfU7iYWnL86A5NQVGMkgSJK9Vyiwp8NaJovW0y4WXryyAz0KN8JRA1gAc0wi51fLM1g7Tz3ERldGBaL/oQk5pGsM+XAgqvL3G+PdAKXikTwVkWoavO8roo0BLsihDSGj4vPSPTP9QB39XIk5KP5VEEvUtbKTP8oJq5FiYjC5Kqzg/GtY+Hi9 X-Microsoft-Antispam-PRVS: X-Exchange-Antispam-Report-Test: UriScan:(270366313237937)(85827821059158)(181279941976691); X-MS-Exchange-SenderADCheck: 1 X-Exchange-Antispam-Report-CFA-Test: BCL:0; PCL:0; RULEID:(8211001083)(102415395)(6040522)(2401047)(5005006)(8121501046)(3231254)(944501410)(52105095)(93006095)(93001095)(10201501046)(3002001)(149027)(150027)(6041310)(201703131423095)(201702281528075)(20161123555045)(201703061421075)(201703061406153)(20161123564045)(20161123558120)(20161123560045)(20161123562045)(6072148)(201708071742011)(7699016); SRVR:VI1PR0102MB3549; BCL:0; PCL:0; RULEID:; SRVR:VI1PR0102MB3549; X-Forefront-PRVS: 0724FCD4CD X-Forefront-Antispam-Report: SFV:NSPM; SFS:(10009020)(136003)(39860400002)(396003)(366004)(346002)(376002)(199004)(189003)(4326008)(53546011)(8676002)(72206003)(5024004)(478600001)(103116003)(14444005)(1411001)(6512007)(2476003)(54906003)(81156014)(966005)(81166006)(316002)(6116002)(4610100001)(270700001)(3846002)(68736007)(6916009)(74482002)(43066004)(97736004)(25786009)(6666003)(84326002)(93886005)(50226002)(66066001)(5660300001)(8936002)(229853002)(53386004)(33964004)(16526019)(7736002)(2906002)(230700001)(53416004)(6486002)(26005)(186003)(36756003)(11346002)(446003)(476003)(305945005)(39060400002)(486006)(6246003)(53936002)(3450700001)(33896004)(956004)(386003)(106356001)(105586002)(6306002)(52116002)(76176011)(87806004); DIR:OUT; SFP:1101; SCL:1; SRVR:VI1PR0102MB3549; H:t65.eng.it; FPR:; SPF:None; LANG:en; PTR:InfoNoRecords; A:1; MX:1; Received-SPF: None (protection.outlook.com: eng.it does not designate permitted sender hosts) X-Microsoft-Exchange-Diagnostics: 1; VI1PR0102MB3549; 23:kVeXPK8Ty8ciSVauhvE+48vhH7eeKKImyIH+LjfsGGsMbjwgk20BJ9oy8NFzFD6E1HgKxETc1HfIZj0UU8ZDcnbSxe5eHqwVdra7HvUz/LPWNWnZDVId9GSz+zhJVqCDdftctO3vjJsfjR56BsxMfsPP9rfEiX9mVrK1eCPEhENjQvniW7WdwNci8+r8muKTTdI6ArN+VDwP8Z1Vj2rSv+G0xI4uUzXQ+q2v7xxse5kFwK5keQ7QmKkaN81c4a4yaFgCCtwVSj0puG+DgbXOhZ/ihq4C7i6b1UVFDmI2L6v8++XiS/UAMpztA7H1boiQvEgoLfQS4IlbUlMG45YFNJeJAF1aLO4vy8qrUE9wmRQXyFHy36Q33TBkQsWky6fbyIFg2htRxljxW9zAadjVvuNMwQX5HTg6yNv5nuG4OEIEL14w2USvaPxiAMBNvck7gXmB2QpW/iZQt1ueSlnBeXxpujL3tgXrpz8Ao3I6uKkEvndDLa5Klsv8iaADTZO48HEH2h6ZPn0QGeb7a9qElZhHX1I8gb64kt8zB3Eay0vfdmsWUfMRBL/OHuS8vLrFWWLAhjo9MiueAIh1LRxhMAWvH1CMyE6T2I6qGOQIduFhfHLb7/2pNHfTIL3t3YNMmyWkjE+Xovpftrsnj1LSgmTm7rs4Dxdx8MvLF8JLL4+rbgf5ThAmBIpEdDe8TtCTQ45VDA5zfReWuOKGMDzkto15TZBqMnIf76Q2dulob/vpJkv/4ce+yxaf+P+rp+UfUsZTyJxi7X/iLBDTehW1kSvm5QU1 4BDMfMNWiJB1zahMHyEiM7B9aXIK+99yF/uB5o2qTucK X-Microsoft-Antispam-Message-Info: Gu3V2//oj/OQJmZJ1M9fCO/hbgKb3GDvaMI2I02FpyHngMQ3gTXrY0xqgDxunFnekMMFfmE2dbKFQUKvDkZ9Zgqoc343GKVTas5AxW2Z8OzOp7Xfm2N+PJlXt9Ss9a/VHkXFMlN7AFN0joOO2IwMu1JER4GevduMOVFB6j1F6RS81QBzdrVRdP44aEaJT7ya3+bm6vs8htp6QOGodd9LSggMsbZ4b6eoglZu5ug0F5UsxmQ0MX+XMJ3605ESCm+C0ssf5bL8gtL6CjJwSazGOnkgO4a4AyJBnmMMTKq2MRo0VsNk7cqtbZWIwJz4FiyoiZbG2bJnSvJiJkVhwIx7/MdHWeb5OjkqqN8r3ZMDxwM= X-Microsoft-Exchange-Diagnostics: 1; VI1PR0102MB3549; 6:+XViFYHk5Aospww1pvhQJqd3txAWEcUHbI1MMDRvikhMfw7XTvsfmCBMvgSsfhMIdf880DH1qvfsENLvO8VsJEaY0c8TcGhMqtvXYdbGRZPR4grP8zfbHHIpb3mWbjDIho8yKKz81iExK2q+jG9BzQ9unaB3PfSFfsJjV0FPA/RwVZXcIh9jbhA9YmCJzpYJkY0mmariGPLn/9HVXK9Wy8A4Gd/wedRINZ6i8RXtXSMxLnN+Z1gnffrDLIgFwVFqgvtjU1hhDbEhZ2iNVqjKK6xwbDOcOjsiRHkhoNWaRoQgi1LH3OVQIlCMwdEgJIq4FA9GxZuGdAbZu5/xCOpqpc/FGhPUdZctFUFiZqOYoaBUyAaLYywOpyrNj3qp4952mlKRxa3npAdo+9mG12wODF+9rHxvVKUGvb5VWYFX02rQpgBVTekFUTcgj/237whsTSTplp9iHtI5lcCaf/91Ew==; 5:hQgA9DLQoQ6vC5/zHuZfSV78YA/VRRuCupBctdJBD9o4alFgx0DzLCl9eyfpLKkuKLB0gA50+7eshz6xasZ2f3lBwUJ5s5LASYtc0BkvZTpB8xxllDC25PkpbqcjyOEEpLKTk77mLa82KgzJhhM2LjRj/oJgVBeXzIDLBKDhV1A=; 24:nriWaIFiVNkl97joTNGMPrzmEq71ZNFCDT222+TAhj2lo1T3Fe4hzTQRUOcG4JFoJAqjzIDagH370rFE7SDHX67G27BJz91VMjY425F92ws= SpamDiagnosticOutput: 1:99 SpamDiagnosticMetadata: NSPM X-Microsoft-Exchange-Diagnostics: 1; VI1PR0102MB3549; 7:YJOIKMFZJVAOfFIwk8TXclU1QwyE0M4ty8S/GJRWrWuSqeFV0FDcAxSjhCPrNWns7f8URr7MPbiCpSZ1t0ZJDeutFhcVzaeM+MRAL6R0b30IOTyAFze5qD1Qk6TQbA+012yxadqJzjWlocWQRdShXLcvIKgnA+gFHwKxEPBpKH3uvL1JgovxZDDV8E9euNs++JZmJlEULmSDNCwknI2JpiFqMgq/Yxg4Y/xnQbbYBxaw+15Zc54kYMjB6N1d13A2 X-OriginatorOrg: eng.it X-MS-Exchange-CrossTenant-OriginalArrivalTime: 05 Jul 2018 16:09:37.4102 (UTC) X-MS-Exchange-CrossTenant-Network-Message-Id: b3413bda-6b53-4ac6-9387-08d5e291b51a X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: f2d7d6c5-1bee-41ff-9e79-b372a5cce71d X-MS-Exchange-Transport-CrossTenantHeadersStamped: VI1PR0102MB3549 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:148227 Archived-At: --8qv3hw0SVa Content-Type: text/plain; charset=utf-8 Content-Description: message body text Content-Transfer-Encoding: quoted-printable >>>>> "RP" =3D=3D Robert Pluim writes: RP> Without seeing your patch, that=CA=BCs hard to answer. This is the patch (attached). Your judgment holds. Nevertheless, any suggestion is welcomed. --=20 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=09=09 | (unix)["have"]+"fun"-0x60);} http://www.eng.it =09 | David Korn, AT&T Bell Labs =09=09=09 | ioccc best One Liner, 1987 --8qv3hw0SVa Content-Type: text/plain; name="0001-Do-not-warn-for-size-on-these-files.patch" Content-Description: a patch for files.el Content-Disposition: inline; filename="0001-Do-not-warn-for-size-on-these-files.patch" Content-Transfer-Encoding: 7bit >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 --8qv3hw0SVa--