feature/popup: prompt to save unsaved buffers in popups
This commit is contained in:
parent
dff4b03fff
commit
81453de0c4
1 changed files with 6 additions and 0 deletions
|
@ -60,6 +60,12 @@ and enables `+popup-buffer-mode'."
|
||||||
+ And finally deletes the window!"
|
+ And finally deletes the window!"
|
||||||
(let ((buffer (window-buffer window))
|
(let ((buffer (window-buffer window))
|
||||||
ttl)
|
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))
|
(let ((ignore-window-parameters t))
|
||||||
(delete-window window))
|
(delete-window window))
|
||||||
(unless (window-live-p window)
|
(unless (window-live-p window)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue