diff options
author | Eli Zaretskii <eliz@gnu.org> | 2016-12-06 20:11:47 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2016-12-06 20:11:47 +0200 |
commit | 137898d89359c63ec05d7bb5eedc2d2f59102a11 (patch) | |
tree | adabd7903c4494d3e9d101063a025568f5262943 /src/bytecode.c | |
parent | 66a5abb102ec1d6e4c327632ef235d1eb6433291 (diff) | |
download | emacs-137898d89359c63ec05d7bb5eedc2d2f59102a11.tar.gz |
Fix a typo in bytecode.c.
Diffstat (limited to 'src/bytecode.c')
-rw-r--r-- | src/bytecode.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 7d5f85de140..6439268a9ab 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -656,7 +656,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, if (SYMBOLP (sym) && !EQ (val, Qunbound) && !XSYMBOL (sym)->redirect - && !SYMBOL_TRAPPED_WRITE_P (sym)) + && !SYMBOL_TRAPPED_WRITE_P (sym)) SET_SYMBOL_VAL (XSYMBOL (sym), val); else set_internal (sym, val, Qnil, SET_INTERNAL_SET); @@ -754,7 +754,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, CASE (Bgoto): BYTE_CODE_QUIT; - op = FETCH2; /* pc = FETCH2 loses since FETCH2 contains pc++ */ + op = FETCH2; /* pc = FETCH2 loses since FETCH2 contains pc++ */ CHECK_RANGE (op); stack.pc = stack.byte_string_start + op; NEXT; @@ -778,6 +778,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, CHECK_RANGE (op); stack.pc = stack.byte_string_start + op; } + else DISCARD (1); NEXT; CASE (Bgotoifnonnilelsepop): |