From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Diane Murray Newsgroups: gmane.emacs.devel Subject: Add more URI schemes to thing-at-point-uri-schemes. Date: Sat, 18 Nov 2006 21:58:50 +0100 Message-ID: <87psbkpj3p.fsf@x3y2z1.net> NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1163894912 17189 80.91.229.2 (19 Nov 2006 00:08:32 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 19 Nov 2006 00:08:32 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Nov 19 01:08:29 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GlaEW-0001Ee-5W for ged-emacs-devel@m.gmane.org; Sun, 19 Nov 2006 01:08:28 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GlaEV-0005cQ-OH for ged-emacs-devel@m.gmane.org; Sat, 18 Nov 2006 19:08:27 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GlaEK-0005b2-1H for emacs-devel@gnu.org; Sat, 18 Nov 2006 19:08:16 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GlaEG-0005Yt-98 for emacs-devel@gnu.org; Sat, 18 Nov 2006 19:08:15 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GlaEG-0005Yo-5c for emacs-devel@gnu.org; Sat, 18 Nov 2006 19:08:12 -0500 Original-Received: from [194.25.134.21] (helo=mailout10.sul.t-online.com) by monty-python.gnu.org with esmtp (Exim 4.52) id 1GlaEF-0006jT-IZ for emacs-devel@gnu.org; Sat, 18 Nov 2006 19:08:11 -0500 Original-Received: from fwd32.aul.t-online.de by mailout10.sul.t-online.com with smtp id 1GlXGH-0005R9-06; Sat, 18 Nov 2006 21:58:05 +0100 Original-Received: from spargel (Ee8hqYZY8eBjsR+kg+5XzgxkWgk8dbpVm7HX-0csksynjBQRgNHfQ2@[84.189.215.80]) by fwd32.sul.t-online.de with esmtp id 1GlXGF-0LK7960; Sat, 18 Nov 2006 21:58:03 +0100 Original-To: emacs-devel@gnu.org X-ID: Ee8hqYZY8eBjsR+kg+5XzgxkWgk8dbpVm7HX-0csksynjBQRgNHfQ2@t-dialin.net X-TOI-MSGID: 25f6dd05-a5e0-40c7-b585-b1e9e447f992 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:62438 Archived-At: Running (thing-at-point 'url) on a URL starting with "irc:" returns "http://irc:". This is because `thing-at-point-uri-schemes' doesn't have "irc:" in its definition. doesn't list irc as an official URI scheme, but it does have quite a few new ones that haven't been added to `thing-at-point-uri-schemes'. The following patch adds the new schemes and "irc:". It also adds two others that I see often, "mms://" and "mmsh://", which are comparable to rtsp. 2006-11-18 Diane Murray * thingatpt.el (thing-at-point-uri-schemes): Added schemes that are new to the list at IANA. Also added irc, mms, mmsh. --- thingatpt.el 18 Sep 2006 15:04:32 +0200 1.37 +++ thingatpt.el 18 Nov 2006 17:40:22 +0100 @@ -214,15 +214,18 @@ ``thing-at-point-url-regexp''.") (defvar thing-at-point-uri-schemes - ;; Officials from http://www.iana.org/assignments/uri-schemes + ;; Officials from http://www.iana.org/assignments/uri-schemes.html '("ftp://" "http://" "gopher://" "mailto:" "news:" "nntp:" "telnet://" "wais://" "file:/" "prospero:" "z39.50s:" "z39.50r:" "cid:" "mid:" "vemmi:" "service:" "imap:" "nfs:" "acap:" "rtsp:" "tip:" "pop:" "data:" "dav:" "opaquelocktoken:" "sip:" "tel:" "fax:" "modem:" "ldap:" "https://" "soap.beep:" "soap.beeps:" "urn:" "go:" "afs:" "tn3270:" "mailserver:" + "crid:" "dict:" "dns:" "dtn:" "h323:" "im:" "info:" "ipp:" + "iris.beep:" "mtqp:" "mupdate:" "pres:" "sips:" "snmp:" "tag:" + "tftp:" "xmlrpc.beep:" "xmlrpc.beeps:" "xmpp:" ;; Compatibility - "snews:") + "snews:" "irc:" "mms://" "mmsh://") "Uniform Resource Identifier (URI) Schemes.") (defvar thing-at-point-url-regexp