From 26ae6b61cf5289082b0487efa87c565559bb2b35 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 25 Mar 1994 01:34:24 +0000 Subject: [PATCH] (x_get_arg): Use downcased string in compare. --- src/xfns.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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); -- 2.39.5