From a5adcbdf28eb8ad376a1004f4a6c9eda1f1447fb Mon Sep 17 00:00:00 2001
From: Gregory Heytings <gregory@heytings.org>
Date: Sat, 30 Jul 2022 12:02:28 +0000
Subject: 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.
---
src/bytecode.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/bytecode.c')
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;
}
--
cgit v1.2.3