# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1129582294 0
# Node ID 9b54a8bf0ecf43c48ace174f55f6ef029391de03
# Parent  b6a209407cf3f2d168b64a03121be80e9b93567b
(calc-store-into): Get proper variable name to display in message.

diff -r b6a209407cf3 -r 9b54a8bf0ecf lisp/calc/calc-store.el
--- a/lisp/calc/calc-store.el	Mon Oct 17 17:39:57 2005 +0000
+++ b/lisp/calc/calc-store.el	Mon Oct 17 20:51:34 2005 +0000
@@ -71,7 +71,7 @@
                                       (if (not (cdr var)) "")
                                       (if (not (cdr var)) 1))))
                (message (concat "Stored to variable \"%s\"" msg)
-                        (calc-var-name var)))
+                        (calc-var-name (car (car var)))))
 	     (setq var (cdr var))))))))
 
 (defun calc-store-plus (&optional var)