Force repositioning floating Emacs frames
* exwm-floating.el (exwm-floating--set-floating): Ditto.
This commit is contained in:
		
							parent
							
								
									2b7449ea42
								
							
						
					
					
						commit
						267ebd7f55
					
				
					 1 changed files with 9 additions and 8 deletions
				
			
		| 
						 | 
					@ -266,14 +266,15 @@ context of the corresponding buffer.")
 | 
				
			||||||
    ;; FIXME: Strangely, the Emacs frame can move itself at this point
 | 
					    ;; FIXME: Strangely, the Emacs frame can move itself at this point
 | 
				
			||||||
    ;;        when there are left/top struts set.  Force resetting its
 | 
					    ;;        when there are left/top struts set.  Force resetting its
 | 
				
			||||||
    ;;        position seems working, but it'd better to figure out why.
 | 
					    ;;        position seems working, but it'd better to figure out why.
 | 
				
			||||||
    (when exwm-workspace--struts
 | 
					    ;; FIXME: This also happens in another case (#220) where the cause is
 | 
				
			||||||
 | 
					    ;;        still unclear.
 | 
				
			||||||
    (xcb:+request exwm--connection
 | 
					    (xcb:+request exwm--connection
 | 
				
			||||||
        (make-instance 'xcb:ConfigureWindow
 | 
					        (make-instance 'xcb:ConfigureWindow
 | 
				
			||||||
                       :window outer-id
 | 
					                       :window outer-id
 | 
				
			||||||
                       :value-mask (logior xcb:ConfigWindow:X
 | 
					                       :value-mask (logior xcb:ConfigWindow:X
 | 
				
			||||||
                                           xcb:ConfigWindow:Y)
 | 
					                                           xcb:ConfigWindow:Y)
 | 
				
			||||||
                       :x 0 :y 0))
 | 
					                       :x 0 :y 0))
 | 
				
			||||||
      (xcb:flush exwm--connection)))
 | 
					    (xcb:flush exwm--connection))
 | 
				
			||||||
  (with-current-buffer (exwm--id->buffer id)
 | 
					  (with-current-buffer (exwm--id->buffer id)
 | 
				
			||||||
    (run-hooks 'exwm-floating-setup-hook))
 | 
					    (run-hooks 'exwm-floating-setup-hook))
 | 
				
			||||||
  ;; Redraw the frame.
 | 
					  ;; Redraw the frame.
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue