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

Navi2ch for Emacs (part 6)

862 ：名無しさん＠お腹いっぱい。 ：02/08/24 16:17

>>850

(defun navi2ch-bm-goto-updated-mark-column ()
(beginning-of-line)
(looking-at "\\( *[0-9]+\\)")
(goto-char (match-end 1))
(forward-char 1))

(defun navi2ch-bm-sort-by-updated-mark (rev)
(interactive "P")
(navi2ch-bm-sort-subr
(not rev)
'navi2ch-bm-goto-updated-mark-column
'forward-char))

(defun navi2ch-bm-sort (&optional arg)
(interactive "P")
(let ((ch (navi2ch-read-char-with-retry
"Sort by n)umber s)tate t)itle o)ther d)ate u)pdate? "
nil '(?n ?s ?t ?o ?d ?u))))
(funcall
(cond ((eq ch ?n) 'navi2ch-bm-sort-by-number)
((eq ch ?s) 'navi2ch-bm-sort-by-state)
((eq ch ?t) 'navi2ch-bm-sort-by-subject)
((eq ch ?o) 'navi2ch-bm-sort-by-other)
((eq ch ?d) 'navi2ch-bm-sort-by-date)
((eq ch ?u) 'navi2ch-bm-sort-by-updated-mark))
arg)))

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