741 |
} |
} |
742 |
else |
else |
743 |
{ |
{ |
744 |
XSETFASTINT (elt, SREF (this, thisindex++)); |
XSETFASTINT (elt, SREF (this, thisindex)); thisindex++; |
745 |
if (some_multibyte |
if (some_multibyte |
746 |
&& (XINT (elt) >= 0240 |
&& (XINT (elt) >= 0240 |
747 |
|| (XINT (elt) >= 0200 |
|| (XINT (elt) >= 0200 |
1997 |
return Qnil; |
return Qnil; |
1998 |
} |
} |
1999 |
|
|
2000 |
|
DEFUN ("safe-plist-get", Fsafe_plist_get, Ssafe_plist_get, 2, 2, 0, |
2001 |
|
doc: /* Extract a value from a property list. |
2002 |
|
PLIST is a property list, which is a list of the form |
2003 |
|
\(PROP1 VALUE1 PROP2 VALUE2...). This function returns the value |
2004 |
|
corresponding to the given PROP, or nil if PROP is not |
2005 |
|
one of the properties on the list. |
2006 |
|
This function never signals an error. */) |
2007 |
|
(plist, prop) |
2008 |
|
Lisp_Object plist; |
2009 |
|
Lisp_Object prop; |
2010 |
|
{ |
2011 |
|
Lisp_Object tail, halftail; |
2012 |
|
|
2013 |
|
/* halftail is used to detect circular lists. */ |
2014 |
|
tail = halftail = plist; |
2015 |
|
while (CONSP (tail) && CONSP (XCDR (tail))) |
2016 |
|
{ |
2017 |
|
if (EQ (prop, XCAR (tail))) |
2018 |
|
return XCAR (XCDR (tail)); |
2019 |
|
|
2020 |
|
tail = XCDR (XCDR (tail)); |
2021 |
|
halftail = XCDR (halftail); |
2022 |
|
if (EQ (tail, halftail)) |
2023 |
|
break; |
2024 |
|
} |
2025 |
|
|
2026 |
|
return Qnil; |
2027 |
|
} |
2028 |
|
|
2029 |
DEFUN ("get", Fget, Sget, 2, 2, 0, |
DEFUN ("get", Fget, Sget, 2, 2, 0, |
2030 |
doc: /* Return the value of SYMBOL's PROPNAME property. |
doc: /* Return the value of SYMBOL's PROPNAME property. |
2031 |
This is the last value stored with `(put SYMBOL PROPNAME VALUE)'. */) |
This is the last value stored with `(put SYMBOL PROPNAME VALUE)'. */) |
5763 |
defsubr (&Sreverse); |
defsubr (&Sreverse); |
5764 |
defsubr (&Ssort); |
defsubr (&Ssort); |
5765 |
defsubr (&Splist_get); |
defsubr (&Splist_get); |
5766 |
|
defsubr (&Ssafe_plist_get); |
5767 |
defsubr (&Sget); |
defsubr (&Sget); |
5768 |
defsubr (&Splist_put); |
defsubr (&Splist_put); |
5769 |
defsubr (&Sput); |
defsubr (&Sput); |