From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 15 Nov 2009 23:58:11 +0000 (+0000)
Subject: (calcDigit-key): Fix regexp.
X-Git-Tag: emacs-pretest-23.1.90~412
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12d8d7f4d78137c48e7371a7adbcbd38a3ff9582;p=emacs.git

(calcDigit-key): Fix regexp.
---

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)))))