mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-10 00:00:39 -08:00
(math-provably-realp): Fix typo.
This commit is contained in:
parent
4af1faa33c
commit
ae51ae1108
1 changed files with 1 additions and 2 deletions
|
|
@ -71,7 +71,6 @@
|
|||
(declare-function math-format-bignum-radix "calc-bin" (a))
|
||||
(declare-function math-compute-max-digits "calc-bin" (w r))
|
||||
|
||||
|
||||
(defvar math-simplifying nil)
|
||||
(defvar math-living-dangerously nil) ; true if unsafe simplifications are okay.
|
||||
(defvar math-integrating nil)
|
||||
|
|
@ -2132,7 +2131,7 @@ calc-kill calc-kill-region calc-yank))))
|
|||
;;; True if A is a real or will evaluate to a real. [P x] [Public]
|
||||
(defun math-provably-realp (a)
|
||||
(or (Math-realp a)
|
||||
(math-provably-integer a)
|
||||
(math-provably-integerp a)
|
||||
(memq (car-safe a) '(abs arg))))
|
||||
|
||||
;;; True if A is a non-real, complex number. [P x] [Public]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue