From 1d435157d3c9b3f807aca55bb4e6d16d5cb6c5df Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Fri, 11 Sep 2015 08:07:53 +0800 Subject: [PATCH] Allow switch to normal buffers in exwm-workspace-switch-to-window * exwm-workspace.el (exwm-workspace-switch-to-window): Allow switch to normal buffers. --- exwm-workspace.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/exwm-workspace.el b/exwm-workspace.el index 5fae713f5..d2619eed9 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -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)