適当

(defun my-close-right-buffers()
"右のバッファをすべて閉じる"
(interactive)
(setq *buffer-bar-context-menu-buffer* (selected-buffer))
(bufmenu-close-right-buffers))


(defun my-close-left-buffers()
"左のバッファをすべて閉じる"
(interactive)
(setq *buffer-bar-context-menu-buffer* (selected-buffer))
(bufmenu-close-left-buffers))