Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
008ef0ef
Commit
008ef0ef
authored
Sep 20, 2006
by
Kim F. Storm
Browse files
(Fmemq): Refill doc string.
(Fmemql): New defun, like memq but using eql. (syms_of_fns): Defsubr it.
parent
0aad54a5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
28 additions
and
4 deletions
+28
-4
src/fns.c
src/fns.c
+28
-4
No files found.
src/fns.c
View file @
008ef0ef
...
...
@@ -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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment