branch: elpa/casual
commit 374cf641b6f6d4198618fe3f29b7cf84003c3023
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Amend display-buffer-alist handling for resize image
Amends local modification of `display-buffer-alist` to either replace or
insert
key `async-buf-name` when resizing an 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))))
