diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-03-14 20:06:24 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-03-14 20:06:24 -0400 |
| commit | 660655178ad7a7caf653bcd429f50468ddb3573d (patch) | |
| tree | 3ae2a9daf6de56bcb45125cfb1d5ffa5dfbb19ce /exwm-buffer-groups.el | |
| parent | 66eb1fcecb94ef588196602a02880b503ad72eeb (diff) | |
Fix exwm-buffer-groups-move
The original version of the function didn't actually modify
'exwm-buffer-groups-buffers.
Diffstat (limited to 'exwm-buffer-groups.el')
| -rw-r--r-- | exwm-buffer-groups.el | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |