emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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))))))