From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 6 Dec 2016 18:11:47 +0000 (+0200)
Subject: Fix a typo in bytecode.c.
X-Git-Tag: emacs-26.0.90~1144^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=137898d89359c63ec05d7bb5eedc2d2f59102a11;p=emacs.git

Fix a typo in bytecode.c.
---

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):