From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 1 Mar 2021 15:38:33 +0000 (+0100)
Subject: * lisp/calc/calc-ext.el (math-equal-int): Work for bignums.
X-Git-Tag: emacs-28.0.90~3472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce7e78a2c09eadcbc180eb9678ed34c232a146b7;p=emacs.git

* lisp/calc/calc-ext.el (math-equal-int): Work for bignums.
---

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index f4ddb840b50..24781ed6c86 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2565,9 +2565,9 @@ If X is not an error form, return 1."
 ;;; True if A is numerically equal to the integer B.  [P N S] [Public]
 ;;; B must not be a multiple of 10.
 (defun math-equal-int (a b)
-  (or (eq a b)
+  (or (eql a b)
       (and (eq (car-safe a) 'float)
-	   (eq (nth 1 a) b)
+	   (eql (nth 1 a) b)
 	   (= (nth 2 a) 0))))