diff options
| author | BT Templeton <[email protected]> | 2013-08-16 22:50:55 -0400 |
|---|---|---|
| committer | Robin Templeton <[email protected]> | 2015-04-19 03:43:02 -0400 |
| commit | 061cde1074b33e70d8d8d611a3806282f3e2c299 (patch) | |
| tree | 64c1ea15ffe301b2d7f2b0880e0ff3b6ab359776 /src | |
| parent | 45f0c9e3c2f4dd6f58761802c3882994dda5a72c (diff) | |
symbol plist accessor
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 2 | ||||
| -rw-r--r-- | src/fns.c | 4 | ||||
| -rw-r--r-- | src/lisp.h | 6 |
3 files changed, 9 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 1c3edca1ed..9f0b9a3e6e 100644 --- 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, @@ -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; } diff --git a/src/lisp.h b/src/lisp.h index 1bf3693564..c4c53443b5 100644 --- 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) { |