[elpa] externals/shell-command+ e47de62526: Ensure that 'quit-window' doesn't delete the wrong buffer

[ELPA Syncer]

branch: externals/shell-command+
commit e47de6252646e4da205b3c6172a5120ddc75b585
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Ensure that 'quit-window' doesn't delete the wrong buffer
---
 shell-command+.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/shell-command+.el b/shell-command+.el
index 8838ebdeed..f71ccef9a0 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -284,7 +284,11 @@ prefix the command with \"../../../../\" or \"....\".")
   (pcase-let ((`(,_ ,directory) (shell-command+-tokenize command)))
     (cd directory)))
 
-(defcustom shell-command+-clear-function (apply-partially #'quit-window t)
+(defcustom shell-command+-clear-function
+  (lambda ()
+    (when-let ((win (get-buffer-window)))
+      (quit-window nil win))
+    (erase-buffer))
   "Function to invoke without any arguments when handling \"clear\"."
   :type 'function)