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

navi2ch for emacs (part 4)

658 ：(not 1) ：02/01/23 23:40

>>657
直しました。

> nanashi
navi2ch-strip-properties は下みたいな方がすっきりすると思うんですけど
変更すると何か問題ありますか？
(defun navi2ch-strip-properties (obj)
(cond
((consp obj)
(cons (navi2ch-strip-properties (car obj))
(navi2ch-strip-properties (cdr obj))))
((stringp obj)
(let ((str (copy-sequence obj)))
(set-text-properties 0 (length str) nil str)
str))
((vectorp obj)
(vconcat (mapcar 'navi2ch-strip-properties obj)))
(t obj)))

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