# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1053355765 0
# Node ID 9277afae9517a632242153ed119b7ed228ae0c00
# Parent  37a69a2f1992aab3538a1b0f6e11aa07195ee63e
(goto-address-fontify-maximum-size): Value t means no limit.
(goto-address-fontify): Implement that feature.

diff -r 37a69a2f1992 -r 9277afae9517 lisp/net/goto-addr.el
--- a/lisp/net/goto-addr.el	Mon May 19 14:47:46 2003 +0000
+++ b/lisp/net/goto-addr.el	Mon May 19 14:49:25 2003 +0000
@@ -93,8 +93,9 @@
   :group 'goto-address)
 
 (defcustom goto-address-fontify-maximum-size 30000
-  "*Maximum size of file in which to fontify and/or highlight URLs."
-  :type 'integer
+  "*Maximum size of file in which to fontify and/or highlight URLs.
+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))
   :group 'goto-address)
 
 (defvar goto-address-mail-regexp
@@ -155,7 +156,8 @@
   (save-excursion
     (let ((inhibit-point-motion-hooks t))
       (goto-char (point-min))
-      (if (< (- (point-max) (point)) goto-address-fontify-maximum-size)
+      (if (or (eq t goto-address-fontify-maximum-size)
+	      (< (- (point-max) (point)) goto-address-fontify-maximum-size))
 	  (progn
 	    (while (re-search-forward goto-address-url-regexp nil t)
               (let* ((s (match-beginning 0))