Remove blocal_getrealvalue

diff --git a/src/data.c b/src/data.c
index f2cc3fffd827cd17ebc8a3ba076a5534cb152a68..1263902d16f9785db43a0f1bf598fdc0e3db16d6 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -808,12 +808,6 @@ Value, if non-nil, is a list \(interactive SPEC).  */)
                Getting and Setting Values of Symbols
  ***********************************************************************/
 
-Lisp_Object *
-blocal_getrealvalue (struct Lisp_Buffer_Local_Value *blv)
-{
-  return &XCDR_AS_LVALUE (ensure_thread_local (&(blv->realvalue)));
-}
-
 /* Retrieve the buffer local data for the caller thread.  SYMBOL is used only
    when the specified buffer local value does not have a binding for the thread
    and a new one must be created.  */

diff --git a/src/lisp.h b/src/lisp.h
index e459160c52a063fbebddfae0448ab0127aadd8ec..1670c859b0e50a190ac48f22f4d4740b34413fe4 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1369,7 +1369,6 @@ void blocal_unbind_thread (Lisp_Object thread);
 Lisp_Object *blocal_get_thread_data (struct Lisp_Buffer_Local_Value *l,
                                      Lisp_Object sym);
 void blocal_set_thread_data (struct Lisp_Buffer_Local_Value *l, Lisp_Object o);
-Lisp_Object *blocal_getrealvalue (struct Lisp_Buffer_Local_Value *l);
 
 #define BLOCAL_CLEAR_FLAGS_VEC(VEC) XSETFASTINT (AREF ((VEC), 0), 0)
 #define BLOCAL_FOUND_FOR_BUFFER_VEC(VEC) ((XFASTINT (AREF ((VEC), 0))) == 1)
@@ -1389,7 +1388,7 @@ Lisp_Object *blocal_getrealvalue (struct Lisp_Buffer_Local_Value *l);
 #define BLOCAL_BUFFER(A) (BLOCAL_BUFFER_VEC (BLOCAL_THREAD_DATA (A)))
 #define BLOCAL_FRAME(A) (BLOCAL_FRAME_VEC (BLOCAL_THREAD_DATA (A)))
 #define BLOCAL_CDR(A) (BLOCAL_CDR_VEC (BLOCAL_THREAD_DATA (A)))
-#define BLOCAL_REALVALUE(A) (*blocal_getrealvalue (A))
+#define BLOCAL_REALVALUE(A) (XCDR_AS_LVALUE (ensure_thread_local (&((A)->realvalue))))
 
 /* START and END are markers in the overlay's buffer, and
    PLIST is the overlay's property list.  */