From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 15 Sep 2004 16:49:04 +0000 (+0000)
Subject: calc/calc-embed.el (calc-embedded-set-modes): Use
X-Git-Tag: ttn-vms-21-2-B4~4906
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f10b7b1b5af2d282b9586cfa32f60b1180a230ee;p=emacs.git

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 5fd77fe625f..b3c5a4cff64 100644
--- 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)