* font.c (font_close_object): Check for live frame (Bug#16128).

2 files changed, 10 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 0ffa9af77fc..2ae2f99b49a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-12-13  Dmitry Antipov  <dmantipov@yandex.ru>
+
+        * font.c (font_close_object): Check for live frame (Bug#16128).
+
 2013-12-13  Paul Eggert  <eggert@cs.ucla.edu>
 
         * gnutls.c, gnutls.h (emacs_gnutls_record_check_pending):
diff --git a/src/font.c b/src/font.c
index d0a10332028..9f284440143 100644
--- a/src/font.c
+++ b/src/font.c
@@ -2898,8 +2898,12 @@ font_close_object (Lisp_Object font_object)
   font->driver->close (font);
 #ifdef HAVE_WINDOW_SYSTEM
   eassert (font->frame);
-  eassert (FRAME_DISPLAY_INFO (font->frame)->n_fonts);
-  FRAME_DISPLAY_INFO (font->frame)->n_fonts--;
+  /* If the frame is gone, we can't do anything (Bug#16128).  */
+  if (FRAME_LIVE_P (font->frame))
+    {
+      eassert (FRAME_DISPLAY_INFO (font->frame)->n_fonts);
+      FRAME_DISPLAY_INFO (font->frame)->n_fonts--;
+    }
 #endif
 }