# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764559264 0
# Node ID d9d9ab5951ddffd797362462e978e25c3d442f3d
# Parent  eecaa7b19b6c3b02506d2d01df374caf020cc4f0
(x_get_arg): Use downcased string in compare.

diff -r eecaa7b19b6c -r d9d9ab5951dd src/xfns.c
--- a/src/xfns.c	Fri Mar 25 01:18:47 1994 +0000
+++ b/src/xfns.c	Fri Mar 25 01:34:24 1994 +0000
@@ -1436,11 +1436,11 @@
 	      {
 		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);