# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1082387824 0
# Node ID 1b818fd4a373e3f54e8239732b916bfdfc0ceb87
# Parent  82f3f56ffbf1c03d8e133fb38f8f484c5ec93f74
(Feql): New function.
(syms_of_fns): defsubr it.

diff -r 82f3f56ffbf1 -r 1b818fd4a373 src/fns.c
--- 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);