From bdadeff503d1796758a498dee218751520bb0cf8 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 11 Aug 2019 12:37:21 +0200
Subject: [PATCH] add narrow-to-region + widen support

---
 lisp/emacs-lisp/comp.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6fa098e0eb4..357085ee479 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -611,8 +611,12 @@ the annotation emission."
       (byte-char-syntax auto)
       (byte-buffer-substring auto)
       (byte-delete-region auto)
-      (byte-narrow-to-region)
-      (byte-widen)
+      (byte-narrow-to-region
+       (comp-emit-set-call `(call Fnarrow_to_region
+                                  ,(comp-slot)
+                                  ,(comp-slot-next))))
+      (byte-widen
+       (comp-emit-set-call '(call Fwiden)))
       (byte-end-of-line auto)
       (byte-constant2)
       (byte-goto
-- 
2.39.5