xyzzyの使い方がわからぬヤシ 励ましあえ その2

これで幸せになれるかも。/.2ch/config.lに
;;; 2ch-mode 関係のバッファをバッファリストに出さないようにする。
(setq *buffer-board* " 2ch: Board")
(setq *buffer-board-temp* " 2ch: Board Temp")
(setq *buffer-bookmark* " 2ch: Bookmark")
(setq *buffer-form* " 2ch: Form")
(setq *buffer-grep* " 2ch: Grep")
(setq *buffer-history* " 2ch: History")
(setq *http-buffer-name* " 2ch: HTTP")
(setq *http-gzip-buffer-name* " 2ch: GZIP")
(setq *buffer-temp* " 2ch: Temp")
(setq *buffer-menu* " 2ch: Menu")
(setq *buffer-search* " 2ch: Search")
(setq *buffer-thread* " 2ch: Thread")
(setq *buffer-archive* " 2ch: Archive")
(setq *buffer-view* " 2ch: View")
(defun tracking-buffer-name (track-name)
(format nil " 2ch: ~A: [~A] ~A" *tracking-name* track-name (tracking-file track-name)))
(add-hook '*2ch-exit-hook*
#'(lambda ()
(dolist (buf (buffer-list))
(let ((bufname (buffer-name buf)))
(when (string-match "^ 2ch:" bufname)
(delete-buffer bufname))))))
win板のxyzzy Part7から