diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-09-11T00·07+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-09-11T00·07+0800 |
| commit | 1d435157d3c9b3f807aca55bb4e6d16d5cb6c5df (patch) | |
| tree | 86952b9c6717d9bac0f8f5a01ef296d0b0aed2c7 | |
| parent | 3f2f84456997a46e047adbf45c4c44b628ae1377 (diff) | |
Allow switch to normal buffers in exwm-workspace-switch-to-window
* exwm-workspace.el (exwm-workspace-switch-to-window): Allow switch to normal buffers.
| -rw-r--r-- | exwm-workspace.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index 5fae713f5709..d2619eed94f8 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) |