Easier creation of named workspaces
When a user tries to switch to a named workspace that doesn't exist, creat it, instead of just failing. Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
This commit is contained in:
parent
5baa1eb631
commit
dd004dea79
1 changed files with 1 additions and 3 deletions
|
@ -318,9 +318,7 @@ end of the workspace list."
|
|||
(error "No workspace at #%s" (1+ index)))
|
||||
(+workspace-switch dest)))
|
||||
((stringp index)
|
||||
(unless (member index names)
|
||||
(error "No workspace named %s" index))
|
||||
(+workspace-switch index))
|
||||
(+workspace-switch index t))
|
||||
(t
|
||||
(error "Not a valid index: %s" index)))
|
||||
(unless (called-interactively-p 'interactive)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue