Remove third argument from doom/popup-close* fns
This commit is contained in:
parent
8f76e50242
commit
8c5deda9e3
|
@ -159,10 +159,10 @@
|
|||
;; This prevents helm-ag from switching between windows and buffers.
|
||||
(defadvice helm-ag--edit-abort (around helm-ag-edit-abort-popup-compat activate)
|
||||
(cl-letf (((symbol-function 'select-window) 'ignore)) ad-do-it)
|
||||
(doom/popup-close nil t t))
|
||||
(doom/popup-close nil t))
|
||||
(defadvice helm-ag--edit-commit (around helm-ag-edit-commit-popup-compat activate)
|
||||
(cl-letf (((symbol-function 'select-window) 'ignore)) ad-do-it)
|
||||
(doom/popup-close nil t t))
|
||||
(doom/popup-close nil t))
|
||||
(defadvice helm-ag--edit (around helm-ag-edit-popup-compat activate)
|
||||
(cl-letf (((symbol-function 'other-window) 'ignore)
|
||||
((symbol-function 'switch-to-buffer) 'doom/popup-buffer))
|
||||
|
|
|
@ -49,7 +49,7 @@ window. Returns nil or the popup window."
|
|||
`(let ((popup-p (doom/popups-p))
|
||||
(in-popup-p (doom/popup-p)))
|
||||
(when popup-p
|
||||
(doom/popup-close-all t t))
|
||||
(doom/popup-close-all t))
|
||||
(prog1
|
||||
,@body
|
||||
(when popup-p
|
||||
|
@ -101,7 +101,7 @@ window. Returns nil or the popup window."
|
|||
"Closes all popups (kill them if DONT-KILL-BUFFERS is non-nil)."
|
||||
(interactive)
|
||||
(let ((orig-win (selected-window)))
|
||||
(mapc (lambda (w) (doom/popup-close w dont-kill t))
|
||||
(mapc (lambda (w) (doom/popup-close w dont-kill))
|
||||
(--filter (and (doom/popup-p it) (not (eq it orig-win)))
|
||||
(window-list)))))
|
||||
|
||||
|
|
|
@ -85,7 +85,7 @@ elisp buffer). Otherwise forward the region to Quickrun."
|
|||
"Allows us to re-run quickrun from inside the quickrun buffer."
|
||||
(awhen (get-buffer-window quickrun/buffer-name)
|
||||
(shut-up! (quickrun/kill-running-process))
|
||||
(doom/popup-close it nil t)))
|
||||
(doom/popup-close it nil)))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom|quickrun-after-run ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user