Calc: fix interval entry snag (bug#42438)

* lisp/calc/calc.el (calcDigit-key): Don't signal a 'Bad format' error
when entering '..' after pushing an incomplete interval.

Reported by Allen Li.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 4e4fb6717301a1c0dffda4e7c830f12e203827fc..09b4962107077bb38da125236e35875169c550de 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2429,7 +2429,7 @@ the United States."
          (if (and (memq last-command-event '(?@ ?o ?h ?\' ?m))
                   (string-match " " calc-hms-format))
              (insert " "))
-       (if (and (eq this-command last-command)
+       (if (and (memq last-command '(calcDigit-start calcDigit-key))
                 (eq last-command-event ?.))
            (progn
              (require 'calc-ext)