diff options
| author | Jay Belanger | 2009-11-15 23:58:11 +0000 |
|---|---|---|
| committer | Jay Belanger | 2009-11-15 23:58:11 +0000 |
| commit | 12d8d7f4d78137c48e7371a7adbcbd38a3ff9582 (patch) | |
| tree | 2a78c334292f7963cff45844763839ceaac655a4 | |
| parent | 7d08336e25cd0ad15b24c0670d3f00b876b69140 (diff) | |
| download | emacs-12d8d7f4d78137c48e7371a7adbcbd38a3ff9582.tar.gz emacs-12d8d7f4d78137c48e7371a7adbcbd38a3ff9582.zip | |
(calcDigit-key): Fix regexp.
| -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." | |||
| 2357 | (insert "mod ")))) | 2357 | (insert "mod ")))) |
| 2358 | (t | 2358 | (t |
| 2359 | (insert (char-to-string last-command-event)) | 2359 | (insert (char-to-string last-command-event)) |
| 2360 | (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]*\\)?\\)?\\'") | 2360 | (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]*\\)?\\)?\\'") |
| 2361 | (let ((radix (string-to-number | 2361 | (let ((radix (string-to-number |
| 2362 | (buffer-substring | 2362 | (buffer-substring |
| 2363 | (match-beginning 2) (match-end 2))))) | 2363 | (match-beginning 2) (match-end 2))))) |