Mercurial > emacs

changeset 1987:cd893024d6b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* data.c (Fstring_to_number): Declare p to be an unsigned char, to match the data field of strings. * data.c (Fstring_to_number): Just skip tabs and spaces; don't use the <ctype.h> macros. The <ctype.h> stuff apparently varies from locale to locale more than we'd like. Don't include <ctype.h>.
author Jim Blandy <jimb@redhat.com>
date Tue, 02 Mar 1993 08:11:01 +0000
parents b1bc0b15ca7f
children 1709282a3413
files src/data.c
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Tue Mar 02 08:10:24 1993 +0000
+++ b/src/data.c	Tue Mar 02 08:11:01 1993 +0000
@@ -19,7 +19,6 @@
 
 
 #include <signal.h>
-#include <ctype.h>
 
 #include "config.h"
 #include "lisp.h"
@@ -1456,7 +1455,7 @@
   (str)
      register Lisp_Object str;
 {
-  char *p;
+  unsigned char *p;
 
   CHECK_STRING (str, 0);
 
@@ -1464,7 +1463,7 @@
 
   /* Skip any whitespace at the front of the number.  Some versions of
      atoi do this anyway, so we might as well make Emacs lisp consistent.  */
-  while (isspace (*p))
+  while (*p == ' ' || *p == '\t')
     p++;
 
 #ifdef LISP_FLOAT_TYPE