X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/8dfff871bdf0e420c6f5570e72afc80471d40d51..81deba3d7a2b187d58fe26bd8b4eafb5687095e1:/src/frame.h

diff --git a/src/frame.h b/src/frame.h
index ddbf93e98f..d4dfd1c8f9 100644
--- a/src/frame.h
+++ b/src/frame.h
@@ -1425,7 +1425,7 @@ x_set_bitmap_icon (struct frame *f)
 {
   Lisp_Object obj = assq_no_quit (Qicon_type, f->param_alist);
 
-  if (CONSP (obj))
+  if (CONSP (obj) && !NILP (XCDR (obj)))
     x_bitmap_icon (f, XCDR (obj));
 }