Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 13:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

; Improve messages for automatically created workspaces

Browse source
This commit is contained in:
Chris Feng 2019-09-08 00:00:00 +00:00
parent ccc4cce0e0
commit 5fbf20ba16
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-workspace.el
View file

@ -1338,8 +1338,10 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
(exwm-workspace--update-ewmh-props) (exwm-workspace--update-ewmh-props)
(if exwm-workspace--create-silently (if exwm-workspace--create-silently
(setq exwm-workspace--switch-history-outdated t) (setq exwm-workspace--switch-history-outdated t)
(exwm-workspace-switch frame t) (let ((original-index exwm-workspace-current-index))
(message "Added %s as workspace %d" frame 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))) (run-hooks 'exwm-workspace-list-change-hook)))
(defun exwm-workspace--get-remove-frame-next-workspace (frame) (defun exwm-workspace--get-remove-frame-next-workspace (frame)