レス数が950を超えています。1000を超えると表示できなくなるよ。

2ch専用ブラウザ「Navi2ch」

374 ：mami ：01/10/03 01:37

Xemacs 問題、追っかけてみた。

>333
str に "K" があるとマズいっぽい。
これを評価すると Wrong type argument: char-or-string-p, nil が出る。
(let ((str "K"))
(string-match "K" str)
(setq str (replace-match "" nil nil str))
str)

バックトレース。
Signaling: (wrong-type-argument char-or-string-p nil)
replace-match("" nil nil "K")
(setq str (replace-match "" nil nil str))
)
(let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str)
)
eval((let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str))
eval-interactive((let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str))
eval-last-sexp(t)
#<compiled-function nil "...(20)" [standard-output terpri eval-last-sexp t] 2 907969 nil>()
call-interactively(eval-print-last-sexp)

ごめん、これでいっぱいいっぱい。

375 ：mami ：01/10/03 01:39

「str に」じゃなくて「match させる regexp に」か。

376 ：mami ：01/10/03 01:52

"K" じゃなくても "A" とかでも同様だった。
やっぱり Xemacs のバグ?

こんなパッチあてじゃダメすか?
これでうまくいくっぽいんだけど。

*** navi2ch-net.el.orig Wed Oct 3 01:48:52 2001
--- navi2ch-net.el Wed Oct 3 01:49:00 2001
***************
*** 316,322 ****
(when (string-match "^\\(.+\\) \\(.+\\)\n" cont)
(setq state (match-string 1 cont))
(setq data (match-string 2 cont))
! (setq cont (replace-match "" nil nil cont)))
(when (and (string-match "\\(OK\\|INCR\\)" state)
(string-match "\\(.+\\)/\\(.+\\)K" data))
(setq cont-size (string-to-number (match-string 1 data))))
--- 316,322 ----
(when (string-match "^\\(.+\\) \\(.+\\)\n" cont)
(setq state (match-string 1 cont))
(setq data (match-string 2 cont))
! (setq cont (replace-match "" t nil cont)))
(when (and (string-match "\\(OK\\|INCR\\)" state)
(string-match "\\(.+\\)/\\(.+\\)K" data))
(setq cont-size (string-to-number (match-string 1 data))))

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