r100更新失敗。dic-lookup-w3m-filter-delete-regions, dic-lookup-w3m-filter-replace-regexp
dic-lookup-w3m.el (diff)| @@ -500,9 +500,8 @@ | ||
| 500 | 500 | (goto-char (point-min)) |
| 501 | 501 | (re-search-forward "<body[^>]+>\\|<body>" nil t) |
| 502 | 502 | (goto-char (match-beginning 0)) |
| 503 | - (while ;;(re-search-forward "\\(<[^>]+>\\)\\([^>]*\\)<" nil t) | |
| 504 | - (re-search-forward "\\(<[^>\"]+\\(\"[^\"]+\"\\)?[^>]*>\\)\\([^>\"]*\\)<" nil t) | |
| 505 | - (setq s (match-beginning 3) e (match-end 3)) | |
| 503 | + (while (re-search-forward "\\(<[^>]+>\\)\\([^>]*\\)<" nil t) | |
| 504 | + (setq s (match-beginning 2) e (match-end 2)) | |
| 506 | 505 | (cond ((string-match "^<a[^a-z]" (match-string 1)) (setq inhref t)) |
| 507 | 506 | ((string-match "^</a[^a-z]" (match-string 1)) (setq inhref nil))) |
| 508 | 507 | (goto-char e) |
