diff options
| author | Karl Heuer | 1994-03-25 01:34:24 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-25 01:34:24 +0000 |
| commit | 26ae6b61cf5289082b0487efa87c565559bb2b35 (patch) | |
| tree | 5679fcda4abf467b7d2c6669135fa6c000aaeeea /src | |
| parent | a8ccd803544af8c140c8ddf675012c1adad1bb64 (diff) | |
| download | emacs-26ae6b61cf5289082b0487efa87c565559bb2b35.tar.gz emacs-26ae6b61cf5289082b0487efa87c565559bb2b35.zip | |
(x_get_arg): Use downcased string in compare.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xfns.c | 8 |
1 files 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) | |||
| 1436 | { | 1436 | { |
| 1437 | Lisp_Object lower; | 1437 | Lisp_Object lower; |
| 1438 | lower = Fdowncase (tem); | 1438 | lower = Fdowncase (tem); |
| 1439 | if (!strcmp (XSTRING (tem)->data, "on") | 1439 | if (!strcmp (XSTRING (lower)->data, "on") |
| 1440 | || !strcmp (XSTRING (tem)->data, "true")) | 1440 | || !strcmp (XSTRING (lower)->data, "true")) |
| 1441 | return Qt; | 1441 | return Qt; |
| 1442 | else if (!strcmp (XSTRING (tem)->data, "off") | 1442 | else if (!strcmp (XSTRING (lower)->data, "off") |
| 1443 | || !strcmp (XSTRING (tem)->data, "false")) | 1443 | || !strcmp (XSTRING (lower)->data, "false")) |
| 1444 | return Qnil; | 1444 | return Qnil; |
| 1445 | else | 1445 | else |
| 1446 | return Fintern (tem, Qnil); | 1446 | return Fintern (tem, Qnil); |