[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: Links not working



白井さん wrote:
> (defun w3m-rendering-half-dump (charset)
>   ....
>   (goto-char (point-min))
>   (let (start tag name)
>     (while (re-search-forward "<\\([^\t\n\r >]+\\)\
> \[\t\n\r ]+\\(?:[^\t\n\r >]+[\t\n\r ]+\\)*id=\\(\"[^\"]+\"\\)"
> 			      nil t)
>       (setq start (match-beginning 0)
> 	    tag (regexp-quote (match-string 1))
> 	    name (match-string 2))
>       (when (looking-at (concat "[^>]*>[^<]+</" tag ">"))
[...]
> となります。when 全体を condition-case で囲っちゃうか、
> (setq tag (regexp-quote (match-string 1))) だと思いますが、よろ
> しくお願いします。

ご指摘ありがとうございます。どっちがより速いかわかりませんが、
regexp-quote の方を仕込んでおきました。
-- 
山岡