Fix +workspace/close-window-or-workspace treating everything as a popup

This commit is contained in:
Henrik Lissner 2018-01-03 20:10:00 -05:00
parent 776533adb7
commit e9b5ab2385
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -425,7 +425,7 @@ end of the workspace list."
the workspace and move to the next."
(interactive)
(let ((delete-window-fn (if (featurep 'evil) #'evil-window-delete #'delete-window)))
(if (window-at-side-p)
(if (window-dedicated-p)
(funcall delete-window-fn)
(let ((current-persp-name (+workspace-current-name)))
(cond ((or (+workspace--protected-p current-persp-name)