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

ui/posframe: refactor +posframe|delete-on-escape

Browse Source
This commit is contained in:
Henrik Lissner
2018-03-13 02:00:20 -04:00
parent 1da1ca1496
commit fa22dcc7a4
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/ui/posframe/autoload.el
View File

@ -15,8 +15,13 @@
;;;###autoload
(defun +posframe|delete-on-escape ()
"TODO"
(when (cl-loop for frame in (frame-list)
(unless (frame-parameter (selected-frame) 'posframe-buffer)
(cl-loop for frame in (frame-list)
if (and (frame-parameter frame 'posframe-buffer)
(not (frame-visible-p frame)))
return t)
(posframe-delete-all)))
do (delete-frame frame))
(dolist (buffer (buffer-list))
(let ((frame (buffer-local-value 'posframe--frame buffer)))
(when (and frame (or (not (frame-live-p frame))
(not (frame-visible-p frame))))
(posframe--kill-buffer buffer))))))