From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 24 Jan 2005 18:23:33 +0000 (+0000)
Subject: (calc-declare-variable): Use calc-var-name to display variable name.
X-Git-Tag: ttn-vms-21-2-B4~2597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dacb2f7013c28d5265e079a1f4c0e6536a4699ca;p=emacs.git

(calc-declare-variable): Use calc-var-name to display variable name.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebf953caacd..902f9da4e1c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-24  Jay Belanger  <belanger@truman.edu>
+
+	* calc/calc-store.el (calc-declare-variable): Use calc-var-name to
+	display variable name.
+
 2005-01-24  Kenichi Handa  <handa@m17n.org>
 
 	* international/encoded-kb.el (encoded-kbd-iso2022-single-shift):
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index b2cef4936a0..52f0cc0272d 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -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)