レス数が1000を超えています。残念ながら全部は表示しません。

navi2ch for emacs (part 4)

290 ：名無しさん＠Ｅｍａｃｓ ：02/01/12 16:43

article mode で "N" を押したときに navi2ch-article-through-next が
navi2ch-article-enable-through を見にいってしまうのっておかしくない??
(setq navi2ch-article-enable-through nil) してあると
"N" がなんの意味もなくなってしまう…。

以下、いいかげんなパッチです。
あまりにも適当な修正なので、このままマージしちゃいやん。


--------
retrieving revision 1.13
diff -u -r1.13 navi2ch-article.el
--- navi2ch-article.el 2002/01/11 06:01:02 1.13
+++ navi2ch-article.el 2002/01/12 07:38:39
@@ -952,7 +952,7 @@
(condition-case error
(scroll-up)
(end-of-buffer
- (funcall navi2ch-article-through-next-function)))
+ (funcall navi2ch-article-through-next-function t)))
(force-mode-line-update t))

(defun navi2ch-article-scroll-down ()
@@ -974,7 +974,7 @@
(navi2ch-y-or-n-p "Through next article or quit?" 'quit)
navi2ch-article-enable-through))

-(defun navi2ch-article-through-next ()
+(defun navi2ch-article-through-next (&optional ask)
(interactive)
(let ((mode (navi2ch-get-major-mode navi2ch-board-buffer-name)))
(if (and mode
@@ -982,7 +982,8 @@
(and (eq mode 'navi2ch-board-mode)
(navi2ch-board-equal navi2ch-article-current-board
navi2ch-board-current-board))))
- (let ((ret (navi2ch-article-through-ask (interactive-p))))
+ (let ((ret (or (not ask)
+ (navi2ch-article-through-ask (interactive-p)))))
(cond ((eq ret 'quit)
(navi2ch-article-exit))
(ret
@@ -1110,7 +1112,7 @@
(navi2ch-article-goto-number
(navi2ch-article-get-current-number)))
(error
- (funcall navi2ch-article-through-next-function))))
+ (funcall navi2ch-article-through-next-function t))))

(defun navi2ch-article-previous-message ()
"$BA0$N%a%C%;!<%8$X(B"

read.cgi ver5.26+ (01/10/21-)