emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

General cleanup/doc comment update

Browse source
This commit is contained in:
Henrik Lissner 2016-10-02 23:26:29 +02:00
parent 906c6e2055
commit 5422201526
6 changed files with 28 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

7
core/defuns/defuns-popups.el
View file

@ -101,6 +101,8 @@ the display (unless DONT-REDRAW is non-nil)."
(let ((orig-win (selected-window)))
(mapc (lambda (w) (doom/popup-close w dont-kill t))
(--filter (and (doom/popup-p it) (not (eq it orig-win))) (window-list))))
;; Earlier versions of Emacs were more prone to graphical artifacts, so redraw
;; the frame in them.
(when (< emacs-major-version 25)
(unless dont-redraw (redraw-frame))))
@ -122,7 +124,7 @@ the display (unless DONT-REDRAW is non-nil)."
;;;###autoload
(defun doom*popup-init (orig-fn &rest args)
"Enable `doom-popup-mode' in every popup window and returns the window."
"Enables `doom-popup-mode' in every popup window and returns the window."
(let ((window (apply orig-fn args)))
(with-selected-window window
(doom-popup-mode +1))
@ -139,7 +141,8 @@ the display (unless DONT-REDRAW is non-nil)."
;;;###autoload
(define-minor-mode doom-popup-mode
"Pop ups"
"Minor mode for pop-up windows. Enables local keymaps and sets state
variables."
:global nil
:init-value nil
:keymap doom-popup-mode-map