diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-11-09 13:24:19 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-11-09 13:24:19 +0000 |
| commit | 95af0924b48a0ac6efe95a0f337f2ac0ee855ff0 (patch) | |
| tree | 984eec511e1217c122dcf3bc4a2c84738c3504a0 /src/lread.c | |
| parent | e870dd8926361dc10bd72cbde04794d9d92e7aa7 (diff) | |
| download | emacs-95af0924b48a0ac6efe95a0f337f2ac0ee855ff0.tar.gz | |
(read1): Fix next_char matching.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/lread.c b/src/lread.c index db83623e054..e87dba53128 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2374,7 +2374,7 @@ read1 (readcharfun, pch, first_in_list) c = 0; else if (c == (CHAR_CTL | '?')) c = 127; - + if (c & CHAR_SHIFT) { /* Shift modifier is valid only with [A-Za-z]. */ @@ -2459,9 +2459,9 @@ read1 (readcharfun, pch, first_in_list) if (next_char <= 040 || (next_char < 0200 - && index ("\"';([#?", next_char) - || (!first_in_list && next_char == '`') - || (new_backquote_flag && next_char == ','))) + && (index ("\"';([#?", next_char) + || (!first_in_list && next_char == '`') + || (new_backquote_flag && next_char == ',')))) { *pch = c; return Qnil; @@ -3681,7 +3681,7 @@ init_lread () /* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is almost never correct, thereby causing a warning to be printed out that confuses users. Since PATH_LOADSEARCH is always overridden by the - EMACSLOADPATH environment variable below, disable the warning on NT. + EMACSLOADPATH environment variable below, disable the warning on NT. Also, when using the "self-contained" option for Carbon Emacs for MacOSX, the "standard" paths may not exist and would be overridden by EMACSLOADPATH as on NT. Since this depends on how the executable |