From: Martin Rudalics Date: Tue, 26 Jun 2012 07:13:40 +0000 (+0200) Subject: In calendar-exit don't try to delete or iconify last frame. X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/5cf983b29d92c0c5d90b233d2c25f4f5defb60be 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 02c81a1018..ac24259869 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-06-26 Martin Rudalics + + * 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 (tiny change) * server.el (server-process-filter): Remember dir in the diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c47bbdff5e..d5514d14a3 100644 --- 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))))))