branch: elpa/casual
commit 3e4d06a47519e6b90b035e10c9de92ed3f9ae065
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Do not display async command output window when resizing image
* lisp/casual-image-utils.el (casual-image--resize): Amend
display-buffer-alist
to not display output buffer for async-shell-command.
* lisp/Makefile (MODULES): Fix bug where image tests were not run in
regression.
---
lisp/Makefile | 1 +
lisp/casual-image-utils.el | 7 ++++++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/lisp/Makefile b/lisp/Makefile
index b6444e68dd..6f2add5064 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -36,6 +36,7 @@ eww \
help \
html \
ibuffer \
+image \
info \
isearch \
ispell \
diff --git a/lisp/casual-image-utils.el b/lisp/casual-image-utils.el
index 6e7546c32b..b3e9318759 100644
--- a/lisp/casual-image-utils.el
+++ b/lisp/casual-image-utils.el
@@ -131,7 +131,12 @@ References
(push geometry cmd-list)
(push target cmd-list)
- (let ((cmd (string-join (reverse cmd-list) " ")))
+ (let* ((async-buf-name (string-replace "*" "\\*"
+ shell-command-buffer-name-async))
+ (display-buffer-alist
+ (append display-buffer-alist
+ `((,async-buf-name display-buffer-no-window))))
+ (cmd (string-join (reverse cmd-list) " ")))
(async-shell-command cmd)
(message "%s" cmd))))
