(calcVar-digit, calcVar-oper): Remove need for "var-" at the

beginning of the minibuffer.

diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 9323952180144a49596f16a359948f12079e9c6d..574efbf37e6a84d56a6d71581f288864bd4054de 100644 (file)
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -200,7 +200,7 @@
 
 (defun calcVar-digit ()
   (interactive)
-  (if (calc-minibuffer-contains "var-\\'")
+  (if (calc-minibuffer-contains "\\'")
       (if (eq calc-store-opers 0)
          (beep)
        (insert "q")
@@ -210,7 +210,7 @@
 (defun calcVar-oper ()
   (interactive)
   (if (and (eq calc-store-opers t)
-          (calc-minibuffer-contains "var-\\'"))
+          (calc-minibuffer-contains "\\'"))
       (progn
        (erase-buffer)
        (self-insert-and-exit))