From 97314447e609e673be060bcdf0f244f396a70a3a Mon Sep 17 00:00:00 2001 From: Gregory Heytings Date: Thu, 9 Feb 2023 01:09:10 +0000 Subject: Make 'narrowing-lock' and 'narrowing-unlock' internal * src/editfns.c (Finternal__lock_narrowing): Renamed from 'narrowing-lock'. (Finternal__unlock_narrowing): Renamed from 'narrowing-unlock'. (unwind_narrow_to_region_locked): (narrow_to_region_locked): (syms_of_editfns): Use the new names. * lisp/subr.el (internal--with-narrowing): Use the new name. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/subr.el') diff --git a/lisp/subr.el b/lisp/subr.el index 32c997425cf..5cc0c94ba48 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3963,7 +3963,7 @@ detailed description. (save-restriction (progn (narrow-to-region start end) - (if tag (narrowing-lock tag)) + (if tag (internal--lock-narrowing tag)) (funcall body)))) (defun find-tag-default-bounds () -- cgit v1.2.1