about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2019-09-08T00·00+0000
committerChris Feng <chris.w.feng@gmail.com>2019-09-08T00·00+0000
commit5fbf20ba16c87a110587b513b479a5f1f90d3db6 (patch)
treea052e50ea538270922bbe07864dfc172f6f43ff3
parentccc4cce0e0df426f4eccb81479c4a773c488155d (diff)
; Improve messages for automatically created workspaces
-rw-r--r--exwm-workspace.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 8aa04ddf2a67..7b18cde5c1e7 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)