branch: elpa/casual
commit 781d6a648dda2e98f138654dfc884127ec982ee6
Merge: 1e3c502a94 374cf641b6
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #476 from kickingvegas/cc/amend-resize-image-async-window
Amend display-buffer-alist handling for resize image
---
lisp/casual-image-utils.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/casual-image-utils.el b/lisp/casual-image-utils.el
index b3e9318759..3256efa03a 100644
--- a/lisp/casual-image-utils.el
+++ b/lisp/casual-image-utils.el
@@ -25,6 +25,7 @@
;;; Code:
(require 'image)
+(require 'map)
(require 'image-crop)
(require 'casual-lib)
@@ -133,9 +134,9 @@ References
(let* ((async-buf-name (string-replace "*" "\\*"
shell-command-buffer-name-async))
+ (awin-config `((,async-buf-name display-buffer-no-window)))
(display-buffer-alist
- (append display-buffer-alist
- `((,async-buf-name display-buffer-no-window))))
+ (map-put! display-buffer-alist async-buf-name awin-config))
(cmd (string-join (reverse cmd-list) " ")))
(async-shell-command cmd)
(message "%s" cmd))))
