From 47c73a8503dd1e73ff28ed031ad640cd59ed6748 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 19 Dec 2024 04:56:55 +0100 Subject: [PATCH] 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) --- lisp/net/goto-addr.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.39.5