diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-05-19 14:49:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-05-19 14:49:25 +0000 |
| commit | 3e61755b3d4a53d00c2b5d50ed6df21018e0eda3 (patch) | |
| tree | 62dada74446c8a136993ae0ab4291920483fcdb4 /lisp/net/goto-addr.el | |
| parent | cb4f3fc8a86eec1ea0fef06963b71c9cbe43fdbb (diff) | |
| download | emacs-3e61755b3d4a53d00c2b5d50ed6df21018e0eda3.tar.gz | |
(goto-address-fontify-maximum-size): Value t means no limit.
(goto-address-fontify): Implement that feature.
Diffstat (limited to 'lisp/net/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 42c4bca8bf8..1449c9bcc38 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -93,8 +93,9 @@ But only if `goto-address-highlight-p' is also non-nil." :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 @@ and `goto-address-fontify-p'." (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)) |