mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

(Fmemq): Refill doc string.

Browse source 
(Fmemql): New defun, like memq but using eql.
(syms_of_fns): Defsubr it.
This commit is contained in:
Kim F. Storm 2006-09-20 23:07:17 +00:00
parent 0aad54a5a0
commit 008ef0efaa
1 changed files with 28 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/fns.c
View file

@ -1464,11 +1464,10 @@ The value is actually the tail of LIST whose car is ELT. */)
}
DEFUN ("memq", Fmemq, Smemq, 2, 2, 0,
doc: /* Return non-nil if ELT is an element of LIST.
Comparison done with `eq'. The value is actually the tail of LIST
whose car is ELT. */)
doc: /* Return non-nil if ELT is an element of LIST. Comparison done with `eq'.
The value is actually the tail of LIST whose car is ELT. */)
(elt, list)
Lisp_Object elt, list;
register Lisp_Object elt, list;
{
while (1)
{
@ -1491,6 +1490,30 @@ whose car is ELT. */)
return list;
}
DEFUN ("memql", Fmemql, Smemql, 2, 2, 0,
doc: /* Return non-nil if ELT is an element of LIST. Comparison done with `eql'.
The value is actually the tail of LIST whose car is ELT. */)
(elt, list)
register Lisp_Object elt;
Lisp_Object list;
{
register Lisp_Object tail;
if (!FLOATP (elt))
return Fmemq (elt, list);
for (tail = list; !NILP (tail); tail = XCDR (tail))
{
register Lisp_Object tem;
CHECK_LIST_CONS (tail, list);
tem = XCAR (tail);
if (FLOATP (tem) && internal_equal (elt, tem, 0, 0))
return tail;
QUIT;
}
return Qnil;
}
DEFUN ("assq", Fassq, Sassq, 2, 2, 0,
doc: /* Return non-nil if KEY is `eq' to the car of an element of LIST.
The value is actually the first element of LIST whose car is KEY.
@ -5833,6 +5856,7 @@ used if both `use-dialog-box' and this variable are non-nil. */);
defsubr (&Selt);
defsubr (&Smember);
defsubr (&Smemq);
defsubr (&Smemql);
defsubr (&Sassq);
defsubr (&Sassoc);
defsubr (&Srassq);