improved buffer killing

[dotemacs] / lisp / my-gui.el

diff --git a/lisp/my-gui.el b/lisp/my-gui.el
index 4f005ffe523423f283eb63bd45e77f881f5b0228..c15dd20c3fe035cf8e4480cfb96bcaddb8c52328 100644 (file)
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -20,6 +20,8 @@
 (setq uniquify-strip-common-suffix t)
 (setq uniquify-buffer-name-style 'post-forward)
 
+(add-to-list 'delete-frame-functions #'kill-buffers-if-deleting-last-frame)
+
 (setq frame-title-format
       '((:eval (if (buffer-file-name)
                    (concat