diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2009-11-15 23:58:11 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2009-11-15 23:58:11 +0000 |
| commit | 12d8d7f4d78137c48e7371a7adbcbd38a3ff9582 (patch) | |
| tree | 2a78c334292f7963cff45844763839ceaac655a4 /lisp/calc/calc.el | |
| parent | 7d08336e25cd0ad15b24c0670d3f00b876b69140 (diff) | |
| download | emacs-12d8d7f4d78137c48e7371a7adbcbd38a3ff9582.tar.gz | |
(calcDigit-key): Fix regexp.
Diffstat (limited to 'lisp/calc/calc.el')
| -rw-r--r-- | lisp/calc/calc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |