diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-08-08T12·39+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-08-08T12·39+0800 |
| commit | 42f4ec6db50fc0d62792847e63349c46b056ad8f (patch) | |
| tree | d9c13acf84a5f3c6fc7c9fdc987bba4be3a4dbb8 /exwm-workspace.el | |
| parent | 63402b0efc19a50e89d868fad3f91b134170aab6 (diff) | |
Show moved window by default
Diffstat (limited to 'exwm-workspace.el')
| -rw-r--r-- | exwm-workspace.el | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index efecf571db..148ff36c59 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -180,12 +180,15 @@ The optional FORCE option is for internal use only." (concat " " (replace-regexp-in-string "^\\s-*" "" (buffer-name)))) (if exwm--floating-frame ;; Move the floating frame is enough - (xcb:+request exwm--connection - (make-instance 'xcb:ReparentWindow - :window (frame-parameter exwm--floating-frame - 'exwm-outer-id) - :parent (frame-parameter frame 'exwm-window-id) - :x 0 :y 0)) + (progn + (xcb:+request exwm--connection + (make-instance 'xcb:ReparentWindow + :window (frame-parameter exwm--floating-frame + 'exwm-outer-id) + :parent (frame-parameter frame + 'exwm-window-id) + :x 0 :y 0)) + (xcb:flush exwm--connection)) ;; Move the window itself (bury-buffer) (exwm-layout--hide id) @@ -196,8 +199,10 @@ The optional FORCE option is for internal use only." (make-instance 'xcb:ReparentWindow :window id :parent (frame-parameter frame 'exwm-window-id) - :x 0 :y 0))))) - (xcb:flush exwm--connection) + :x 0 :y 0)) + (xcb:flush exwm--connection) + (set-window-buffer (frame-first-window frame) + (exwm--id->buffer id))))) (exwm-workspace--update-switch-history))) (defun exwm-workspace-rename-buffer (newname) |