Allow switch to normal buffers in exwm-workspace-switch-to-window
* exwm-workspace.el (exwm-workspace-switch-to-window): Allow switch to normal buffers.
This commit is contained in:
		
							parent
							
								
									3f2f844569
								
							
						
					
					
						commit
						1d435157d3
					
				
					 1 changed files with 5 additions and 4 deletions
				
			
		| 
						 | 
				
			
			@ -219,10 +219,11 @@ The optional FORCE option is for internal use only."
 | 
			
		|||
  (let ((buffer (read-buffer "Switch to window: " nil t)))
 | 
			
		||||
    (when buffer
 | 
			
		||||
      (with-current-buffer buffer
 | 
			
		||||
        (when (and (eq major-mode 'exwm-mode)
 | 
			
		||||
        (if (and (eq major-mode 'exwm-mode)
 | 
			
		||||
                 (not (eq exwm--frame exwm-workspace--current)))
 | 
			
		||||
            (exwm-workspace-move-window exwm-workspace-current-index
 | 
			
		||||
                                      exwm--id)))))
 | 
			
		||||
                                        exwm--id)
 | 
			
		||||
          (switch-to-buffer buffer)))))
 | 
			
		||||
  ;; Hide buffers on other workspaces
 | 
			
		||||
  (dolist (pair exwm--id-buffer-alist)
 | 
			
		||||
    (with-current-buffer (cdr pair)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue