awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Let popup hooks support popup frames

Browse Source
This commit is contained in:
Henrik Lissner
2016-05-23 20:54:45 -04:00
parent 691c3cc972
commit f72c8805ea
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/defuns/defuns-popups.el
View File

@ -110,17 +110,17 @@
;;;###autoload
(defun doom|popup-init ()
(add-to-list 'doom-popup-windows (get-buffer-window))
(unless (and helm-alive-p (doom/popup-p (get-buffer-window helm-buffer)))
(unless (one-window-p)
(ignore-errors
(local-set-key [escape escape] 'doom/popup-close)
(let ((map evil-normal-state-local-map))
(define-key map [escape escape] 'doom/popup-close)
(unless (apply #'derived-mode-p doom-popup-inescapable-modes)
(define-key map [escape] 'doom/popup-close)
(define-key map (kbd "ESC") 'doom/popup-close))))
(when (apply #'derived-mode-p doom-popup-protect-modes)
(setq-local doom-popup-protect t)
(setq doom-last-popup (current-buffer)))))
(define-key map (kbd "ESC") 'doom/popup-close)))
(when (apply #'derived-mode-p doom-popup-protect-modes)
(setq-local doom-popup-protect t)
(setq doom-last-popup (current-buffer))))))
(provide 'defuns-popups)
;;; defuns-popups.el ends here