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

Don't close treemacs on ESC #1970

Browse source
This commit is contained in:
Henrik Lissner 2020-07-29 14:22:44 -04:00
parent 1a0f2fbfbe
commit d2f7999c29
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/ui/popup/autoload/popup.el
View file

@ -181,8 +181,7 @@ and enables `+popup-buffer-mode'."
(let ((window (or window (selected-window)))) (let ((window (or window (selected-window))))
(and (windowp window) (and (windowp window)
(window-live-p window) (window-live-p window)
(or (window-parameter window 'popup) (window-parameter window 'popup)
(window-parameter window 'no-other-window))
window)))) window))))
;;;###autoload ;;;###autoload
@ -346,7 +345,13 @@ Any non-nil value besides the above will be used as the raw value for
(defun +popup/other () (defun +popup/other ()
"Cycle through popup windows, like `other-window'. Ignores regular windows." "Cycle through popup windows, like `other-window'. Ignores regular windows."
(interactive) (interactive)
(if-let (popups (+popup-windows)) (if-let (popups (cl-remove-if-not
(lambda (w) (or (+popup-window-p w)
;; This command should be able to hop between
;; windows with a `no-other-window'
;; parameter, since `other-window' won't.
(window-parameter w 'no-other-window)))
(window-list)))
(select-window (if (+popup-window-p) (select-window (if (+popup-window-p)
(let ((window (selected-window))) (let ((window (selected-window)))
(or (car-safe (cdr (memq window popups))) (or (car-safe (cdr (memq window popups)))