diff options
| author | Kaleb Keithley <kaleb@freedesktop.org> | 2003-12-06 13:24:29 +0000 |
|---|---|---|
| committer | Kaleb Keithley <kaleb@freedesktop.org> | 2003-12-06 13:24:29 +0000 |
| commit | a63af33455205884f1ad68a329bd9661f19e7fe7 (patch) | |
| tree | a5888f26eb457674c0d47ac1e4d0642a85b16f82 /lisp/string.c | |
| parent | c8a87639c7cb7aef72630978a0e5a0d92618140c (diff) | |
merge XFree86 4.3.99.901 (RC1) from vendor branch
Diffstat (limited to 'lisp/string.c')
| -rw-r--r-- | lisp/string.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/string.c b/lisp/string.c index 457979f..2eaf344 100644 --- a/lisp/string.c +++ b/lisp/string.c @@ -27,7 +27,8 @@ * Author: Paulo César Pereira de Andrade */ -/* $XFree86: xc/programs/xedit/lisp/string.c,v 1.25 2003/05/27 22:27:04 tsi Exp $ */ +/* $XdotOrg: xc/programs/xedit/lisp/string.c,v 1.26 2003/11/27 17:28:43 paulo Exp $ */ +/* $XFree86: xc/programs/xedit/lisp/string.c,v 1.26 2003/11/27 17:28:43 paulo Exp $ */ #include "lisp/helper.h" #include "lisp/read.h" @@ -368,7 +369,7 @@ Lisp_Char(LispBuiltin *builtin) schar simple-string index */ { - char *string; + unsigned char *string; long offset, length; LispObj *ostring, *oindex; @@ -379,7 +380,7 @@ Lisp_Char(LispBuiltin *builtin) CHECK_STRING(ostring); CHECK_INDEX(oindex); offset = FIXNUM_VALUE(oindex); - string = THESTR(ostring); + string = (unsigned char*)THESTR(ostring); length = STRLEN(ostring); if (offset >= length) |