From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 11 Aug 2019 10:37:21 +0000 (+0200)
Subject: add narrow-to-region + widen support
X-Git-Tag: emacs-28.0.90~2727^2~1296
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdadeff503d1796758a498dee218751520bb0cf8;p=emacs.git

add narrow-to-region + widen support
---

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