Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 21:17:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Fetch necessary properties before checking per-app configurations

Browse source 
* exwm-manage.el (exwm-manage--manage-window): Fetch X window title &
protocols so they can be available when checking per-application
configurations.
This commit is contained in:
Chris Feng 2019-02-01 00:00:00 +00:00
parent 993ca8a13a
commit 65d371d55f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-manage.el
View file

@ -217,6 +217,8 @@ You can still make the X windows floating afterwards."
(exwm--update-hints id) (exwm--update-hints id)
(exwm-manage--update-geometry id) (exwm-manage--update-geometry id)
(exwm-manage--update-mwm-hints id) (exwm-manage--update-mwm-hints id)
(exwm--update-title id)
(exwm--update-protocols id)
(setq exwm--configurations (exwm-manage--get-configurations)) (setq exwm--configurations (exwm-manage--get-configurations))
;; OverrideRedirect is not checked here. ;; OverrideRedirect is not checked here.
(when (and (when (and
@ -311,8 +313,6 @@ You can still make the X windows floating afterwards."
:button button :modifiers xcb:ModMask:Any))) :button button :modifiers xcb:ModMask:Any)))
(exwm-manage--set-client-list) (exwm-manage--set-client-list)
(xcb:flush exwm--connection) (xcb:flush exwm--connection)
(exwm--update-title id)
(exwm--update-protocols id)
(if (plist-member exwm--configurations 'floating) (if (plist-member exwm--configurations 'floating)
;; User has specified whether it should be floating. ;; User has specified whether it should be floating.
(if (plist-get exwm--configurations 'floating) (if (plist-get exwm--configurations 'floating)