diff options
| author | Stefan Monnier | 2001-11-06 18:48:03 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-11-06 18:48:03 +0000 |
| commit | 0ffbbdeb4464b5b0d63e83fe3f8e91674248d84d (patch) | |
| tree | a8fa67e2ed2b5f113ed954abc77abbc33f164f84 /src/lread.c | |
| parent | 242d2673d993e3d31b73d8fd736273a89faf718f (diff) | |
| download | emacs-0ffbbdeb4464b5b0d63e83fe3f8e91674248d84d.tar.gz emacs-0ffbbdeb4464b5b0d63e83fe3f8e91674248d84d.zip | |
(read1): Fix behavior with nested backquoting.
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 99111a06c7d..95914a413a4 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2112,9 +2112,9 @@ read1 (readcharfun, pch, first_in_list) | |||
| 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 | } |
| @@ -2136,9 +2136,9 @@ read1 (readcharfun, pch, first_in_list) | |||
| 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 |