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 when one workspace is left

Browse Source
This commit is contained in:
Henrik Lissner
2018-05-29 00:42:33 +02:00
parent edc09ecab8
commit e2979e5b82
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/feature/workspaces/autoload/workspaces.el
View File

@ -289,8 +289,8 @@ workspace to delete."
nil nil current-name) nil nil current-name)
current-name)))) current-name))))
(condition-case-unless-debug ex (condition-case-unless-debug ex
(let ((workspaces (length (+workspace-list-names)))) (let ((workspaces (+workspace-list-names)))
(cond ((> workspaces 1) (cond ((> (length workspaces) 1)
(+workspace-delete name) (+workspace-delete name)
(+workspace-switch (+workspace-switch
(if (+workspace-exists-p +workspace--last) (if (+workspace-exists-p +workspace--last)