Mercurial > emacs
comparison src/lread.c @ 40784:d57f74c55909
(read1): Fix behavior with nested backquoting.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 06 Nov 2001 18:48:03 +0000 |
| parents | ba7239b8872e |
| children | 816ced6caae8 |
comparison
equal
deleted
inserted
replaced
| 40783:dc0caf1519bd | 40784:d57f74c55909 |
|---|---|
| 2110 goto default_label; | 2110 goto default_label; |
| 2111 else | 2111 else |
| 2112 { | 2112 { |
| 2113 Lisp_Object value; | 2113 Lisp_Object value; |
| 2114 | 2114 |
| 2115 new_backquote_flag = 1; | 2115 new_backquote_flag++; |
| 2116 value = read0 (readcharfun); | 2116 value = read0 (readcharfun); |
| 2117 new_backquote_flag = 0; | 2117 new_backquote_flag--; |
| 2118 | 2118 |
| 2119 return Fcons (Qbackquote, Fcons (value, Qnil)); | 2119 return Fcons (Qbackquote, Fcons (value, Qnil)); |
| 2120 } | 2120 } |
| 2121 | 2121 |
| 2122 case ',': | 2122 case ',': |
| 2134 { | 2134 { |
| 2135 if (ch >= 0) UNREAD (ch); | 2135 if (ch >= 0) UNREAD (ch); |
| 2136 comma_type = Qcomma; | 2136 comma_type = Qcomma; |
| 2137 } | 2137 } |
| 2138 | 2138 |
| 2139 new_backquote_flag = 0; | 2139 new_backquote_flag--; |
| 2140 value = read0 (readcharfun); | 2140 value = read0 (readcharfun); |
| 2141 new_backquote_flag = 1; | 2141 new_backquote_flag++; |
| 2142 return Fcons (comma_type, Fcons (value, Qnil)); | 2142 return Fcons (comma_type, Fcons (value, Qnil)); |
| 2143 } | 2143 } |
| 2144 else | 2144 else |
| 2145 goto default_label; | 2145 goto default_label; |
| 2146 | 2146 |