# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1104428589 0
# Node ID 999144478c9a8d1af63f0680a4720d45c0a777f6
# Parent  6e385b257cef50b3ce62aece1698fb2d08001145
(calc-copy-variable): Fix mistyped variable name.  Display variable
name differently in message.

diff -r 6e385b257cef -r 999144478c9a lisp/calc/calc-store.el
--- a/lisp/calc/calc-store.el	Thu Dec 30 12:45:22 2004 +0000
+++ b/lisp/calc/calc-store.el	Thu Dec 30 17:43:09 2004 +0000
@@ -373,9 +373,10 @@
    (if var1
        (let ((value (calc-var-value var1)))
 	 (or value
-	     (error "No such variable: \"%s\"" (calc-var-name var)))
+	     (error "No such variable: \"%s\"" (calc-var-name var1)))
 	 (or var2 (setq var2 (calc-read-var-name
-			      (format "Copy variable: %s, to: " var1))))
+			      (format "Copy variable: %s, to: " 
+                                      (calc-var-name var1)))))
 	 (if var2
 	     (calc-store-value var2 value ""))))))