diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2019-09-08T00·00+0000 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2019-09-08T00·00+0000 |
| commit | 5fbf20ba16c87a110587b513b479a5f1f90d3db6 (patch) | |
| tree | a052e50ea538270922bbe07864dfc172f6f43ff3 | |
| parent | ccc4cce0e0df426f4eccb81479c4a773c488155d (diff) | |
; Improve messages for automatically created workspaces
| -rw-r--r-- | exwm-workspace.el | 6 |
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) |