5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Navi2ch for Emacs (Part 11)

409 :名無しさん@お腹いっぱい。:03/12/08 05:46
>>の後に数十ケタの数字がある時、そこにカーソルをあわせると
ハングしてしまうようです。

410 :名無しさん@お腹いっぱい。:03/12/08 14:23
>>409
ハングって emacsen が落ちるの?
無反応になって C-g 以外うけつけないの?
C-g もうけつけなくなるの?

具体的にどこのスレで発生したのよ?
あと Emacsen のバージョンも教えてくれよな


411 :409:03/12/08 18:06
>>410
スマソ。

> ハングって emacsen が落ちるの?
> 無反応になって C-g 以外うけつけないの?
> C-g もうけつけなくなるの?
emacs -nw で起動してるんだけど、
* emacs が落ちるわけではない。
* C-g一回では無反応。
* C-g二回で emacs がサスペンド→fgすると Abort (and dump core)? (Y/n) と聞いてくる状態に。

> 具体的にどこのスレで発生したのよ?
http://live7.2ch.net/test/read.cgi/livebase/1070773543/
>>39

> あと Emacsen のバージョンも教えてくれよな
20.7.2


412 :名無しさん@お腹いっぱい。:03/12/08 18:14
> http://live7.2ch.net/test/read.cgi/livebase/1070773543/
> の >>39
ほんとだ。興味本位でみなきゃよかった。

413 :名無しさん@お腹いっぱい。:03/12/08 18:35
あらてのブラクラだな navi2ch固め。


414 :名無しさん@お腹いっぱい。:03/12/08 18:45
>>13141356416531236572154631643654-20

415 :名無しさん@お腹いっぱい。:03/12/08 18:45
>>13568373461938451761895395067356157049581094715690843907856136745u910843912057432095781340584319543

416 :mami:03/12/08 19:00
これでどうでしょう?

(defun navi2ch-article-str-to-num (str)
"レス参照の文字列を数字か数字の list に変換"
(let (result)
(dolist (x (split-string str ","))
(let* ((numbers (mapcar 'string-to-number (split-string x "-")))
(i (apply 'min numbers))
(max (apply 'max numbers)))
(while (<= i max)
(setq result (append result (list i)))
(setq i (1+ i)))))
(if (= 1 (length result))
(car result)
result)))

417 :名無しさん@お腹いっぱい。:03/12/08 19:16
>>416
それだと C-g が効くようになるだけ。最後のレス以降を指す必要はないんだから
Index: navi2ch-article.el
===================================================================
RCS file: /cvsroot/navi2ch/navi2ch/navi2ch-article.el,v
retrieving revision 1.230
diff -u -d -u -r1.230 navi2ch-article.el
--- navi2ch-article.el 5 Dec 2003 14:09:46 -0000 1.230
+++ navi2ch-article.el 8 Dec 2003 10:13:50 -0000
@@ -1460,8 +1460,8 @@
(cond ((string-match "\\([0-9]+\\)-\\([0-9]+\\)" str)
(let* ((n1 (string-to-number (match-string 1 str)))
(n2 (string-to-number (match-string 2 str)))
- (min (min n1 n2))
- (i (max n1 n2))
+ (min (min n1 n2 1))
+ (i (max n1 n2 (1+ (length navi2ch-article-message-list))))
list)
(while (>= i min)
(push i list)

418 :名無しさん@お腹いっぱい。:03/12/08 19:25
ごめん、バッファ保存してなかった。こうっす。
Index: navi2ch-article.el
===================================================================
RCS file: /cvsroot/navi2ch/navi2ch/navi2ch-article.el,v
retrieving revision 1.230
diff -u -d -2 -r1.230 navi2ch-article.el
--- navi2ch-article.el 5 Dec 2003 14:09:46 -0000 1.230
+++ navi2ch-article.el 8 Dec 2003 10:24:40 -0000
@@ -1461,6 +1461,7 @@
(let* ((n1 (string-to-number (match-string 1 str)))
(n2 (string-to-number (match-string 2 str)))
- (min (min n1 n2))
- (i (max n1 n2))
+ (min (max (min n1 n2) 1))
+ (i (min (max n1 n2)
+ (1+ (length navi2ch-article-message-list))))
list)
(while (>= i min)

247 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)