General minor refactor & comment revision

This commit is contained in:
Henrik Lissner 2018-01-06 03:03:02 -05:00
parent b17cafc4f7
commit b28f6ed477
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 9 additions and 22 deletions

View file

@ -226,8 +226,8 @@ disabled."
(defun +popup/close (&optional window force-p)
"Close WINDOW, if it's a popup window.
This will do nothing if the popup's `escape-quit' window parameter is either nil
or 'other. This window parameter is ignored if FORCE-P is non-nil."
This will do nothing if the popup's `quit' window parameter is either nil or
'other. This window parameter is ignored if FORCE-P is non-nil."
(interactive
(list (selected-window)
current-prefix-arg))

View file

@ -72,7 +72,8 @@ renamed.")
(when (and (equal (safe-persp-name (get-current-persp)) persp-nil-name)
(= persp-auto-resume-time -1))
(persp-frame-switch +workspaces-main (or frame (selected-frame))))
;; Make sure warnings are visible (fix #319)
;; The warnings buffer gets swallowed by creating `+workspaces-main', so
;; we display it manually, if it exists (fix #319).
(when-let* ((warnings (get-buffer "*Warnings*")))
(display-buffer-in-side-window
warnings '((window-height . shrink-window-if-larger-than-buffer))))))