diff options
| author | Jay Belanger | 2004-09-15 16:49:04 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-09-15 16:49:04 +0000 |
| commit | f10b7b1b5af2d282b9586cfa32f60b1180a230ee (patch) | |
| tree | 703e1567165273e7e0a6811547a6a4381107571c | |
| parent | 7b2cda3878a44607f163c476a816c5d0d0b50511 (diff) | |
| download | emacs-f10b7b1b5af2d282b9586cfa32f60b1180a230ee.tar.gz emacs-f10b7b1b5af2d282b9586cfa32f60b1180a230ee.zip | |
calc/calc-embed.el (calc-embedded-set-modes): Use
`calc-mode-var-list' correctly.
| -rw-r--r-- | lisp/calc/calc-embed.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 557 | (not (eq (cdr found) 'default))) | 557 | (not (eq (cdr found) 'default))) |
| 558 | (progn | 558 | (progn |
| 559 | (if (eq (setq value (cdr (car v))) 'default) | 559 | (if (eq (setq value (cdr (car v))) 'default) |
| 560 | (setq value (cdr (assq (car (car v)) calc-mode-var-list)))) | 560 | (setq value (list (nth 1 (assq (car (car v)) calc-mode-var-list))))) |
| 561 | (equal (symbol-value (car (car v))) value)) | 561 | (equal (symbol-value (car (car v))) value)) |
| 562 | (progn | 562 | (progn |
| 563 | (setq changed t) | 563 | (setq changed t) |