bs-showの拡張
bsのファイル一覧表示を使っていましたが、ディレクトリも表示したくなったので調べてみました。
(when (load "bs") (defun my-visits-non-file-or-dir (buffer) (and (not (buffer-file-name buffer)) ; ファイルパスが入っていない (not (eq (buffer-local-value 'major-mode buffer) 'dired-mode)) ; diredバッファでもない ) ) (add-to-list 'bs-configurations '("files-and-dirs" nil nil nil my-visits-non-file-or-dir bs-sort-buffer-interns-are-last)) (setq bs-default-configuration "files-and-dirs") (global-set-key "\C-x\C-b" 'bs-show);;; バッファリストを使いやすく )