Mercurial > emacs
changeset 61645:e4fc95d95925
(Fsafe_get): New function.
(syms_of_fns): Defsubr it.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 19 Apr 2005 08:34:19 +0000 |
| parents | aff89865e27c |
| children | 9af68ed35480 |
| files | src/fns.c |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Tue Apr 19 06:53:24 2005 +0000 +++ b/src/fns.c Tue Apr 19 08:34:19 2005 +0000 @@ -2051,6 +2051,18 @@ return Fplist_get (XSYMBOL (symbol)->plist, propname); } +DEFUN ("safe-get", Fsafe_get, Ssafe_get, 2, 2, 0, + doc: /* Return the value of SYMBOL's PROPNAME property. +This is the last value stored with `(put SYMBOL PROPNAME VALUE)'. +This function never signals an error. */) + (symbol, propname) + Lisp_Object symbol, propname; +{ + if (!SYMBOLP (symbol)) + return Qnil; + return Fsafe_plist_get (XSYMBOL (symbol)->plist, propname); +} + DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0, doc: /* Change value in PLIST of PROP to VAL. PLIST is a property list, which is a list of the form @@ -5792,6 +5804,7 @@ defsubr (&Splist_get); defsubr (&Ssafe_plist_get); defsubr (&Sget); + defsubr (&Ssafe_get); defsubr (&Splist_put); defsubr (&Sput); defsubr (&Slax_plist_get);