# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1108495609 0
# Node ID 5af1fe16a166a8333dfa4f3de3aa81cbe06ef650
# Parent  c3660f1897f544292da0e4615838c97254f84275
(calc-handle-undo): Remove prefix from variable in message.

diff -r c3660f1897f5 -r 5af1fe16a166 lisp/calc/calc-undo.el
--- a/lisp/calc/calc-undo.el	Tue Feb 15 19:26:07 2005 +0000
+++ b/lisp/calc/calc-undo.el	Tue Feb 15 19:26:49 2005 +0000
@@ -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))