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

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