Handle the optional argument of 'narrow-to-region' in byte-compiled code.

* lisp/emacs-lisp/bytecomp.el: Adapt the specifications.

* src/bytecode.c (exec_byte_code): Get the optional argument.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index 241cbaf04f6..2b1eccdc518 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1480,8 +1480,8 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
 
         CASE (Bnarrow_to_region):
           {
-            Lisp_Object v1 = POP;
-            TOP = Fnarrow_to_region (TOP, v1, Qnil);
+            Lisp_Object v2 = POP, v1 = POP;
+            TOP = Fnarrow_to_region (TOP, v1, v2);
             NEXT;
           }