Minor cleanup
* exwm-layout.el (exwm-layout--refresh): Reuse car.
This commit is contained in:
		
							parent
							
								
									3cef44a6ca
								
							
						
					
					
						commit
						f6cd9503e6
					
				
					 1 changed files with 4 additions and 4 deletions
				
			
		| 
						 | 
					@ -282,11 +282,11 @@
 | 
				
			||||||
            (if (not windows)
 | 
					            (if (not windows)
 | 
				
			||||||
                (when (eq frame exwm--frame) ;for exwm-layout-show-all-buffers
 | 
					                (when (eq frame exwm--frame) ;for exwm-layout-show-all-buffers
 | 
				
			||||||
                  (exwm-layout--hide exwm--id))
 | 
					                  (exwm-layout--hide exwm--id))
 | 
				
			||||||
 | 
					              (let ((window (car windows)))
 | 
				
			||||||
                (if (eq frame exwm--frame)
 | 
					                (if (eq frame exwm--frame)
 | 
				
			||||||
                  (exwm-layout--show exwm--id (car windows))
 | 
					                    (exwm-layout--show exwm--id window)
 | 
				
			||||||
                  (exwm-workspace-move-window
 | 
					                  (exwm-workspace-move-window
 | 
				
			||||||
                   (cl-position frame exwm-workspace--list) exwm--id))
 | 
					                   (cl-position frame exwm-workspace--list) exwm--id))
 | 
				
			||||||
              (let ((window (car windows)))
 | 
					 | 
				
			||||||
                ;; Make sure this buffer is not displayed elsewhere
 | 
					                ;; Make sure this buffer is not displayed elsewhere
 | 
				
			||||||
                (dolist (i (get-buffer-window-list (current-buffer) 0 t))
 | 
					                (dolist (i (get-buffer-window-list (current-buffer) 0 t))
 | 
				
			||||||
                  (unless (eq i window)
 | 
					                  (unless (eq i window)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue