diff options
| author | Gerd Möllmann <gerd@gnu.org> | 2022-07-30 17:32:04 +0200 |
|---|---|---|
| committer | Gerd Möllmann <gerd@gnu.org> | 2022-07-30 17:32:04 +0200 |
| commit | 9e6eee36b5af2e2b719bca0279a063cfbeef2042 (patch) | |
| tree | 289c79fdfb69c25e0b220df109f461d7125fe242 /lisp/emacs-lisp/comp.el | |
| parent | 250dbaa7dd4072639724ef841ff5083127ede028 (diff) | |
| download | emacs-9e6eee36b5af2e2b719bca0279a063cfbeef2042.tar.gz emacs-9e6eee36b5af2e2b719bca0279a063cfbeef2042.tar.bz2 emacs-9e6eee36b5af2e2b719bca0279a063cfbeef2042.zip | |
Fix native compiler handling of narrow-to-region
* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Use auto for
byte-narrow-to-region.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 6e9132e4304..4354ea03a4e 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1915,11 +1915,7 @@ and the annotation emission." (byte-char-syntax auto) (byte-buffer-substring auto) (byte-delete-region auto) - (byte-narrow-to-region - (comp-emit-set-call (comp-call 'narrow-to-region - (comp-slot) - (comp-slot+1) - (make-comp-mvar :constant nil)))) + (byte-narrow-to-region auto) (byte-widen (comp-emit-set-call (comp-call 'widen))) (byte-end-of-line auto) |