In calendar-exit don't try to delete or iconify last frame.

* calendar/calendar.el (calendar-exit): Don't try to delete or
iconify last frame.  See:
http://lists.gnu.org/archive/html/emacs-devel/2012-06/msg00372.html

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02c81a1..ac24259 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-06-26  Martin Rudalics  <rudalics@gmx.at>
+
+       * calendar/calendar.el (calendar-exit): Don't try to delete or
+       iconify last frame.  See:
+       http://lists.gnu.org/archive/html/emacs-devel/2012-06/msg00372.html
+
 2012-06-25  Jim Diamond  <Jim.Diamond@AcadiaU.ca>  (tiny change)
 
        * server.el (server-process-filter): Remember dir in the

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index c47bbdf..d5514d1 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1818,10 +1818,11 @@ the STRINGS are just concatenated and the result truncated."
           (dolist (w (window-list-1 nil nil t))
             (if (and (memq (window-buffer w) calendar-buffers)
                      (window-dedicated-p w))
-                (if calendar-remove-frame-by-deleting
-                    (delete-frame (window-frame w))
-                    (iconify-frame (window-frame w)))
-              (quit-window kill w)))
+                (if (eq (window-deletable-p w) 'frame)
+                   (if calendar-remove-frame-by-deleting
+                       (delete-frame (window-frame w))
+                     (iconify-frame (window-frame w)))
+                 (quit-window kill w))))
         (dolist (b calendar-buffers)
           (quit-windows-on b kill))))))