add narrow-to-region + widen support

2019-08-11 12:37:21 +02:00 · 2019-08-11 12:37:21 +02:00 · bdadeff503
commit bdadeff503
parent 128cc4a2f4
1 changed files with 6 additions and 2 deletions
--- 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