Commit 26ae6b61 authored by Karl Heuer's avatar Karl Heuer
Browse files

(x_get_arg): Use downcased string in compare.

parent a8ccd803
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment