awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor refactors & comment revision

Browse Source
This commit is contained in:
Henrik Lissner
2020-01-02 21:13:31 -05:00
parent 10f7c9fbcc
commit 195dfda045
5 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/ui/workspaces/autoload/workspaces.el
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)))