(read1): Fix behavior with nested backquoting.
This commit is contained in:
parent
242d2673d9
commit
0ffbbdeb44
1 changed files with 4 additions and 4 deletions
|
@ -2112,9 +2112,9 @@ read1 (readcharfun, pch, first_in_list)
|
|||
{
|
||||
Lisp_Object value;
|
||||
|
||||
new_backquote_flag = 1;
|
||||
new_backquote_flag++;
|
||||
value = read0 (readcharfun);
|
||||
new_backquote_flag = 0;
|
||||
new_backquote_flag--;
|
||||
|
||||
return Fcons (Qbackquote, Fcons (value, Qnil));
|
||||
}
|
||||
|
@ -2136,9 +2136,9 @@ read1 (readcharfun, pch, first_in_list)
|
|||
comma_type = Qcomma;
|
||||
}
|
||||
|
||||
new_backquote_flag = 0;
|
||||
new_backquote_flag--;
|
||||
value = read0 (readcharfun);
|
||||
new_backquote_flag = 1;
|
||||
new_backquote_flag++;
|
||||
return Fcons (comma_type, Fcons (value, Qnil));
|
||||
}
|
||||
else
|
||||
|
|
Loading…
Add table
Reference in a new issue