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

Fix +workspace/delete changing workspaces

Browse Source 
...when deleting other workspaces.
This commit is contained in:
Henrik Lissner
2019-09-29 23:12:43 -04:00
parent fd67534c89
commit 3f7e0fd103
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
modules/ui/workspaces/autoload/workspaces.el
View File

@ -243,11 +243,14 @@ workspace to delete."
nil nil nil nil current-name) nil nil nil nil current-name)
current-name)))) current-name))))
(condition-case-unless-debug ex (condition-case-unless-debug ex
;; REVIEW refactor me
(let ((workspaces (+workspace-list-names))) (let ((workspaces (+workspace-list-names)))
(if (not (member name workspaces)) (if (not (member name workspaces))
(+workspace-message (format "'%s' workspace doesn't exist" name) 'warn) (+workspace-message (format "'%s' workspace doesn't exist" name) 'warn)
(cond ((delq (selected-frame) (persp-frames-with-persp (get-frame-persp))) (cond ((delq (selected-frame) (persp-frames-with-persp (get-frame-persp)))
(user-error "Can't close workspace, it's visible in another frame")) (user-error "Can't close workspace, it's visible in another frame"))
((not (equal (+workspace-current-name) name))
(+workspace-delete name))
((> (length workspaces) 1) ((> (length workspaces) 1)
(+workspace-delete name) (+workspace-delete name)
(+workspace-switch (+workspace-switch