~jakob/exwm-buffer-groups

660655178ad7a7caf653bcd429f50468ddb3573d — Jakob L. Kreuze 3 years ago 66eb1fc
Fix exwm-buffer-groups-move

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

M exwm-buffer-groups.el
M exwm-buffer-groups.el => exwm-buffer-groups.el +6 -0
@@ 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))