Mercurial > emacs

comparison lisp/calc/calc-aent.el @ 91010:aaccdab0ee26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 852-856) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 93-96) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 245) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-249
author Miles Bader <miles@gnu.org>
date Tue, 21 Aug 2007 04:54:03 +0000
parents f55f9811f5d7 b4a5bc0f9436
children 53108e6cea98
comparison
equal deleted inserted replaced
91009:e7395a700642 91010:aaccdab0ee26
72 (let ((calc-number-radix 16)) 72 (let ((calc-number-radix 16))
73 (math-format-value (car alg-exp) 1000)) 73 (math-format-value (car alg-exp) 1000))
74 ", " 74 ", "
75 (let ((calc-number-radix 8)) 75 (let ((calc-number-radix 8))
76 (math-format-value (car alg-exp) 1000)) 76 (math-format-value (car alg-exp) 1000))
77 ", "
78 (let ((calc-number-radix 2))
79 (math-format-value (car alg-exp) 1000))
77 (if (and (integerp (car alg-exp)) 80 (if (and (integerp (car alg-exp))
78 (> (car alg-exp) 0) 81 (> (car alg-exp) 0)
79 (< (car alg-exp) 127)) 82 (< (car alg-exp) 127))
80 (format ", \"%c\"" (car alg-exp)) 83 (format ", \"%c\"" (car alg-exp))
81 "") 84 "")