thing-at-pointのschemeを変更したい

id:ha-tan:20050524の補足。
「http:ttp://example.com」みたいにttp:が重なってしまうのは、thing-at-pointにschemeが登録されていないのが原因だ。ということで、ttp://、tp://をschemeとして追加してみた。以下の設定でいけると思う。

(setq thing-at-point-url-path-regexp
  "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+")

(setq thing-at-point-url-regexp
  (concat
   "\\<\\(h?t?tps?://\\|ftp://\\|gopher://\\|"
   "telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)"
   thing-at-point-url-path-regexp))

試験用のコードは以下。

(defun test-thing-at-point ()
  (interactive)
  (message (thing-at-point 'url)))

上のコード全てを評価した後で、「ttp://example.com」とか「tp://example.com」の上にカーソルを持ってきて、M-x test-thing-at-pointを実行する。ttp:が重ならなくなっていると思う。