mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(math-provably-realp): Fix typo.

Browse Source
This commit is contained in:
Jay Belanger 2007-11-27 04:53:27 +00:00
parent 4af1faa33c
commit ae51ae1108
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/calc/calc-ext.el
View File

@ -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]