[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ace-window d20bd7c 59/92: ace-window.el (aw-delete-wind
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ace-window d20bd7c 59/92: ace-window.el (aw-delete-window): Add optional kill-buffer arg |
Date: |
Wed, 17 Mar 2021 18:39:22 -0400 (EDT) |
branch: externals/ace-window
commit d20bd7c6f1bf6682a74df874bcfad9d7af4429ab
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>
ace-window.el (aw-delete-window): Add optional kill-buffer arg
Example config:
(add-to-list
'aw-dispatch-alist
(list
?X
(lambda (w)
(aw-delete-window w t))
"Delete Window and Kill Buffer"))
Fixes #146
---
ace-window.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/ace-window.el b/ace-window.el
index 7c30659..bd26474 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -660,8 +660,9 @@ Windows are numbered top down, left to right."
(mapc #'delete-overlay aw-overlays-back)
(call-interactively 'ace-window)))
-(defun aw-delete-window (window)
- "Delete window WINDOW."
+(defun aw-delete-window (window &optional kill-buffer)
+ "Delete window WINDOW.
+When KILL-BUFFER is non-nil, also kill the buffer."
(let ((frame (window-frame window)))
(when (and (frame-live-p frame)
(not (eq frame (selected-frame))))
@@ -669,7 +670,10 @@ Windows are numbered top down, left to right."
(if (= 1 (length (window-list)))
(delete-frame frame)
(if (window-live-p window)
- (delete-window window)
+ (let ((buffer (window-buffer window)))
+ (delete-window window)
+ (when kill-buffer
+ (kill-buffer buffer)))
(error "Got a dead window %S" window)))))
(defun aw-switch-buffer-in-window (window)
- [elpa] externals/ace-window 88e48db 56/92: ace-window.el: Fix leading char not displayed if the face height isn't 1.0, (continued)
- [elpa] externals/ace-window 88e48db 56/92: ace-window.el: Fix leading char not displayed if the face height isn't 1.0, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window c963bb9 79/92: ace-window.el: Fix compiler warning, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window b93380c 90/92: ace-window.el: Remove obsolete variables, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 702bc27 45/92: Show the overlay in the bottom of the window too, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 746ffd2 52/92: ace-window.el (aw-ignored-buffers): Clean up doc, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 2307fd1 64/92: ace-window.el (aw-dispatch-alist): Don't bind anything on home row, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 379413c 60/92: ace-window.el (aw-offset): Update, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 9ca16c6 62/92: Fix aw-switch-buffer-other-window bug, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 58463b4 67/92: ace-window.el (aw-select): Fix when selecting from an ignored window, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window d0a5559 66/92: ace-window.el (ace-window): M-0 should not modify aw-ignore-on permanently, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window d20bd7c 59/92: ace-window.el (aw-delete-window): Add optional kill-buffer arg,
Stefan Monnier <=
- [elpa] externals/ace-window 706f24e 69/92: Fix typo, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window fc0d19c 80/92: ace-window.el (aw-select): Fix, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 27bb0b7 81/92: test/elpa.el: Put .elpa in ~ instead of the current directory, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 7e0777b 87/92: ace-window.el (ace-display-buffer): Add, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window e445b2c 89/92: ace-window.el (aw-select): Disable transient-mark-mode for the duration, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window c7cb315 92/92: ace-window.el (aw-copy-window): Copy window-start and point, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 66bfd42 27/92: Add switch-buffer-other-window, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 8d71b8f 46/92: ace-window.el (aw--lead-overlay): Fix warning, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window c35618e 43/92: Make window ordering rely on frame position, Stefan Monnier, 2021/03/17
- [elpa] externals/ace-window 95a75e6 50/92: ace-window.el: Fix frame-parameter being nil sometimes, Stefan Monnier, 2021/03/17