Mercurial > emacs
changeset 51098:9277afae9517
(goto-address-fontify-maximum-size): Value t means no limit.
(goto-address-fontify): Implement that feature.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 May 2003 14:49:25 +0000 |
| parents | 37a69a2f1992 |
| children | 70dce195cb42 |
| files | lisp/net/goto-addr.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))