Mercurial > emacs
changeset 54987:1b818fd4a373
(Feql): New function.
(syms_of_fns): defsubr it.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 19 Apr 2004 15:17:04 +0000 |
| parents | 82f3f56ffbf1 |
| children | f1debb261662 |
| files | src/fns.c |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Mon Apr 19 12:45:28 2004 +0000 +++ b/src/fns.c Mon Apr 19 15:17:04 2004 +0000 @@ -2135,6 +2135,18 @@ 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 @@ defsubr (&Sput); defsubr (&Slax_plist_get); defsubr (&Slax_plist_put); + defsubr (&Seql); defsubr (&Sequal); defsubr (&Sequal_including_properties); defsubr (&Sfillarray);