diff options
| author | Ashley Duckworth | 2021-01-22 13:01:01 -0600 |
|---|---|---|
| committer | Ashley Duckworth | 2021-01-22 13:01:01 -0600 |
| commit | bd7881085b84137eabe37a36eb039025efc4c4cd (patch) | |
| tree | 4dc9a468394e94307e650452829d372a583ff445 | |
| parent | Change startup visibility (diff) | |
| download | emacs-bd7881085b84137eabe37a36eb039025efc4c4cd.tar.gz emacs-bd7881085b84137eabe37a36eb039025efc4c4cd.zip | |
Change behavior of kill-a-buffer
I don't know if I'll /ever/ want to kill all other buffers and windows, so I've changed C-u C-u M-x kill-a-buffer to just run kill-buffer.
| -rw-r--r-- | config.org | 6 |
1 files changed, 3 insertions, 3 deletions
| diff --git a/config.org b/config.org index 55ccaf7..0b71e4c 100644 --- a/config.org +++ b/config.org | |||
| @@ -218,7 +218,7 @@ function to the =kill-buffer-query-functions= hook that will return | |||
| 218 | `kill-a-buffer' uses the PREFIX argument to determine which buffer(s) to kill: | 218 | `kill-a-buffer' uses the PREFIX argument to determine which buffer(s) to kill: |
| 219 | 0 => Kill current buffer & window | 219 | 0 => Kill current buffer & window |
| 220 | 4 (C-u) => Kill OTHER buffer & window | 220 | 4 (C-u) => Kill OTHER buffer & window |
| 221 | 16 (C-u C-u) => Kill ALL OTHER buffers & windows" | 221 | 16 (C-u C-u) => Run `kill-buffer' without a prefix arg." |
| 222 | (interactive "P") | 222 | (interactive "P") |
| 223 | (pcase (or (car prefix) 0) | 223 | (pcase (or (car prefix) 0) |
| 224 | (0 (kill-current-buffer) | 224 | (0 (kill-current-buffer) |
| @@ -226,8 +226,8 @@ function to the =kill-buffer-query-functions= hook that will return | |||
| 226 | (4 (other-window 1) | 226 | (4 (other-window 1) |
| 227 | (kill-current-buffer) | 227 | (kill-current-buffer) |
| 228 | (unless (one-window-p) (delete-window))) | 228 | (unless (one-window-p) (delete-window))) |
| 229 | (16 (mapc #'kill-buffer (delq (current-buffer) (buffer-list))) | 229 | (16 (let ((current-prefix-arg nil)) |
| 230 | (delete-other-windows)))) | 230 | (kill-buffer))))) |
| 231 | #+end_src | 231 | #+end_src |
| 232 | 232 | ||
| 233 | #+begin_src emacs-lisp :noweb-ref bindings | 233 | #+begin_src emacs-lisp :noweb-ref bindings |