diff options
| -rw-r--r-- | emacs/init.el | 10 |
1 files changed, 9 insertions, 1 deletions
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) |