unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#32056: Small patch
@ 2018-07-05  8:30 Gian Uberto Lauri
  2018-07-05 10:22 ` Robert Pluim
  0 siblings, 1 reply; 8+ messages in thread
From: Gian Uberto Lauri @ 2018-07-05  8:30 UTC (permalink / raw)
  To: 32056

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


^ permalink raw reply related	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2019-04-18  0:13 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-07-05  8:30 bug#32056: Small patch Gian Uberto Lauri
2018-07-05 10:22 ` Robert Pluim
2018-07-05 11:13   ` Noam Postavsky
2018-07-05 12:20   ` Gian Uberto Lauri
2018-07-05 14:00   ` Gian Uberto Lauri
2018-07-05 14:41     ` Robert Pluim
2018-07-05 16:09       ` Gian Uberto Lauri
2019-04-18  0:13         ` Noam Postavsky

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).