[Emacs-diffs] /srv/bzr/emacs/trunk r108744: In calendar-exit don't try to delete or iconify last frame.

[martin rudalics]

------------------------------------------------------------
revno: 108744
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Tue 2012-06-26 09:13:40 +0200
message:
  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
modified:
  lisp/ChangeLog
  lisp/calendar/calendar.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-25 23:01:42 +0000
+++ b/lisp/ChangeLog    2012-06-26 07:13:40 +0000
@@ -1,3 +1,9 @@
+2012-06-26  Martin Rudalics  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * server.el (server-process-filter): Remember dir in the

=== modified file 'lisp/calendar/calendar.el'
--- a/lisp/calendar/calendar.el 2012-06-22 01:50:35 +0000
+++ b/lisp/calendar/calendar.el 2012-06-26 07:13:40 +0000
@@ -1818,10 +1818,11 @@
           (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))))))