[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/goto-addr.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/goto-addr.el |
Date: |
Mon, 19 May 2003 10:49:25 -0400 |
Index: emacs/lisp/net/goto-addr.el
diff -c emacs/lisp/net/goto-addr.el:1.15 emacs/lisp/net/goto-addr.el:1.16
*** emacs/lisp/net/goto-addr.el:1.15 Tue Feb 4 08:17:16 2003
--- emacs/lisp/net/goto-addr.el Mon May 19 10:49:25 2003
***************
*** 93,100 ****
:group 'goto-address)
(defcustom goto-address-fontify-maximum-size 30000
! "*Maximum size of file in which to fontify and/or highlight URLs."
! :type 'integer
:group 'goto-address)
(defvar goto-address-mail-regexp
--- 93,101 ----
:group 'goto-address)
(defcustom goto-address-fontify-maximum-size 30000
! "*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,161 ****
(save-excursion
(let ((inhibit-point-motion-hooks t))
(goto-char (point-min))
! (if (< (- (point-max) (point)) goto-address-fontify-maximum-size)
(progn
(while (re-search-forward goto-address-url-regexp nil t)
(let* ((s (match-beginning 0))
--- 156,163 ----
(save-excursion
(let ((inhibit-point-motion-hooks t))
(goto-char (point-min))
! (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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/goto-addr.el,
Richard M. Stallman <=