diff options
| author | Gregory Heytings <gregory@heytings.org> | 2023-02-09 01:09:10 +0000 |
|---|---|---|
| committer | Gregory Heytings <gregory@heytings.org> | 2023-02-09 02:44:32 +0100 |
| commit | a4aa32bdfff7aaf54efbacbb04b7f2b52fef92a7 (patch) | |
| tree | 2a36555153fd494bc059132a8d78a09e6f701668 /lisp/emacs-lisp | |
| parent | 0ec0a610ed226419269f519021cbe8fb2dde2ed5 (diff) | |
| download | emacs-a4aa32bdfff7aaf54efbacbb04b7f2b52fef92a7.tar.gz emacs-a4aa32bdfff7aaf54efbacbb04b7f2b52fef92a7.tar.bz2 emacs-a4aa32bdfff7aaf54efbacbb04b7f2b52fef92a7.zip | |
Fix 'save-restriction' for narrowing locks
* src/editfns.c (narrowing_locks_save):
(narrowing_locks_restore): Make them non-static.
* src/lisp.h: Make them externally visible.
* src/bytecode.c (exec_byte_code): Save and restore narrowing
locks.
* lisp/emacs-lisp/bytecomp.el (byte-compile-save-restriction):
Increment unbinding count.
* src/comp.c (helper_save_restriction): Save and restore narrowing
locks.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 5df1205869c..c6cda6b588a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -4900,7 +4900,7 @@ binding slots have been popped." (defun byte-compile-save-restriction (form) (byte-compile-out 'byte-save-restriction 0) (byte-compile-body-do-effect (cdr form)) - (byte-compile-out 'byte-unbind 1)) + (byte-compile-out 'byte-unbind 2)) (defun byte-compile-save-current-buffer (form) (byte-compile-out 'byte-save-current-buffer 0) |