From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 25 Mar 1994 01:34:24 +0000 (+0000)
Subject: (x_get_arg): Use downcased string in compare.
X-Git-Tag: emacs-19.34~9329
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26ae6b61cf5289082b0487efa87c565559bb2b35;p=emacs.git

(x_get_arg): Use downcased string in compare.
---

diff --git a/src/xfns.c b/src/xfns.c
index 96f6f6c390b..ca04c69176d 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1436,11 +1436,11 @@ x_get_arg (alist, param, attribute, class, type)
 	      {
 		Lisp_Object lower;
 		lower = Fdowncase (tem);
-		if (!strcmp (XSTRING (tem)->data, "on")
-		    || !strcmp (XSTRING (tem)->data, "true"))
+		if (!strcmp (XSTRING (lower)->data, "on")
+		    || !strcmp (XSTRING (lower)->data, "true"))
 		  return Qt;
-		else if (!strcmp (XSTRING (tem)->data, "off")
-		      || !strcmp (XSTRING (tem)->data, "false"))
+		else if (!strcmp (XSTRING (lower)->data, "off")
+		      || !strcmp (XSTRING (lower)->data, "false"))
 		  return Qnil;
 		else
 		  return Fintern (tem, Qnil);