From 95f8c3b95d340b8a6f89871479e00dfd59ce4596 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 19 Apr 2004 15:17:53 +0000 Subject: [PATCH] (Feql): New function. (syms_of_fns): defsubr it. --- src/ChangeLog | 5 +++++ src/fns.c | 13 +++++++++++++ 2 files changed, 18 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index babc20c57c5..f8d2ee0200c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2004-04-19 John Paul Wallington + + * fns.c (Feql): New function. + (syms_of_fns): defsubr it. + 2004-04-18 Jason Rumney * w32select.c (Fw32_set_clipboard_data): Get sequence number diff --git a/src/fns.c b/src/fns.c index adb262ee11d..3076a000992 100644 --- a/src/fns.c +++ b/src/fns.c @@ -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); -- 2.39.2