[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm d63dc6a 3/4: Ignore non-`exwm-mode' buffers in `ex
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm d63dc6a 3/4: Ignore non-`exwm-mode' buffers in `exwm-workspace-move-window' |
Date: |
Sun, 25 Aug 2019 12:32:08 -0400 (EDT) |
branch: externals/exwm
commit d63dc6a82a44c1e918b93c4f50e5d4274ad6d21a
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
Ignore non-`exwm-mode' buffers in `exwm-workspace-move-window'
* exwm-workspace.el (exwm-workspace-move-window): Ignore
non-`exwm-mode' buffers.
---
exwm-workspace.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/exwm-workspace.el b/exwm-workspace.el
index f536bc5..8aa04dd 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)