(calc-kbd-query): Change error message.

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index 7bfb47ee61be4e1808ab80129b38f30881b45a8c..8d2fba7fef0cbd22433809c8bd507482f3aa6410 100644 (file)
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1457,7 +1457,7 @@ Redefine the corresponding command."
         (executing-kbd-macro nil)
         (msg (calc-top 1)))
     (if (not (eq (car-safe msg) 'vec))
-        (error "No prompt string provided on stack")
+        (error "No prompt string provided")
       (setq msg (math-vector-to-string msg))
       (calc-wrapper
        (calc-pop-stack 1)