From 137898d89359c63ec05d7bb5eedc2d2f59102a11 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 6 Dec 2016 20:11:47 +0200 Subject: [PATCH] Fix a typo in bytecode.c. --- src/bytecode.c | 5 +++-- 1 file 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): -- 2.39.5