mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow switch to normal buffers in exwm-workspace-switch-to-window

Browse source 
* exwm-workspace.el (exwm-workspace-switch-to-window): Allow switch to normal
  buffers.
This commit is contained in:
Chris Feng 2015-09-11 08:07:53 +08:00
parent 3f2f844569
commit 1d435157d3
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
exwm-workspace.el
View file

@ -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)
(not (eq exwm--frame exwm-workspace--current)))
(exwm-workspace-move-window exwm-workspace-current-index
exwm--id)))))
(if (and (eq major-mode 'exwm-mode)
(not (eq exwm--frame exwm-workspace--current)))
(exwm-workspace-move-window exwm-workspace-current-index
exwm--id)
(switch-to-buffer buffer)))))
;; Hide buffers on other workspaces
(dolist (pair exwm--id-buffer-alist)
(with-current-buffer (cdr pair)