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

Navi2ch for Emacs (part 5)

139 ：名無しさん＠お腹いっぱい。 ：02/02/27 17:34

こんなのどう?
ブックマークでmamiした後N(,P)で読み進める、っていうのを想定してます。

(defun navi2ch-bm-next-update-line ()
(interactive)
(let ((case-fold-search nil))
(forward-line)
(if (re-search-forward "^ *[0-9]+ [+= ]U" nil t)
(beginning-of-line)
(forward-line -1)
(message "No more updated lines"))))

(defun navi2ch-bm-previous-update-line ()
(interactive)
(let ((case-fold-search nil))
(unless (re-search-backward "^ *[0-9]+ [+= ]U" nil t)
(message "No more updated lines"))))

(define-key navi2ch-bm-mode-map "N" 'navi2ch-bm-next-update-line)
(define-key navi2ch-bm-mode-map "P" 'navi2ch-bm-previous-update-line)

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