[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/fns.c
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/src/fns.c |
Date: |
Tue, 19 Apr 2005 04:34:20 -0400 |
Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.385 emacs/src/fns.c:1.386
*** emacs/src/fns.c:1.385 Mon Apr 18 10:20:46 2005
--- emacs/src/fns.c Tue Apr 19 08:34:19 2005
***************
*** 2051,2056 ****
--- 2051,2068 ----
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,5797 ****
--- 5804,5810 ----
defsubr (&Splist_get);
defsubr (&Ssafe_plist_get);
defsubr (&Sget);
+ defsubr (&Ssafe_get);
defsubr (&Splist_put);
defsubr (&Sput);
defsubr (&Slax_plist_get);
- [Emacs-diffs] Changes to emacs/src/fns.c, Richard M . Stallman, 2005/04/09
- [Emacs-diffs] Changes to emacs/src/fns.c, Stefan Monnier, 2005/04/10
- [Emacs-diffs] Changes to emacs/src/fns.c, Lute Kamstra, 2005/04/18
- [Emacs-diffs] Changes to emacs/src/fns.c,
Kim F . Storm <=
- [Emacs-diffs] Changes to emacs/src/fns.c, Kenichi Handa, 2005/04/20
- [Emacs-diffs] Changes to emacs/src/fns.c, Kenichi Handa, 2005/04/22
- [Emacs-diffs] Changes to emacs/src/fns.c, Kim F . Storm, 2005/04/22
- [Emacs-diffs] Changes to emacs/src/fns.c, Kenichi Handa, 2005/04/26