# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1095266944 0
# Node ID 344baab70c72540891aa56b16fa3891c5b5aaf32
# Parent  abc0e9beaacde9ddd75026a553595e1c29a6eaa6
calc/calc-embed.el (calc-embedded-set-modes): Use
`calc-mode-var-list' correctly.

diff -r abc0e9beaacd -r 344baab70c72 lisp/calc/calc-embed.el
--- a/lisp/calc/calc-embed.el	Wed Sep 15 16:48:19 2004 +0000
+++ b/lisp/calc/calc-embed.el	Wed Sep 15 16:49:04 2004 +0000
@@ -557,7 +557,7 @@
 	       (not (eq (cdr found) 'default)))
 	  (progn
 	    (if (eq (setq value (cdr (car v))) 'default)
-		(setq value (cdr (assq (car (car v)) calc-mode-var-list))))
+		(setq value (list (nth 1 (assq (car (car v)) calc-mode-var-list)))))
 	    (equal (symbol-value (car (car v))) value))
 	  (progn
 	    (setq changed t)