From: Glenn Morris <rgm@gnu.org>
Date: Thu, 12 Mar 2015 15:59:56 +0000 (-0700)
Subject: Fix --no-bitmap-icon
X-Git-Tag: emacs-24.5-rc1~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc1132158206626d9cab7b98ca68e8ca43dddc8c;p=emacs.git

Fix --no-bitmap-icon

* src/frame.h (x_set_bitmap_icon): Don't set the icon if icon-type is
nil/not present in the parameter alist.

Fixes: debbugs:19680
---

diff --git a/src/ChangeLog b/src/ChangeLog
index ca5f85a0157..90908fcf759 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-12  Glenn Morris  <rgm@gnu.org>
+
+	* frame.h (x_set_bitmap_icon): Don't set the icon if icon-type is
+	nil/not present in the parameter alist.  (Bug#19680)
+
 2015-02-28  Eli Zaretskii  <eliz@gnu.org>
 
 	* search.c (find_newline): Avoid assertion violations in
diff --git a/src/frame.h b/src/frame.h
index 3d3982f4104..bc49cfa44ec 100644
--- a/src/frame.h
+++ b/src/frame.h
@@ -1349,7 +1349,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));
 }