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." the workspace and move to the next."
(interactive) (interactive)
(let ((delete-window-fn (if (featurep 'evil) #'evil-window-delete #'delete-window))) (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) (funcall delete-window-fn)
(let ((current-persp-name (+workspace-current-name))) (let ((current-persp-name (+workspace-current-name)))
(cond ((or (+workspace--protected-p current-persp-name) (cond ((or (+workspace--protected-p current-persp-name)