Lines Matching defs:var
143 (let ((var (cdr (car v))))
144 (unless (memq var '(the-language the-display-just))
146 (cons (cons var (symbol-value var))
659 (setq value (list (nth 1 (assq (car (car v)) calc-mode-var-list)))))
984 (and (eq (car-safe x) 'var)
993 (eq (car-safe (nth 1 x)) 'var)
1015 (calc-embedded-eval-get-var (car (car calc-embed-vars-used)) active)
1032 (defun calc-embedded-eval-get-var (var base)
1038 (or (not (equal var (aref (car entry) 9)))
1057 (setq math-ms-args (cons (cons var val) math-ms-args)))
1059 (calc-embedded-eval-get-var var base))))))
1141 (calc-embedded-var-change (nth 1 val) (aref info 0))))
1145 (calc-embedded-var-change (nth 1 old-val) (aref info 0)))))
1234 (list '(var empty var-empty) 1 nil)
1332 (defun calc-embedded-var-change (var &optional buf)
1333 (if (symbolp var)
1334 (setq var (list 'var
1335 (if (string-match "\\`var-.+\\'"
1336 (symbol-name var))
1337 (intern (substring (symbol-name var) 4))
1338 var)
1339 var)))
1350 (if (assoc var (aref (car p) 10))
1356 (calc-embedded-var-change (aref (car p) 9)))))