[Emacs-diffs] Changes to emacs/lisp/calc/calc-store.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-store.el
diff -c emacs/lisp/calc/calc-store.el:1.9 emacs/lisp/calc/calc-store.el:1.10
*** emacs/lisp/calc/calc-store.el:1.9   Mon Dec 27 05:02:08 2004
--- emacs/lisp/calc/calc-store.el       Thu Dec 30 17:43:09 2004
***************
*** 373,381 ****
     (if var1
         (let ((value (calc-var-value var1)))
         (or value
!            (error "No such variable: \"%s\"" (calc-var-name var)))
         (or var2 (setq var2 (calc-read-var-name
!                             (format "Copy variable: %s, to: " var1))))
         (if var2
             (calc-store-value var2 value ""))))))
  
--- 373,382 ----
     (if var1
         (let ((value (calc-var-value var1)))
         (or value
!            (error "No such variable: \"%s\"" (calc-var-name var1)))
         (or var2 (setq var2 (calc-read-var-name
!                             (format "Copy variable: %s, to: " 
!                                       (calc-var-name var1)))))
         (if var2
             (calc-store-value var2 value ""))))))