branch: elpa/casual
commit f25b7ac4a6320b4a234f7ce8aff06e672f52e1e1
Merge: ed3798302b 3e4d06a475
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #471 from
kickingvegas/470-change-resize-image-to-not-createraise-window
Do not display async command output window when resizing image
---
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))))
