[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Links not working
- From: Katsumi Yamaoka <katsumi@xxxxxxxxxx>
- Date: Wed, 26 Jan 2011 23:25:12 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 11500
- References: <20524da71002201158u27636d76w5d9a4008850052a7@xxxxxxxxxxxxxx> <b4m4olajfh7.fsf@xxxxxxx> <b4m8waldguw.fsf@xxxxxxx> <20110126.224953.74522542.1BF46D@xxxxxxxxxxx>
白井さん 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 の方を仕込んでおきました。
--
山岡