From 660655178ad7a7caf653bcd429f50468ddb3573d Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Date: Thu, 14 Mar 2019 20:06:24 -0400
Subject: Fix exwm-buffer-groups-move

The original version of the function didn't actually modify
'exwm-buffer-groups-buffers.
---
 exwm-buffer-groups.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/exwm-buffer-groups.el b/exwm-buffer-groups.el
index ca416cb..a16223f 100644
--- a/exwm-buffer-groups.el
+++ b/exwm-buffer-groups.el
@@ -94,6 +94,12 @@ workspace."
    (list
     (exwm-workspace--position
      (exwm-workspace--prompt-for-workspace "Move workspace to: "))))
+  ;; Remove the buffer from the current workspace.
+  (setf (elt exwm-buffer-groups-buffers exwm-workspace-current-index)
+        (remove (current-buffer)
+                (elt exwm-buffer-groups-buffers exwm-workspace-current-index)))
+  ;; Add it to the NTH workspace.
+  (push (current-buffer) (elt exwm-buffer-groups-buffers nth))
   ;; Switch out of the buffer.
   (set-window-dedicated-p nil nil)
   (switch-to-prev-buffer nil 'bury))
-- 
cgit v1.3