awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

popup: update doom*quickrun-close-popup

Browse Source
This commit is contained in:
Henrik Lissner
2016-06-05 00:09:58 -04:00
parent ed9b000714
commit ab8128cf93
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/core-popup.el
View File

@ -146,11 +146,12 @@
(after! quickrun (after! quickrun
;; This allows us to rerun code from inside a quickrun buffer. ;; This allows us to rerun code from inside a quickrun buffer.
(defun doom*quickrun-close-popup (&optional _ _ _ _) (defun doom*quickrun-close-popup (&optional _ _ _ _)
(let* ((buffer (get-buffer quickrun/buffer-name)) (let ((buffer (get-buffer quickrun/buffer-name))
(window (and buffer (get-buffer-window buffer)))) window)
(when buffer (when buffer
(setq window (get-buffer-window buffer))
(shut-up! (quickrun/kill-running-process)) (shut-up! (quickrun/kill-running-process))
(doom/popup-close window)))) (doom/popup-close window nil t))))
(advice-add 'quickrun :before 'doom*quickrun-close-popup) (advice-add 'quickrun :before 'doom*quickrun-close-popup)
(advice-add 'quickrun-region :before 'doom*quickrun-close-popup) (advice-add 'quickrun-region :before 'doom*quickrun-close-popup)