Navigator for 2ch

出ましたので、
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--47402 (setq x (car --dolist-temp--47402)) (save-excursion (set-buffer x) (navi2ch-article-save-number) (navi2ch-article-save-info)) (setq --dolist-temp--47402 (cdr --dolist-temp--47402)))
)
(let ((--dolist-temp--47402 ...) x) (while --dolist-temp--47402 (setq x ...) (save-excursion ... ... ...) (setq --dolist-temp--47402 ...)) nil)
)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--47402 ... ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... x) (while --dolist-temp--47402 ... ... ...) nil))
)
(dolist (x (navi2ch-article-buffer-list)) (save-excursion (set-buffer x) (navi2ch-article-save-number) (navi2ch-article-save-info)))
)
navi2ch-save-status()
(lambda (&optional suspend) "navi2ch を終了する\nSUSPEND が non-nil なら buffer を消さない" (interactive) (navi2ch-save-status) (dolist (x ...) (when x ... ...)) (unless suspend (setq navi2ch-init nil) (remove-hook ... ...)))()
call-interactively(navi2ch-exit)