From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 21 Jun 2021 12:58:15 +0000 (+0200)
Subject: Fix prompting for large files when loading literally
X-Git-Tag: emacs-28.0.90~2065
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0377737c9b3c72dd45f32ec0ffa6c4fa9cb0203d;p=emacs.git

Fix prompting for large files when loading literally

* lisp/files.el (find-file-noselect): Don't include "literally" in
the "large file" prompt if we're gonna load literally anyway
(bug#49144).
---

diff --git a/lisp/files.el b/lisp/files.el
index 13dda0932a2..5d2fe0a77be 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2288,7 +2288,8 @@ the various files."
 	;; Check to see if the file looks uncommonly large.
 	(when (not (or buf nowarn))
           (when (eq (abort-if-file-too-large
-                     (file-attribute-size attributes) "open" filename t)
+                     (file-attribute-size attributes) "open" filename
+                     (not rawfile))
                     'raw)
             (setf rawfile t))
 	  (warn-maybe-out-of-memory (file-attribute-size attributes)))