# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1217907751 0
# Node ID 6d249948ce31e0878acf2dea6ca06d6b9333a1ed
# Parent  ab31e89ca7799f25746612f817a69c5b5a5c0d64
(math-read-number): Handle C-like languages properly.

diff -r ab31e89ca779 -r 6d249948ce31 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Tue Aug 05 03:38:24 2008 +0000
+++ b/lisp/calc/calc.el	Tue Aug 05 03:42:31 2008 +0000
@@ -3463,7 +3463,7 @@
     ;; Integers (most common case)
     ((string-match "\\` *\\([0-9]+\\) *\\'" s)
      (let ((digs (math-match-substring s 1)))
-       (if (and (eq calc-language 'c)
+       (if (and (memq calc-language calc-lang-c-type-hex)
 		(> (length digs) 1)
 		(eq (aref digs 0) ?0)
                 (null decimal))