# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1106590894 0
# Node ID be3370bd02da2b04970d4c343e69605a2022ec1f
# Parent  b1adddb0ff3240be39061a1cc14cdaa00fa9f5d7
(calc-declare-variable): Use calc-var-name to display variable name.

diff -r b1adddb0ff32 -r be3370bd02da lisp/calc/calc-store.el
--- a/lisp/calc/calc-store.el	Mon Jan 24 18:00:43 2005 +0000
+++ b/lisp/calc/calc-store.el	Mon Jan 24 18:21:34 2005 +0000
@@ -482,7 +482,7 @@
 			     (setq rp nil)))
 		       (not rp)))))
      (calc-unread-command ?\C-a)
-     (setq decl (read-string (format "Declare: %s  to be: " var)
+     (setq decl (read-string (format "Declare: %s  to be: " (calc-var-name var))
 			     (and rp
 				  (math-format-flat-expr (nth 2 (car dp)) 0))))
      (setq decl (and (string-match "[^ \t]" decl)