From 12d8d7f4d78137c48e7371a7adbcbd38a3ff9582 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 15 Nov 2009 23:58:11 +0000 Subject: [PATCH] (calcDigit-key): Fix regexp. --- lisp/calc/calc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index e9a09ad054a..f6c54407521 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2357,7 +2357,7 @@ See calc-keypad for details." (insert "mod ")))) (t (insert (char-to-string last-command-event)) - (if (or (and (calc-minibuffer-contains "[-+]?\\(.*\\+/- *\\|.*mod *\\)?\\([0-9][0-9]?\\)#[#&]?[0-9a-zA-Z]*\\(:[0-9a-zA-Z]*\\(:[0-9a-zA-Z]*\\)?\\|.[0-9a-zA-Z]*\\(e[-+]?[0-9]*\\)?\\)?\\'") + (if (or (and (calc-minibuffer-contains "[-+]?\\(.*\\+/- *\\|.*mod *\\)?\\([0-9][0-9]?\\)#[#]?[0-9a-zA-Z]*\\(:[0-9a-zA-Z]*\\(:[0-9a-zA-Z]*\\)?\\|.[0-9a-zA-Z]*\\(e[-+]?[0-9]*\\)?\\)?\\'") (let ((radix (string-to-number (buffer-substring (match-beginning 2) (match-end 2))))) -- 2.39.5