[elpa] externals/exwm 5fbf20b 5/6: ; Improve messages for automatically created workspaces

[Chris Feng]

branch: externals/exwm
commit 5fbf20ba16c87a110587b513b479a5f1f90d3db6
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    ; Improve messages for automatically created workspaces
---
 exwm-workspace.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index 8aa04dd..7b18cde 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1338,8 +1338,10 @@ Please check `exwm-workspace--minibuffer-own-frame-p' 
first."
   (exwm-workspace--update-ewmh-props)
   (if exwm-workspace--create-silently
       (setq exwm-workspace--switch-history-outdated t)
-    (exwm-workspace-switch frame t)
-    (message "Added %s as workspace %d" frame exwm-workspace-current-index)
+    (let ((original-index exwm-workspace-current-index))
+      (exwm-workspace-switch frame t)
+      (message "Created %s as workspace %d; switched from %d"
+               frame exwm-workspace-current-index original-index))
     (run-hooks 'exwm-workspace-list-change-hook)))
 
 (defun exwm-workspace--get-remove-frame-next-workspace (frame)