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) ...@@ -1436,11 +1436,11 @@ x_get_arg (alist, param, attribute, class, type)
{ {
Lisp_Object lower; Lisp_Object lower;
lower = Fdowncase (tem); lower = Fdowncase (tem);
if (!strcmp (XSTRING (tem)->data, "on") if (!strcmp (XSTRING (lower)->data, "on")
|| !strcmp (XSTRING (tem)->data, "true")) || !strcmp (XSTRING (lower)->data, "true"))
return Qt; return Qt;
else if (!strcmp (XSTRING (tem)->data, "off") else if (!strcmp (XSTRING (lower)->data, "off")
|| !strcmp (XSTRING (tem)->data, "false")) || !strcmp (XSTRING (lower)->data, "false"))
return Qnil; return Qnil;
else else
return Fintern (tem, Qnil); 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