Navigator for 2ch

navi2ch-article-redraw-rangeで、wrong-type-argumentほげと、でますね。

(setq navi2ch-net-http-proxy "hehehe.net"
navi2ch-article-view-range '(5 . 100)
navi2ch-article-new-message-range '(5 . 100)
navi2ch-message-user-name "奥さん、名無しです"
)

あと、defaultで、こてハンになるんですね。

Signaling: (wrong-number-of-arguments #<compiled-function nil "...(73)" [next-command-event event inhibit-quit event-matches-key-specifier-p quit-char signal quit nil event-to-character button-release-event-p error "Key read has no ASCII equivalent %S" deallocate-event] 3 608629> 1)
read-char("input: ")
(setq n (read-char "input: "))
)
(let (n) (setq n (read-char "input: ")) (when (or ... ...) (error "%c is bad key" n)) (setq n (- n ?0)) (setq range (if ... nil ...)))
)
(let ((buf ...) (range navi2ch-article-view-range)) (save-excursion (set-buffer buf) (erase-buffer) (insert ...) (insert ...) (let ... ...)) (display-buffer buf) (let (n) (setq n ...) (when ... ...) (setq n ...) (setq range ...)) (kill-buffer buf) range)
)
(save-window-excursion (delete-other-windows) (let (... ...) (save-excursion ... ... ... ... ...) (display-buffer buf) (let ... ... ... ... ...) (kill-buffer buf) range))
)
navi2ch-article-select-view-range-subr()
(setq navi2ch-article-view-range (navi2ch-article-select-view-range-subr))
)
(lambda nil "表示する範囲を指定した後 redraw" (interactive) (setq navi2ch-article-view-range (navi2ch-article-select-view-range-subr)) (navi2ch-article-redraw))()
call-interactively(navi2ch-article-redraw-range)


===========================
*select view-range* buffer
first last
0: all range
1: 1 50
2: 50 50
3: 1 100
4: 100 100