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:が重ならなくなっていると思う。