Mercurial > emacs

comparison lisp/calc/calc-embed.el @ 57116:344baab70c72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
calc/calc-embed.el (calc-embedded-set-modes): Use `calc-mode-var-list' correctly.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 15 Sep 2004 16:49:04 +0000
parents 28c3a99598f0
children 59f299fd62df 2e44ef8c14b4
comparison
equal deleted inserted replaced
57115:abc0e9beaacd 57116:344baab70c72
555 (not (eq (cdr found) 'default))) 555 (not (eq (cdr found) 'default)))
556 (and (setq found (assq (car (car v)) local-modes)) 556 (and (setq found (assq (car (car v)) local-modes))
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)
564 (if temp (setq prev-modes (cons (cons (car (car v)) 564 (if temp (setq prev-modes (cons (cons (car (car v))
565 (symbol-value (car (car v)))) 565 (symbol-value (car (car v))))