Mercurial > emacs

comparison lisp/calc/calc-math.el @ 102173:37b577ed82cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-use-emacs-fn): Make sure that the lisp number is in decimal.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sat, 21 Feb 2009 19:18:20 +0000
parents a9dc0e7c3f2b
children 89a7d79690f9
comparison
equal deleted inserted replaced
102172:a23f964bc701 102173:37b577ed82cd
103 (<= xpon math-largest-emacs-expt) 103 (<= xpon math-largest-emacs-expt)
104 (condition-case nil 104 (condition-case nil
105 (math-read-number 105 (math-read-number
106 (number-to-string 106 (number-to-string
107 (funcall fn 107 (funcall fn
108 (string-to-number (math-format-number (math-float x)))))) 108 (string-to-number
109 (let ((calc-number-radix 10))
110 (math-format-number (math-float x)))))))
109 (error nil)))))) 111 (error nil))))))
110 112
111 (defun calc-sqrt (arg) 113 (defun calc-sqrt (arg)
112 (interactive "P") 114 (interactive "P")
113 (calc-slow-wrapper 115 (calc-slow-wrapper