From a83a65fe567d92911223ed6eb4ea6411573d9f32 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Thu, 29 May 2025 23:37:51 +0200 Subject: emacs: Add mm-buffer-menu.el --- .config/emacs/modules/mm-buffer-menu.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 .config/emacs/modules/mm-buffer-menu.el (limited to '.config/emacs/modules') diff --git a/.config/emacs/modules/mm-buffer-menu.el b/.config/emacs/modules/mm-buffer-menu.el new file mode 100644 index 0000000..7b725c6 --- /dev/null +++ b/.config/emacs/modules/mm-buffer-menu.el @@ -0,0 +1,15 @@ +;;; mm-buffer-menu.el --- Buffer Menu configuration -*- lexical-binding: t; -*- + +(defun mm-Buffer-menu-delete-all () + "Mark all buffers for deletion." + (interactive nil Buffer-menu-mode) + (save-excursion + (goto-char (point-min)) + (while (not (eobp)) + (Buffer-menu-delete)))) + +(use-package buff-menu + :bind ( :map Buffer-menu-mode-map + ("D" . mm-Buffer-menu-delete-all))) + +(provide 'mm-buffer-menu) \ No newline at end of file -- cgit v1.2.3