symbol plist accessor

[bpt/emacs.git] / src / data.c

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,