]> git.eshelyaron.com Git - emacs.git/commitdiff
Make two symbols private to emacs-module.c
authorPaul Eggert <eggert@cs.ucla.edu>
Mon, 12 Jun 2017 00:02:10 +0000 (17:02 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Mon, 12 Jun 2017 00:05:28 +0000 (17:05 -0700)
* src/lisp.h (allocate_module_function, XSET_MODULE_FUNCTION):
Move from here ...
* src/emacs-module.c: ... to here.

src/emacs-module.c
src/lisp.h

index afb75e351d2785fdd7327dcb972d652a79b671a1..adb09c0c506c6191475cde7560b0bf829dd20468 100644 (file)
@@ -349,6 +349,16 @@ module_non_local_exit_throw (emacs_env *env, emacs_value tag, emacs_value value)
                                   value_to_lisp (value));
 }
 
+static struct Lisp_Module_Function *
+allocate_module_function (void)
+{
+  return ALLOCATE_PSEUDOVECTOR (struct Lisp_Module_Function,
+                                min_arity, PVEC_MODULE_FUNCTION);
+}
+
+#define XSET_MODULE_FUNCTION(var, ptr) \
+  XSETPSEUDOVECTOR (var, ptr, PVEC_MODULE_FUNCTION)
+
 /* A module function is a pseudovector of subtype
    PVEC_MODULE_FUNCTION; see lisp.h for the definition.  */
 
index ee703893e2269ec5d32b786d414da3f4afd7736c..900c7c5cc3f52364a3d35b90f62b4ee82ef32a96 100644 (file)
@@ -3925,16 +3925,6 @@ struct Lisp_Module_Function
   void *data;
 };
 
-INLINE struct Lisp_Module_Function *
-allocate_module_function (void)
-{
-  return ALLOCATE_PSEUDOVECTOR (struct Lisp_Module_Function,
-                                /* Name of the first field to be
-                                   ignored by GC.  */
-                                min_arity,
-                                PVEC_MODULE_FUNCTION);
-}
-
 INLINE bool
 MODULE_FUNCTIONP (Lisp_Object o)
 {
@@ -3948,9 +3938,6 @@ XMODULE_FUNCTION (Lisp_Object o)
   return XUNTAG (o, Lisp_Vectorlike);
 }
 
-#define XSET_MODULE_FUNCTION(var, ptr)                  \
-  (XSETPSEUDOVECTOR (var, ptr, PVEC_MODULE_FUNCTION))
-
 #ifdef HAVE_MODULES
 /* Defined in alloc.c.  */
 extern Lisp_Object make_user_ptr (void (*finalizer) (void *), void *p);