feature/popup: refactor how closing unsaved popups are handled

This commit is contained in:
Henrik Lissner 2018-03-14 18:30:14 -04:00
parent e59fd75107
commit 4edb7999e9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -60,11 +60,10 @@ and enables `+popup-buffer-mode'."
(let ((buffer (window-buffer window))
ttl)
(when (and (buffer-file-name buffer)
(buffer-modified-p buffer))
(with-current-buffer buffer
(if (y-or-n-p "Popup buffer is modified. Save it?")
(save-buffer)
(set-buffer-modified-p nil))))
(buffer-modified-p buffer)
(y-or-n-p "Popup buffer is modified. Save it?"))
(with-current-buffer buffer (save-buffer)))
(set-buffer-modified-p nil)
(let ((ignore-window-parameters t))
(delete-window window))
(unless (window-live-p window)