branch: externals/shell-command+
commit 640d4b282f5e0858b29cb01ac33785e02575a9ed
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Kill shell buffer instead of erasing it when clearing
---
shell-command+.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/shell-command+.el b/shell-command+.el
index b5acbfab25..7917a1f8f5 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -286,9 +286,8 @@ prefix the command with \"../../../../\" or \"....\".")
(defcustom shell-command+-clear-function
(lambda ()
- (erase-buffer)
- (when-let ((win (get-buffer-window)))
- (quit-window nil win)))
+ (when-let* ((win (get-buffer-window)))
+ (quit-window t win)))
"Function to invoke without any arguments when handling \"clear\"."
:type 'function)
