Commit 95f8c3b9 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(Feql): New function.

(syms_of_fns): defsubr it.
parent d8dc1ccc
2004-04-19 John Paul Wallington <jpw@gnu.org>
* fns.c (Feql): New function.
(syms_of_fns): defsubr it.
2004-04-18 Jason Rumney <jasonr@gnu.org>
* w32select.c (Fw32_set_clipboard_data): Get sequence number
......
......@@ -2135,6 +2135,18 @@ The PLIST is modified by side effects. */)
return plist;
}
DEFUN ("eql", Feql, Seql, 2, 2, 0,
doc: /* Return t if the two args are the same Lisp object.
Floating-point numbers of equal value are `eql', but they may not be `eq'. */)
(obj1, obj2)
Lisp_Object obj1, obj2;
{
if (FLOATP (obj1))
return internal_equal (obj1, obj2, 0, 0) ? Qt : Qnil;
else
return EQ (obj1, obj2) ? Qt : Qnil;
}
DEFUN ("equal", Fequal, Sequal, 2, 2, 0,
doc: /* Return t if two Lisp objects have similar structure and contents.
They must have the same data type.
......@@ -5740,6 +5752,7 @@ used if both `use-dialog-box' and this variable are non-nil. */);
defsubr (&Sput);
defsubr (&Slax_plist_get);
defsubr (&Slax_plist_put);
defsubr (&Seql);
defsubr (&Sequal);
defsubr (&Sequal_including_properties);
defsubr (&Sfillarray);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment