From b9781e03f6117923b5e2ffd7227b934ab081fd25 Mon Sep 17 00:00:00 2001 From: Thomas Ulmer Date: Fri, 19 Dec 2025 16:21:46 -0800 Subject: emacs: better kill buffer bind --- emacs/init.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/emacs/init.el b/emacs/init.el index f0b77c9..bd11246 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -201,6 +201,14 @@ With ARG, open a Dired buffer instead." (dired dir) (vc-dir dir)))) +(defun my/kill-buffer (&optional arg) + "Kill the current buffer. +With ARG kill the window as well." + (interactive "P") + (if arg + (kill-buffer-and-window) + (kill-buffer))) + (defvar my/layout-pair (cons nil nil) "Cons pair of window configurations.") (add-hook 'after-init-hook (lambda () @@ -784,7 +792,7 @@ current layout." (keymap-set my/keys-mode-map "M-o" 'other-window) (keymap-set my/keys-mode-map "M-RET" 'my/eshell) (keymap-set my/keys-mode-map "M-C" 'calc) - (keymap-set my/keys-mode-map "M-K" 'kill-buffer) + (keymap-set my/keys-mode-map "M-K" 'my/kill-buffer) (keymap-set my/keys-mode-map "M-D" 'my/vc-on-root) (keymap-set my/keys-mode-map "M-U" 'scroll-lock-mode) (keymap-set my/keys-mode-map "M-Q" 'auto-fill-mode) -- cgit v1.2.3