Fetch necessary properties before checking per-app configurations
* 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:
		
							parent
							
								
									993ca8a13a
								
							
						
					
					
						commit
						65d371d55f
					
				
					 1 changed files with 2 additions and 2 deletions
				
			
		| 
						 | 
					@ -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)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue