[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/pkg fd58c37fca0 1/2: Rename locked to lock
From: |
Gerd Moellmann |
Subject: |
scratch/pkg fd58c37fca0 1/2: Rename locked to lock |
Date: |
Mon, 28 Aug 2023 10:40:54 -0400 (EDT) |
branch: scratch/pkg
commit fd58c37fca08f63c5296dc90ce408a7f4dae774c
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>
Rename locked to lock
---
src/lisp.h | 2 +-
src/pkg.c | 18 +++++++++---------
2 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/src/lisp.h b/src/lisp.h
index 742fce58eac..b4fdb4700c3 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2231,7 +2231,7 @@ struct Lisp_Package
Lisp_Object use_list;
/* T means the package is locked, i.e. no symbols can be added to it. */
- Lisp_Object locked;
+ Lisp_Object lock;
/* List of shadowing symbols. */
Lisp_Object shadowing_symbols;
diff --git a/src/pkg.c b/src/pkg.c
index 9a9eece4f65..2b9367bff0e 100644
--- a/src/pkg.c
+++ b/src/pkg.c
@@ -858,20 +858,20 @@ DEFUN ("package-%set-shadowing-symbols",
Fpackage_percent_set_shadowing_symbols,
return XPACKAGE (package)->shadowing_symbols = shadowing_symbols;
}
-DEFUN ("package-%locked", Fpackage_percent_locked,
- Spackage_percent_locked, 1, 1, 0, doc: /* Internal use only. */)
+DEFUN ("package-%lock", Fpackage_percent_lock,
+ Spackage_percent_lock, 1, 1, 0, doc: /* Internal use only. */)
(Lisp_Object package)
{
CHECK_PACKAGE (package);
- return XPACKAGE (package)->locked;
+ return XPACKAGE (package)->lock;
}
-DEFUN ("package-%set-locked", Fpackage_percent_set_locked,
- Spackage_percent_set_locked, 2, 2, 0, doc: /* Internal use only. */)
- (Lisp_Object package, Lisp_Object locked)
+DEFUN ("package-%set-lock", Fpackage_percent_set_lock,
+ Spackage_percent_set_lock, 2, 2, 0, doc: /* Internal use only. */)
+ (Lisp_Object package, Lisp_Object lock)
{
CHECK_PACKAGE (package);
- return XPACKAGE (package)->locked = locked;
+ return XPACKAGE (package)->lock = lock;
}
DEFUN ("package-%symbols", Fpackage_percent_symbols,
@@ -1007,8 +1007,8 @@ syms_of_pkg (void)
defsubr (&Spackage_percent_set_symbol_package);
defsubr (&Spackage_percent_set_use_list);
defsubr (&Spackage_percent_shadowing_symbols);
- defsubr (&Spackage_percent_locked);
- defsubr (&Spackage_percent_set_locked);
+ defsubr (&Spackage_percent_lock);
+ defsubr (&Spackage_percent_set_lock);
defsubr (&Spackage_percent_symbols);
defsubr (&Spackage_percent_use_list);
defsubr (&Spackagep);