diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-09-27 09:04:56 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-09-27 09:04:56 -0700 |
| commit | eee134655504adba0a868dc064078e814d6aa33a (patch) | |
| tree | 047e75c4381ddb918cd95d798b0616ef95e86e3e /src/lread.c | |
| parent | 43ad2e9af4e92fa795fb3b1fc5d793a76595a34f (diff) | |
| parent | 2b1928b8071719a779e7144bcf777d999cd9bbec (diff) | |
| download | emacs-eee134655504adba0a868dc064078e814d6aa33a.tar.gz | |
Merge from trunk.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index e427688fdc7..1179d63436f 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1801,7 +1801,7 @@ readevalloop (Lisp_Object readcharfun, /* Ignore whitespace here, so we can detect eof. */ if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r' - || c == 0x8a0) /* NBSP */ + || c == 0xa0) /* NBSP */ goto read_next; if (!NILP (Vpurify_flag) && c == '(') @@ -2689,7 +2689,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) uninterned_symbol = 1; c = READCHAR; if (!(c > 040 - && c != 0x8a0 + && c != 0xa0 /* NBSP */ && (c >= 0200 || strchr ("\"';()[]#`,", c) == NULL))) { @@ -3037,7 +3037,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) default: default_label: if (c <= 040) goto retry; - if (c == 0x8a0) /* NBSP */ + if (c == 0xa0) /* NBSP */ goto retry; read_symbol: @@ -3078,7 +3078,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) c = READCHAR; } while (c > 040 - && c != 0x8a0 /* NBSP */ + && c != 0xa0 /* NBSP */ && (c >= 0200 || strchr ("\"';()[]#`,", c) == NULL)); |