mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(Feql): New function.

Browse Source 
(syms_of_fns): defsubr it.
This commit is contained in:
John Paul Wallington 2004-04-19 15:17:53 +00:00
parent d8dc1cccf6
commit 95f8c3b95d
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,3 +1,8 @@
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

13
src/fns.c
View File

@ -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);