From: John Paul Wallington <jpw@pobox.com>
Date: Mon, 19 Apr 2004 15:17:53 +0000 (+0000)
Subject: (Feql): New function.
X-Git-Tag: ttn-vms-21-2-B4~6731
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95f8c3b95d340b8a6f89871479e00dfd59ce4596;p=emacs.git

(Feql): New function.
(syms_of_fns): defsubr it.
---

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