Navigator for 2ch

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

Navigator for 2ch

[280:269 (2001/01/15(月) 09:05)]
Abnormally
は、出なくなりましたが…
例によって一部省略

Signaling: (wrong-type-argument char-or-string-p nil)
insert(nil "\n")
(let ((p ...)) (insert (cdr ...) "\n") (navi2ch-article-set-link-property p (point)) (let (...) (when ... ... ...)))
)
(let ((num ...) (elt ...) (begin ...)) (let (...) (insert ...) (put-text-property p ... ... num)) (let (...) (insert ... "\n") (navi2ch-article-set-link-property p ...) (let ... ...)) (let (...) (insert "\n") (put-text-property p ... ... ...)) (insert "\n"))
)
(progn (setcdr x (navi2ch-put-alist ... ... ...)) (let (... ... ...) (let ... ... ...) (let ... ... ... ...) (let ... ... ...) (insert "\n")))
)
(if (navi2ch-article-inside-range-p (car x) range len) (progn (setcdr x ...) (let ... ... ... ... ...)))
)
(when (navi2ch-article-inside-range-p (car x) range len) (setcdr x (navi2ch-put-alist ... ... ...)) (let (... ... ...) (let ... ... ...) (let ... ... ... ...) (let ... ... ...) (insert "\n")))
)
(while --dolist-temp--20500 (setq x (car --dolist-temp--20500)) (when (navi2ch-article-inside-range-p ... range len) (setcdr x ...) (let ... ... ... ... ...)) (setq --dolist-temp--20500 (cdr --dolist-temp--20500)))
)
(let ((--dolist-temp--20500 list) x) (while --dolist-temp--20500 (setq x ...) (when ... ... ...) (setq --dolist-temp--20500 ...)) nil)
)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--20500 ... ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... x) (while --dolist-temp--20500 ... ... ...) nil))
)
(dolist (x list) (when (navi2ch-article-inside-range-p ... range len) (setcdr x ...) (let ... ... ... ... ...)))
)
(let ((len ...)) (dolist (x list) (when ... ... ...)))
)
navi2ch-article-insert-messages(((1 (point . #<marker at 1 in *navi2ch article unix/976032951 0x85c4094>)
navi2ch-article-sync(nil)
navi2ch-article-view-article(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((subject . "Navigator for 2ch") (response . "268") (artid . "976032951")) nil)
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)

[281:(not 1) (2001/01/16(火) 12:13)]
・>>276, >>279 のパッチを当てた。
・>>278 にとりあえず対応してみた。
・範囲選択の方法を少し変えた。
・キャッシュされてるスレと表示済みのスレが分かるようにした。
・board mode でその行と同じスレを表示中に SPC, BS でスレのスクロール。

です(もしかしたら他にもあるかも)。

http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010116.tar.gz

>>276さん、>>279さんパッチどうもです。

>>278さんはこれでどうでしょう？

新しいスレを取ってきたときは、最初の50を。
すでにあるスレを取ってきたときは最後の50を表示するように変更。
これで結構、parse のストレスは減ったはず(本質的でない対応だけど)。
navi2ch-article-new-message-range
navi2ch-article-exist-message-range
navi2ch-article-auto-range
で制御です。
あと、navi2ch-article-view-range を buffer local に変更。

キャッシュされてるかは左端に C ってでてるかどうかで。
表示済みのは V ってなります。

>>280さん
navi2ch-error-data ってのを作ったんで、
debug-on-error を t にしてエラーが出たときの
その値を載っけてもらえませんか？
;; できればその article buffer の navi2ch-article-message-list
;; の値を載っけてもらいたいけど、でかいからなぁ。
それと、他のスレッドでもダメですか？
C-u S でキャッシュを作りなおしてもダメですか？

[282:280 (xemacs on 10116) (2001/01/16(火) 12:49)]
rm -r ~/.navsch
で、当スレッドを見たとき以下のとおりです。

`navi2ch-error-data' is a variable declared in Lisp.
-- loaded from "navi2ch-article"

Value: ((point . #<marker at 8876 in *navi2ch article unix/976032951 0x86c1abc>) (name . "") (mail) (date) (data))

Documentation:
debug variable

`navi2ch-article-message-list' is a variable declared in Lisp.
-- loaded from "navi2ch-article"

Value: nil

Documentation:
not documented as a variable.

[283:(not 1) (2001/01/16(火) 17:38)]
>>280さん
このパッチで直りますか？
;; M-u で取りだせます。

begin 644 navi2ch-article.el.patch.gz
M'XL("/8&9#H``VYA=FDR8V@M87)T:6-L92YE;"YP871C:`#-5E%OVC`0?D[_
M0E]NB(I`:T12Z%BK;5+WMH<^37O:BR$'6#4.=9S1_?LY=@))<`*TFK2H4K%]
M=[[[[NX[#P8#$/0W"^<K0J5B<XY#Y,-8LJ7W(T7X3@4$=S":WH_UWPC"T2BX
M((0XE,KRP<?[<'H_F5KY0?7+UA",IS?!Y!;,1F;0;DQ!_R87T/+Y\U@DT%M3
MQL$7:@4!)$HF_?XI6A%5:+7"\[2HU;K-M;3>-7B>%GEX@`AGZ;)8^]L5"KM%
M8D%0RE@69_HT%1R31!N.)/@T25YRZYPE*MQ;-;()JI<=T,80L9X8KUX=1S7'
M4$2Y<\[HM$0>H&**Y[B,][@T:EUV'Z^^7HVZG[M/CU^Z3]]^CC]=^H_./(?!
M[4TXOK-Y+@'+48'OBW2M7:`27AV)\)$K"Y3S=(9+)L#?Q$PHLJ;R&646_8>R
MC+UEDTO5C[4`$PE*+;-(Q9QR7B]KLD(:H22+6*ZI(IF48K&H63GX=%C'1,H%
M(.@:00=[X%ZKEFF`L[5,`QBM0S`VJ2(*7Q79R'BC8?D#&KG@&C9]Z,U3*5$#
MK4.;H<PB/!?K7:/4;G7U2SV@W'A>_;76<4>SM^WC"QA!P;@;J\9.<YNN=%9#
M03F=A,XOT3F`O5YSVAG"F7BNI"$'M:YK<6%1Y4*]K-LLTC>+J8R<:.58Q=K*
M&DV.'690T)G^MV"<DXRQVDK/IQHC7\2JS6#$DIK%H]7<XI.["#(\5SIL(G"K
M<<4"5X9),[(E=(UO\YBG:XT/T4`Q$<5;LF616O5ATN*QGR98N3J!I@#M+5)S
M6BQ*7AVDZF1*<Y::L\.M(>@MZ!RAEPI->)FO]8O+=HU;^?Y:SS.Z1.A8`2:6
MD%<;Y$?)<#B,8H&=8JKX$6HJ/2P&7-"4JP;2!;_@GHPN#?ME9-8WKX<PF-Z$
MD[#^>OB78\;;]8RSUZU$0\*\*J;GCQ]O]TJPLV:_;APL;I'*%'&+U$9&X?L;
MIL510$HSHKC&/1X\[\21X'E-8\#&^L9'5M7G\C2HI[9]$!329\Z`0NT]]*\A
M?"OEFSIY![^7JO<(F9N+3B9P(WTZ:6LW&ADZKXY65CZYO^O9/IN&/2<#_S\4
*_!<XC$P'1PX`````
`
end

あと、もし直ってもとりあえずの対応なんで、
もう一度 navi2ch-error-data の値をのっけて下さい。
他の場所にもしかけましたし。

[284:280 > (not1) (2001/01/16(火) 18:02)]
rm -r ~/.navi2ch

Signaling: (wrong-type-argument sequencep 284)
navi2ch-article-sync(nil t)
navi2ch-article-view-article(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((cache) (subject . "Navigator for 2ch") (response . "272") (artid . "976032951")) nil)
navi2ch-board-select-article(nil)
navi2ch-board-select-article-or-scroll(up nil)
navi2ch-board-select-article-or-scroll-up(nil)
call-interactively(navi2ch-board-select-article-or-scroll-up)

`navi2ch-error-data' is a variable declared in Lisp.
-- loaded from "navi2ch-article"

Value: ((284 . ""))

Documentation:
debug variable

です。お世話になっちゃってます^^;

[285:(not 1) (2001/01/16(火) 18:42)]
>>280
これでどうでしょう？
;; 手で当てちまいましょう(笑)。
あと、キャッシュは消さなくていいはずです。

--- navi2ch-article.el.orig Tue Jan 16 18:29:10 2001
+++ navi2ch-article.el Tue Jan 16 18:33:32 2001
@@ -191,7 +191,7 @@
(setq elt (cons i x))
(setq i (1+ i))
elt))
- (delq nil (split-string content "\n"))))
+ (delete "" (split-string content "\n"))))
(message "splitting current messages...done")
message-list)))

[286:>(not 1) (2001/01/16(火) 19:00)]
>>283
>>285
を10116に適用

Signaling: (wrong-type-argument sequencep 285)
navi2ch-article-sync(nil t)
navi2ch-article-view-article(((nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((cache . cache) (subject . "Navigator for 2ch") (response . "274") (artid . "976032951")) nil)
navi2ch-board-select-article(nil)
navi2ch-board-select-article-or-scroll(up nil)
navi2ch-board-select-article-or-scroll-up(nil)
call-interactively(navi2ch-board-select-article-or-scroll-up)

`navi2ch-error-data' is a variable declared in Lisp.
-- loaded from "navi2ch-article"

Value: nil

Documentation:
debug variable

[287:(not 1) (2001/01/16(火) 19:16)]
>>286
とりあえず、最初のバグは直ったみたいです。
split-string の仕様が XEmacs と FSF Emacs で違うのが原因でした・・・。

んで、次のバグを直したいんですが、
backtrace がそれだけだと、どこでエラーが起こったか分からないんで、
elc ファイルを消してからもう一回取って貰えませんか？
;; たびたびすいません (^^;;

[288:(not 1) (2001/01/16(火) 19:18)]
>>280さん
ふと思ったんですが。
このやりとり、sage でやりません？
他のスレッドに迷惑かかるんで。

[289:280 (2001/01/16(火) 20:51)]
どうも

Signaling: (wrong-type-argument sequencep 288)
concat("Navigator for 2ch" " (" "276" "/" 288 ")")
(setq mode-line-buffer-identification (concat (cdr ...) " (" (cdr ...) "/" (length list) ")"))
)
(let* ((list navi2ch-article-message-list) (range navi2ch-article-view-range) (article navi2ch-article-current-article) (board navi2ch-article-current-board) (navi2ch-net-force-update ...) (url ...) (file ...) (old-size ...) updated) (unless navi2ch-offline (setq updated ...)) (cond (first ...) (updated ...)) (or first (navi2ch-article-save-number)) (let (...) (erase-buffer) (setq list ... navi2ch-article-message-list list) (navi2ch-article-insert-messages list range)) (navi2ch-article-load-number) (setq mode-line-buffer-identification (concat ... " (" ... "/" ... ")")) (force-mode-line-update t) list)
)
navi2ch-article-sync(nil t)
(if (get-buffer buf-name) (progn (switch-to-buffer buf-name) (navi2ch-article-sync force)) (switch-to-buffer (get-buffer-create buf-name)) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article) (navi2ch-article-load-info) (when navi2ch-article-auto-range (if ... ... ...)) (navi2ch-article-sync force t))
)
(let ((buf-name ...)) (if (get-buffer buf-name) (progn ... ...) (switch-to-buffer ...) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article) (navi2ch-article-load-info) (when navi2ch-article-auto-range ...) (navi2ch-article-sync force t)))
)
navi2ch-article-view-article(((nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((cache . cache) (subject . "Navigator for 2ch") (response . "276") (artid . "976032951")) nil)
(setq state (navi2ch-article-view-article navi2ch-board-current-board article force))
)
(save-excursion (setq state (navi2ch-article-view-article navi2ch-board-current-board article force)))
)
(let (state) (save-excursion (setq state ...)) (let (...) (when state ... ...)))
)
(progn (dolist (x ...) (when x ...)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (save-excursion ...) (let ... ...)))
)
(if (and article (or ... ...)) (progn (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message "can't select this line!"))
)
(let ((article ...)) (if (and article ...) (progn ... ... ... ...) (message "can't select this line!")))
)
navi2ch-board-select-article(nil)
(if (and (navi2ch-article-current-buffer) (eq ... ...) (get-buffer-window ...)) (let (...) (select-window ...) (condition-case nil ... ...) (select-window win)) (navi2ch-board-select-article force))
)
(let ((article ...)) (if (and ... ... ...) (let ... ... ... ...) (navi2ch-board-select-article force)))
)
navi2ch-board-select-article-or-scroll(up nil)
navi2ch-board-select-article-or-scroll-up(nil)
call-interactively(navi2ch-board-select-article-or-scroll-up)

次10 前10 最新10

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