- 240 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/12/14(日) 02:06:14 BE:1351796459-2BP(0)]
- >>236
すみません、どういうことでしょうか…? `*navi2ch list*' バッファに 「ファ
イル一覧 (#directory)」、「検索一覧 (#search)」などがいらないということ
ですか?
>>237
前スレの 612さんですか? もし、そうでしたら 以下のコードを評価した結果と (emacs-version) の結果をお願いします。
(let* ((current-list
'((bookmark "pc11.2ch.net/unix/" "pc11.2ch.net/db/")))
(changed-list '(("newsplus"
((uri . "mamono.2ch.net/newsplus/") (type . board))
((uri . "mamono2.2ch.net/newsplus/") (type . board)))
("unix"
((uri . "pc11.2ch.net/unix/") (type . board))
((uri . "pc12.2ch.net/unix/") (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))
|
 |
