レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 6)

572 ：567 ：02/07/22 07:19

たぶんこれでいけると思いますが……みなさま、いかがでしょ？
（一応cygwinスレで＆ＧＴ；を確認、スレタイも正常表示）

--- navi2ch-util.el Sun Jul 21 01:30:50 2002
+++ ../../elisp/navi2ch/navi2ch-util.el Mon Jul 22 06:50:56 2002
@@ -318,16 +318,16 @@
""))

(defsubst navi2ch-replace-html-tag (str)
- (unless (string= str "")
+ (if (string= str "")
+ str
(let ((case-fold-search t))
(navi2ch-replace-string navi2ch-replace-html-tag-regexp
'navi2ch-replace-html-tag-to-string
- str t)))
- str)
+ str t))))

(defsubst navi2ch-replace-html-tag-with-buffer ()
(goto-char (point-min))
- (let ((case-fold-search t))
+ (let ((case-fold-search nil))
(while (re-search-forward navi2ch-replace-html-tag-regexp nil t)
(replace-match (navi2ch-replace-html-tag-to-string (match-string 0))))))

read.cgi ver5.26+ (01/10/21-)