From 42f4ec6db50fc0d62792847e63349c46b056ad8f Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sat, 8 Aug 2015 20:39:05 +0800 Subject: [PATCH] Show moved window by default --- exwm-workspace.el | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) diff --git a/exwm-workspace.el b/exwm-workspace.el index efecf57..148ff36 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)