diff options
| author | Gregory Heytings <gregory@heytings.org> | 2022-07-30 12:02:28 +0000 |
|---|---|---|
| committer | Gregory Heytings <gregory@heytings.org> | 2022-07-30 14:03:37 +0200 |
| commit | a5adcbdf28eb8ad376a1004f4a6c9eda1f1447fb (patch) | |
| tree | a0d741168c8cc1814d8c3458f7a1d400e06b771f /src/bytecode.c | |
| parent | 6ce75b19797abcf65a93307260a6688bbf76f287 (diff) | |
| download | emacs-a5adcbdf28eb8ad376a1004f4a6c9eda1f1447fb.tar.gz emacs-a5adcbdf28eb8ad376a1004f4a6c9eda1f1447fb.tar.bz2 emacs-a5adcbdf28eb8ad376a1004f4a6c9eda1f1447fb.zip | |
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.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 4 |
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; } |