Mercurial > emacs

diff lisp/calc/calc-aent.el @ 106037:2d0a21ad00df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-read-token): Read complement signed numbers.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 15 Nov 2009 23:59:38 +0000
parents 2c12fbae77c2
children 72136220d7f5
line wrap: on
line diff
--- a/lisp/calc/calc-aent.el	Sun Nov 15 23:58:11 2009 +0000
+++ b/lisp/calc/calc-aent.el	Sun Nov 15 23:59:38 2009 +0000
@@ -748,7 +748,7 @@
 				   (1- math-exp-pos))))))
 	     (or (and (memq calc-language calc-lang-c-type-hex)
 		      (string-match "0[xX][0-9a-fA-F]+" math-exp-str math-exp-pos))
-		 (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?"
+		 (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#[#]?\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#[#]?\\|\\^\\^\\)[0-9a-zA-Z:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?"
                                math-exp-str math-exp-pos))
 	     (setq math-exp-token 'number
 		   math-expr-data (math-match-substring math-exp-str 0)