Navigator for 2ch

navi2ch-exitしたときにエラーでます。

それから、navi2ch-versionとかもあった方がいいじゃないかな。Signaling: (wrong-type-argument integer-or-marker-p nil)
get-text-property(nil current-number)
(or (get-text-property pos (quote current-number)) (get-text-property (1- pos) (quote current-number)))
(let ((pos ...)) (or (get-text-property pos ...) (get-text-property ... ...)))
(or (get-text-property (point) (quote current-number)) (let (...) (or ... ...)))
navi2ch-article-get-current-number()
(navi2ch-put-alist (quote number) (navi2ch-article-get-current-number) navi2ch-article-current-article)
(setq navi2ch-article-current-article (navi2ch-put-alist (quote number) (navi2ch-article-get-current-number) navi2ch-article-current-article))
navi2ch-article-save-number()
(save-excursion (set-buffer x) (navi2ch-article-save-number) (navi2ch-article-save-info))
(while --dolist-temp--22077 (setq x (car --dolist-temp--22077)) (save-excursion (set-buffer x) (navi2ch-article-save-number) (navi2ch-article-save-info)) (setq --dolist-temp--22077 (cdr --dolist-temp--22077)))
(let ((--dolist-temp--22077 ...) x) (while --dolist-temp--22077 (setq x ...) (save-excursion ... ... ...) (setq --dolist-temp--22077 ...)) nil)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--22077 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... x) (while --dolist-temp--22077 ... ... ...) nil))
(dolist (x (navi2ch-article-buffer-list)) (save-excursion (set-buffer x) (navi2ch-article-save-number) (navi2ch-article-save-info)))
navi2ch-save-status()
navi2ch-exit()
call-interactively(navi2ch-exit)