08/12/14 02:06:14 BE:1351796459-2BP(0)
>>236
すみません、どういうことでしょうか…? `*navi2ch list*' バッファに 「ファ
イル一覧 (#directory)」、「検索一覧 (#search)」などがいらないということ
ですか?
>>237
前スレの 612さんですか? もし、そうでしたら 以下のコードを評価した結果と (emacs-version) の結果をお願いします。
(let* ((current-list
'((bookmark "URLﾘﾝｸ(pc11.2ch.net)" "URLﾘﾝｸ(pc11.2ch.net)")))
(changed-list '(("newsplus"
((uri . "URLﾘﾝｸ(mamono.2ch.net)") (type . board))
((uri . "URLﾘﾝｸ(mamono2.2ch.net)") (type . board)))
("unix"
((uri . "URLﾘﾝｸ(pc11.2ch.net)") (type . board))
((uri . "URLﾘﾝｸ(pc12.2ch.net)") (type . board)))))
(changed-alist (mapcar
(lambda (elt)
(cons (navi2ch-list-bookmark-node (nth 1 elt))
(navi2ch-list-bookmark-node (nth 2 elt))))
changed-list)))
(navi2ch-put-alist 'bookmark
(mapcar (lambda (node)
(or (cdr (assoc node changed-alist))
node))
(cdr (assq 'bookmark
current-list)))
current-list))