gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

narf-popup-close-all => narf/popup-close-all

Browse Source
This commit is contained in:
Henrik Lissner 2016-03-04 22:40:35 -05:00
parent 1e1cbc86c3
commit 94bfda6b78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/core-popup.el
View File

@ -219,7 +219,7 @@
(if (narf/popup-p (selected-window))
(setq window (selected-window))
(unless dont-close-all
(narf-popup-close-all dont-kill))))
(narf/popup-close-all dont-kill))))
(when (and window (window-live-p window))
;; REPL buffer
(cond ((and (derived-mode-p 'comint-mode)
@ -234,7 +234,7 @@
(kill-buffer (window-buffer window)))
(delete-window window)))
(defun narf-popup-close-all (&optional dont-kill-buffers)
(defun narf/popup-close-all (&optional dont-kill-buffers)
"Closes all popup windows (and kills the buffers if DONT-KILL-BUFFERS is non-nil)"
(interactive)
(mapc (lambda (w) (narf/popup-close w dont-kill-buffers))