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

[Eli Zaretskii]

Index: emacs/lisp/net/goto-addr.el
diff -c emacs/lisp/net/goto-addr.el:1.23 emacs/lisp/net/goto-addr.el:1.24
*** emacs/lisp/net/goto-addr.el:1.23    Mon Aug  1 15:17:06 2005
--- emacs/lisp/net/goto-addr.el Fri Nov  4 14:32:13 2005
***************
*** 105,116 ****
    "A regular expression probably matching an e-mail address.")
  
  (defvar goto-address-url-regexp
!   (concat "\\<\\("
!         (mapconcat 'identity
!                    (delete "mailto:"; (copy-sequence 
thing-at-point-uri-schemes))
!                    "\\|")
!         "\\)"
!           thing-at-point-url-path-regexp)
    ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"
    ;;    "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"
    ;;    "[0-9]*\\)address@hidden&*+|\\/.,]*"
--- 105,122 ----
    "A regular expression probably matching an e-mail address.")
  
  (defvar goto-address-url-regexp
!   (concat
!    "\\<\\("
!    (mapconcat 'identity
!               (delete "mailto:";
!                     ;; Remove `data:', as it's not terribly useful to follow
!                     ;; those.  Leaving them causes `use Data::Dumper;' to be
!                     ;; fontified oddly in Perl files.
!                       (delete "data:"
!                               (copy-sequence thing-at-point-uri-schemes)))
!               "\\|")
!    "\\)"
!    thing-at-point-url-path-regexp)
    ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"
    ;;    "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"
    ;;    "[0-9]*\\)address@hidden&*+|\\/.,]*"