From 15ad591d978836b753839014f3c7ce67111763c1 Mon Sep 17 00:00:00 2001 From: Philip Date: Sun, 16 Aug 2015 18:05:47 +0000 Subject: Fix bug when moving a window to the current workspace * exwm-workspace.el (exwm-workspace-move-window): Run reparenting code when moving a window to the current workspace. --- exwm-workspace.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'exwm-workspace.el') diff --git a/exwm-workspace.el b/exwm-workspace.el index 09112d2d65..00f73261ec 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -168,9 +168,9 @@ The optional FORCE option is for internal use only." (unless id (setq id (exwm--buffer->id (window-buffer)))) (unless (and (<= 0 index) (< index exwm-workspace-number)) (user-error "[EXWM] Workspace index out of range: %d" index)) - (when (/= exwm-workspace-current-index index) + (with-current-buffer (exwm--id->buffer id) (let ((frame (elt exwm-workspace--list index))) - (with-current-buffer (exwm--id->buffer id) + (when (not (equal exwm--frame frame)) (setq exwm--frame frame) (exwm-workspace-rename-buffer (concat " " (replace-regexp-in-string "^\\s-*" "" (buffer-name)))) -- cgit 1.4.1