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)) (let ((buffer (window-buffer window))
ttl) ttl)
(when (and (buffer-file-name buffer) (when (and (buffer-file-name buffer)
(buffer-modified-p buffer)) (buffer-modified-p buffer)
(with-current-buffer buffer (y-or-n-p "Popup buffer is modified. Save it?"))
(if (y-or-n-p "Popup buffer is modified. Save it?") (with-current-buffer buffer (save-buffer)))
(save-buffer) (set-buffer-modified-p nil)
(set-buffer-modified-p nil))))
(let ((ignore-window-parameters t)) (let ((ignore-window-parameters t))
(delete-window window)) (delete-window window))
(unless (window-live-p window) (unless (window-live-p window)