Lines Matching defs:user
601 (defvar calc-user-parse-table nil)
604 (defvar calc-user-tokens nil)
605 (defvar calc-user-token-chars nil)
608 "Tokens to pass between math-build-parse-table and math-find-user-tokens.")
611 (let ((mtab (cdr (assq nil calc-user-parse-tables)))
612 (ltab (cdr (assq calc-language calc-user-parse-tables))))
617 (setq calc-user-parse-table p)
618 (setq calc-user-token-chars nil)
620 (math-find-user-tokens (car (car p)))
622 (setq calc-user-tokens (mapconcat 'identity
631 (defun math-find-user-tokens (p)
645 (or (memq (aref (car p) 0) calc-user-token-chars)
646 (setq calc-user-token-chars
648 calc-user-token-chars)))))))
650 (math-find-user-tokens (nth 1 (car p)))
652 (math-find-user-tokens (nth 2 (car p))))))
668 ((and (memq ch calc-user-token-chars)
670 (eq (string-match calc-user-tokens math-exp-str math-exp-pos)
880 (while (and (or (and calc-user-parse-table
881 (setq op (calc-check-user-syntax x exp-prec))
904 (or (not calc-user-parse-table)
906 (let ((p calc-user-parse-table))
948 (defun calc-check-user-syntax (&optional x prec)
949 (let ((p calc-user-parse-table)
966 (setq matches (calc-match-user-syntax rule))))
1034 (defun calc-match-user-syntax (p &optional term)
1059 (setq m (calc-match-user-syntax (nth 1 (car p))))
1069 (setq m (calc-match-user-syntax (nth 1 (car p))
1076 mm (calc-match-user-syntax
1136 ((and calc-user-parse-table
1137 (setq op (calc-check-user-syntax)))