/[emacs]/emacs/lisp/net/goto-addr.el
ViewVC logotype

Diff of /emacs/lisp/net/goto-addr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by monnier, Thu Oct 11 23:40:35 2001 UTC revision 1.13.4.1 by miles, Fri Apr 4 06:20:30 2003 UTC
# Line 102  But only if `goto-address-highlight-p' i Line 102  But only if `goto-address-highlight-p' i
102    "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+"    "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+"
103    "A regular expression probably matching an e-mail address.")    "A regular expression probably matching an e-mail address.")
104    
105  (defvar goto-address-url-regexp thing-at-point-url-regexp  (defvar goto-address-url-regexp
106      (concat "\\<\\("
107              (mapconcat 'identity
108                         (delete "mailto:" (copy-sequence thing-at-point-uri-schemes))
109                         "\\|")
110              "\\)"
111              thing-at-point-url-path-regexp)
112    ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"    ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"
113    ;;      "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"    ;;      "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"
114    ;;      "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"    ;;      "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"
# Line 202  there, then load the URL at or before po Line 208  there, then load the URL at or before po
208    (interactive)    (interactive)
209    (save-excursion    (save-excursion
210      (let ((address (save-excursion (goto-address-find-address-at-point))))      (let ((address (save-excursion (goto-address-find-address-at-point))))
211        (if (and address        (if (and address
212                 (save-excursion                 (save-excursion
213                   (goto-char (previous-single-char-property-change                   (goto-char (previous-single-char-property-change
214                               (point) 'goto-address nil                               (point) 'goto-address nil

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.13.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26