calc/calc-embed.el (calc-embedded-set-modes): Use

`calc-mode-var-list' correctly.

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 5fd77fe625f87157f34e3a78f5e6e8728b22126a..b3c5a4cff640da66c038fd4bb34f390001c2e911 100644 (file)
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -557,7 +557,7 @@ The command \\[yank] can retrieve it from there."
               (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)