Navigator for 2ch
どうも
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)
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)
|
|
|