patch: remove data: URLs from goto-address-url-regexp

patch: remove data: URLs from goto-address-url-regexp

[Edward O'Connor]

[-- Attachment #1: Type: text/plain, Size: 373 bytes --]

Hi,

Included is a trivial patch to net/goto-addr.el which removes data: URLs
from goto-address-url-regexp.

I noticed that 'use Data::Dumper;' was being fontified oddly in Perl
files, and tracked it down to this. As far as I know, following such
URLs in Emacs is not terribly useful.


Ted

-- 
Edward O'Connor
hober0@gmail.com

Ense petit placidam sub libertate quietem.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: remove data: URLs from goto-address-url-regexp --]
[-- Type: text/x-patch, Size: 1178 bytes --]

*** code/emacs/lisp/net/goto-addr.el	Tue Aug  2 09:58:56 2005
--- /Users/ted/Desktop/goto-addr.el	Tue Oct 25 16:08:49 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]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"
--- 105,119 ----
    "A regular expression probably matching an e-mail address.")
  
  (defvar goto-address-url-regexp
!   (concat
!    "\\<\\("
!    (mapconcat 'identity
!               (delete "mailto:"
!                       (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]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel