Mercurial > emacs
changeset 106036:20558a815b94
(calcDigit-key): Fix regexp.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 15 Nov 2009 23:58:11 +0000 |
| parents | 0cbe709e0f55 |
| children | 2d0a21ad00df |
| files | lisp/calc/calc.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc.el Sun Nov 15 23:55:53 2009 +0000 +++ b/lisp/calc/calc.el Sun Nov 15 23:58:11 2009 +0000 @@ -2357,7 +2357,7 @@ (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)))))