symbol plist accessor

diff --git a/src/data.c b/src/data.c
index 1c3edca..9f0b9a3 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -686,7 +686,7 @@ DEFUN ("symbol-plist", Fsymbol_plist, Ssymbol_plist, 1, 1, 0,
   (register Lisp_Object symbol)
 {
   CHECK_SYMBOL (symbol);
-  return XSYMBOL (symbol)->plist;
+  return symbol_plist (symbol);
 }
 
 DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0,

diff --git a/src/fns.c b/src/fns.c
index 01c1f43..91f788f 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1906,7 +1906,7 @@ This is the last value stored with `(put SYMBOL PROPNAME VALUE)'.  */)
   (Lisp_Object symbol, Lisp_Object propname)
 {
   CHECK_SYMBOL (symbol);
-  return Fplist_get (XSYMBOL (symbol)->plist, propname);
+  return Fplist_get (symbol_plist (symbol), propname);
 }
 
 DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0,
@@ -1949,7 +1949,7 @@ It can be retrieved with `(get SYMBOL PROPNAME)'.  */)
 {
   CHECK_SYMBOL (symbol);
   set_symbol_plist
-    (symbol, Fplist_put (XSYMBOL (symbol)->plist, propname, value));
+    (symbol, Fplist_put (symbol_plist (symbol), propname, value));
   return value;
 }
 \f

diff --git a/src/lisp.h b/src/lisp.h
index 1bf3693..c4c5344 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2763,6 +2763,12 @@ set_symbol_function (Lisp_Object sym, Lisp_Object function)
   scm_variable_set_x (scm_module_lookup (function_module, sym), function);
 }
 
+INLINE Lisp_Object
+symbol_plist (Lisp_Object sym)
+{
+  return XSYMBOL (sym)->plist;
+}
+
 INLINE void
 set_symbol_plist (Lisp_Object sym, Lisp_Object plist)
 {