bug#32056: Small patch

["Gian Uberto Lauri" <saint@eng.it>]

[-- Attachment #1: message body and .signature --]
[-- Type: text/plain, Size: 999 bytes --]

Good morning,

today I pulled the latest source, compiled the Editor and tried to run
it.

My .emacs file contains a (find-file ), and it failed.

Further investigation revealed that in line 2158 in files.el contains a
call to abort-if-file-too-large with an extra argument that cause the
find-file command to fail.

I attach my trivial fix.

By the way, I discovered that the focus-frame function disappeared.
I used it to give the focus to the special frame I use for e-mail.

-- 
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



[-- Attachment #2: 0001-Solves-a-compilation-error.patch --]
[-- Type: application/octet-stream, Size: 933 bytes --]

From be68cf487bbdf3f6cb014be476f2b41b44ba641b Mon Sep 17 00:00:00 2001
From: Gian Uberto Lauri <saint@eng.it>
Date: Thu, 5 Jul 2018 10:18:03 +0200
Subject: [PATCH] Solves a compilation error

Line 2158 in files.el contains a call to abort-if-file-too-large that
cause the find-file command to fail.
---
 lisp/files.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/files.el b/lisp/files.el
index eabb3c0..84e0304 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2155,7 +2155,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)
+                     (nth 7 attributes) "open" filename );; t) fourth argument is in excess...
                     'raw)
             (setf rawfile t))
 	  (warn-maybe-out-of-memory (nth 7 attributes)))
-- 
2.7.4