Make _NET_ACTIVE_WINDOW working for floating X windows
* exwm.el (exwm--on-ClientMessage): Select floating frames for floating X windows on receiving _NET_ACTIVE_WINDOW.
This commit is contained in:
		
							parent
							
								
									9c85f172e5
								
							
						
					
					
						commit
						2005fa5c5d
					
				
					 1 changed files with 12 additions and 10 deletions
				
			
		
							
								
								
									
										22
									
								
								exwm.el
									
										
									
									
									
								
							
							
						
						
									
										22
									
								
								exwm.el
									
										
									
									
									
								
							|  | @ -446,16 +446,18 @@ | |||
|         (when (buffer-live-p buffer) | ||||
|           (with-current-buffer buffer | ||||
|             (when (eq exwm--frame exwm-workspace--current) | ||||
|               (setq iconic (exwm-layout--iconic-state-p)) | ||||
|               (when iconic | ||||
|                 ;; State change: iconic => normal. | ||||
|                 (set-window-buffer (frame-selected-window exwm--frame) | ||||
|                                    (current-buffer))) | ||||
|               ;; Focus transfer. | ||||
|               (setq window (get-buffer-window nil t)) | ||||
|               (when (or iconic | ||||
|                         (not (eq window (selected-window)))) | ||||
|                 (select-window window))))))) | ||||
|               (if exwm--floating-frame | ||||
|                   (select-frame exwm--floating-frame) | ||||
|                 (setq iconic (exwm-layout--iconic-state-p)) | ||||
|                 (when iconic | ||||
|                   ;; State change: iconic => normal. | ||||
|                   (set-window-buffer (frame-selected-window exwm--frame) | ||||
|                                      (current-buffer))) | ||||
|                 ;; Focus transfer. | ||||
|                 (setq window (get-buffer-window nil t)) | ||||
|                 (when (or iconic | ||||
|                           (not (eq window (selected-window)))) | ||||
|                   (select-window window)))))))) | ||||
|      ;; _NET_CLOSE_WINDOW. | ||||
|      ((= type xcb:Atom:_NET_CLOSE_WINDOW) | ||||
|       (let ((buffer (exwm--id->buffer id))) | ||||
|  |  | |||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue