Minor refactors & comment revision

This commit is contained in:
Henrik Lissner 2020-01-02 21:13:31 -05:00
parent 10f7c9fbcc
commit 195dfda045
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 10 additions and 8 deletions

View file

@ -174,11 +174,12 @@ throws an error."
(+workspace-new name)
(error "%s is not an available workspace" name)))
(let ((old-name (+workspace-current-name)))
(setq +workspace--last
(or (and (not (string= old-name persp-nil-name))
old-name)
+workspaces-main))
(persp-frame-switch name)
(unless (equal old-name name)
(setq +workspace--last
(or (and (not (string= old-name persp-nil-name))
old-name)
+workspaces-main))
(persp-frame-switch name))
(equal (+workspace-current-name) name)))