1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index d299c5bf5d3..b519559330e 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2288,7 +2288,7 @@ the United States."
        (calc-alg-digit-entry)
      (setq calc-aborted-prefix nil)
      (let* ((calc-digit-value nil)
-            (calc-prev-char nil)
+            (calc-prev-char last-command-event)
             (calc-prev-prev-char nil)
             (calc-buffer (current-buffer))
             (buf