diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2019-08-25T00·00+0000 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2019-08-25T00·00+0000 |
| commit | d63dc6a82a44c1e918b93c4f50e5d4274ad6d21a (patch) | |
| tree | 0856ebbe402f2d32132f9776c09fa8f7f06ea642 | |
| parent | ddc22f2feddd99ff488f5f1c03b4f059e353056a (diff) | |
Ignore non-`exwm-mode' buffers in `exwm-workspace-move-window'
* exwm-workspace.el (exwm-workspace-move-window): Ignore non-`exwm-mode' buffers.
| -rw-r--r-- | exwm-workspace.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index f536bc5a81ad..8aa04ddf2a67 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -804,7 +804,7 @@ INDEX must not exceed the current number of workspaces." :data desktop))))) ;;;###autoload -(defun exwm-workspace-move-window (frame-or-index &optional id) +(cl-defun exwm-workspace-move-window (frame-or-index &optional id) "Move window ID to workspace FRAME-OR-INDEX." (interactive (list (cond @@ -819,6 +819,8 @@ INDEX must not exceed the current number of workspaces." (let ((frame (exwm-workspace--workspace-from-frame-or-index frame-or-index)) old-frame container) (unless id (setq id (exwm--buffer->id (window-buffer)))) + (unless id + (cl-return-from exwm-workspace-move-window)) (exwm--log "Moving #x%x to %s" id frame-or-index) (with-current-buffer (exwm--id->buffer id) (unless (eq exwm--frame frame) |