feature/popup: prompt to save unsaved buffers in popups

2018-01-07 05:43:13 -05:00 · 2018-01-07 05:43:13 -05:00 · 81453de0c4
commit 81453de0c4
parent dff4b03fff
1 changed files with 6 additions and 0 deletions
--- a/modules/feature/popup/autoload.el
+++ b/modules/feature/popup/autoload.el
@ -60,6 +60,12 @@ and enables `+popup-buffer-mode'."
 + And finally deletes the window!"
  (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))))
    (let ((ignore-window-parameters t))
      (delete-window window))
    (unless (window-live-p window)