2051 |
return Fplist_get (XSYMBOL (symbol)->plist, propname); |
return Fplist_get (XSYMBOL (symbol)->plist, propname); |
2052 |
} |
} |
2053 |
|
|
2054 |
|
DEFUN ("safe-get", Fsafe_get, Ssafe_get, 2, 2, 0, |
2055 |
|
doc: /* Return the value of SYMBOL's PROPNAME property. |
2056 |
|
This is the last value stored with `(put SYMBOL PROPNAME VALUE)'. |
2057 |
|
This function never signals an error. */) |
2058 |
|
(symbol, propname) |
2059 |
|
Lisp_Object symbol, propname; |
2060 |
|
{ |
2061 |
|
if (!SYMBOLP (symbol)) |
2062 |
|
return Qnil; |
2063 |
|
return Fsafe_plist_get (XSYMBOL (symbol)->plist, propname); |
2064 |
|
} |
2065 |
|
|
2066 |
DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0, |
DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0, |
2067 |
doc: /* Change value in PLIST of PROP to VAL. |
doc: /* Change value in PLIST of PROP to VAL. |
2068 |
PLIST is a property list, which is a list of the form |
PLIST is a property list, which is a list of the form |
5804 |
defsubr (&Splist_get); |
defsubr (&Splist_get); |
5805 |
defsubr (&Ssafe_plist_get); |
defsubr (&Ssafe_plist_get); |
5806 |
defsubr (&Sget); |
defsubr (&Sget); |
5807 |
|
defsubr (&Ssafe_get); |
5808 |
defsubr (&Splist_put); |
defsubr (&Splist_put); |
5809 |
defsubr (&Sput); |
defsubr (&Sput); |
5810 |
defsubr (&Slax_plist_get); |
defsubr (&Slax_plist_get); |