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

Navi2ch for Emacs (part 5)

94 ：俺も意見を言っておこう ：02/02/21 14:03

これよろしく。

in navi2ch-article.el,

(defun navi2ch-article-rotate-point-stack ()
"stack へ push した位置を巡回する。"
(interactive)
(let ((cur (navi2ch-article-get-point nil)) ; 現在地
(top (pop navi2ch-article-point-stack))) ; トップ
(if top
(progn
(setq navi2ch-article-point-stack
(append navi2ch-article-point-stack (list cur))) ; 最後尾へ保存
(navi2ch-article-goto-number (car top)) ; トップの
(forward-char (cdr top))) ; 以前いた文字へ
(message "stack is empty"))))

(define-key navi2ch-article-mode-map "R" 'navi2ch-article-rotate-point-stack)

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