[Emacs-diffs] Changes to emacs/lisp/net/goto-addr.el [lexbind]

[Miles Bader]

Index: emacs/lisp/net/goto-addr.el
diff -c emacs/lisp/net/goto-addr.el:1.13.4.1 
emacs/lisp/net/goto-addr.el:1.13.4.2
*** emacs/lisp/net/goto-addr.el:1.13.4.1        Fri Apr  4 01:20:30 2003
--- emacs/lisp/net/goto-addr.el Tue Oct 14 19:39:26 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))
***************
*** 246,249 ****
--- 248,252 ----
  
  (provide 'goto-addr)
  
+ ;;; arch-tag: ca47c505-5661-425d-a471-62bc6e75cf0a
  ;;; goto-addr.el ends here