(calc-handle-undo): Remove prefix from variable in message.

diff --git a/lisp/calc/calc-undo.el b/lisp/calc/calc-undo.el
index a49c34010abc4fdb3dbb7a70f920c7d7e18e2b05..d946a1390d33f558a259fe8f4e0f32514a9755d0 100644 (file)
--- a/lisp/calc/calc-undo.el
+++ b/lisp/calc/calc-undo.el
@@ -77,7 +77,8 @@
           (let ((v (intern (nth 1 action))))
             (calc-record-undo (list 'store (nth 1 action)
                                     (and (boundp v) (symbol-value v))))
-            (if (y-or-n-p (format "Un-store variable %s? " (nth 1 action)))
+            (if (y-or-n-p (format "Un-store variable %s? " 
+                                   (calc-var-name (nth 1 action))))
                 (progn
                   (if (nth 2 action)
                       (set v (nth 2 action))