branch: elpa/casual
commit c91cf85c01b9d8a258ab2f4300764c2183523eef
Merge: 781d6a648d c490a44453
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #477 from kickingvegas/cc/fix-async-image-resize
Fix for async image resize display-buffer-alist
---
lisp/casual-image-utils.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/lisp/casual-image-utils.el b/lisp/casual-image-utils.el
index 3256efa03a..0f92e0af1c 100644
--- a/lisp/casual-image-utils.el
+++ b/lisp/casual-image-utils.el
@@ -134,11 +134,16 @@ References
(let* ((async-buf-name (string-replace "*" "\\*"
shell-command-buffer-name-async))
- (awin-config `((,async-buf-name display-buffer-no-window)))
- (display-buffer-alist
- (map-put! display-buffer-alist async-buf-name awin-config))
+ (awin-config (list #'display-buffer-no-window))
+ (old-value (map-elt display-buffer-alist async-buf-name))
(cmd (string-join (reverse cmd-list) " ")))
+
+ (map-put! display-buffer-alist async-buf-name awin-config)
(async-shell-command cmd)
+ (if old-value
+ (map-put! display-buffer-alist async-buf-name old-value)
+ (setq display-buffer-alist
+ (assoc-delete-all async-buf-name display-buffer-alist)))
(message "%s" cmd))))
