From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 19 Dec 2024 03:56:55 +0000 (+0100)
Subject: Increase goto-address-fontify-maximum-size
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47c73a8503dd1e73ff28ed031ad640cd59ed6748;p=emacs.git

Increase goto-address-fontify-maximum-size

The new value is ~4 times larger, and should be more than fine on any
reasonably modern machine.  Alternatively, the default could be set to
t, as requested here:
https://lists.gnu.org/r/bug-gnu-emacs/2003-05/msg00114.html

* lisp/net/goto-addr.el (goto-address-fontify-maximum-size): Increase
default value from 30000 to 128 KiB.

(cherry picked from commit 3281f8615aefc08b47a99eb9761c0b630b053c58)
---

diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index 5e4e9519275..6297799dd8f 100644
--- a/lisp/net/goto-addr.el
+++ b/lisp/net/goto-addr.el
@@ -79,10 +79,12 @@ But only if `goto-address-highlight-p' is also non-nil."
   "Non-nil means URLs and e-mail addresses in buffer are highlighted."
   :type 'boolean)
 
-(defcustom goto-address-fontify-maximum-size 30000
-  "Maximum size of file in which to fontify and/or highlight URLs.
+(defcustom goto-address-fontify-maximum-size (* 128 1024)
+  "Maximum size of file in which to fontify and/or highlight URLs (in bytes).
 A value of t means there is no limit--fontify regardless of the size."
-  :type '(choice (integer :tag "Maximum size") (const :tag "No limit" t)))
+  :type '(choice (integer :tag "Maximum size")
+                 (const :tag "No limit" t))
+  :version "31.1")
 
 (defvar goto-address-mail-regexp
   ;; Actually pretty much any char could appear in the username part.  -stef