Mercurial > emacs
comparison src/lread.c @ 31315:08bb5394dee1
(read1): Accept `?' as symbol constituent, for
compatiblity with XEmacs.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 01 Sep 2000 11:55:15 +0000 |
parents | dd074ffca70f |
children | 22eb2b661cdf |
comparison
equal
deleted
inserted
replaced
31314:16b334e9c404 | 31315:08bb5394dee1 |
---|---|
2195 } | 2195 } |
2196 default: | 2196 default: |
2197 default_label: | 2197 default_label: |
2198 if (c <= 040) goto retry; | 2198 if (c <= 040) goto retry; |
2199 { | 2199 { |
2200 register char *p = read_buffer; | 2200 char *p = read_buffer; |
2201 int quoted = 0; | 2201 int quoted = 0; |
2202 | 2202 |
2203 { | 2203 { |
2204 register char *end = read_buffer + read_buffer_size; | 2204 char *end = read_buffer + read_buffer_size; |
2205 | 2205 |
2206 while (c > 040 | 2206 while (c > 040 |
2207 && !(c == '\"' || c == '\'' || c == ';' || c == '?' | 2207 && !(c == '\"' || c == '\'' || c == ';' |
2208 || c == '(' || c == ')' | 2208 || c == '(' || c == ')' |
2209 || c == '[' || c == ']' || c == '#' | 2209 || c == '[' || c == ']' || c == '#')) |
2210 )) | |
2211 { | 2210 { |
2212 if (end - p < MAX_MULTIBYTE_LENGTH) | 2211 if (end - p < MAX_MULTIBYTE_LENGTH) |
2213 { | 2212 { |
2214 register char *new = (char *) xrealloc (read_buffer, read_buffer_size *= 2); | 2213 char *new = (char *) xrealloc (read_buffer, |
2214 read_buffer_size *= 2); | |
2215 p += new - read_buffer; | 2215 p += new - read_buffer; |
2216 read_buffer += new - read_buffer; | 2216 read_buffer += new - read_buffer; |
2217 end = read_buffer + read_buffer_size; | 2217 end = read_buffer + read_buffer_size; |
2218 } | 2218 } |
2219 | |
2219 if (c == '\\') | 2220 if (c == '\\') |
2220 { | 2221 { |
2221 c = READCHAR; | 2222 c = READCHAR; |
2222 quoted = 1; | 2223 quoted = 1; |
2223 } | 2224 } |