diff options
| -rw-r--r-- | lisp/calc/calc-aent.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index f70a6d0eb07..997ac3d583f 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el | |||
| @@ -728,7 +728,9 @@ in Calc algebraic input.") | |||
| 728 | math-exp-str (1- math-exp-pos)) | 728 | math-exp-str (1- math-exp-pos)) |
| 729 | (1- math-exp-pos)))))) | 729 | (1- math-exp-pos)))))) |
| 730 | (or (and (memq calc-language calc-lang-c-type-hex) | 730 | (or (and (memq calc-language calc-lang-c-type-hex) |
| 731 | (string-match "0[xX][0-9a-fA-F]+" math-exp-str math-exp-pos)) | 731 | (eq (string-match "0[xX][0-9a-fA-F]+" math-exp-str |
| 732 | math-exp-pos) | ||
| 733 | math-exp-pos)) | ||
| 732 | (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]+\\)?\"?\\)?" | 734 | (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]+\\)?\"?\\)?" |
| 733 | math-exp-str math-exp-pos)) | 735 | math-exp-str math-exp-pos)) |
| 734 | (setq math-exp-token 'number | 736 | (setq math-exp-token 'number |