690 |
math-exp-pos) |
math-exp-pos) |
691 |
(or (eq math-exp-pos 0) |
(or (eq math-exp-pos 0) |
692 |
(and (memq calc-language '(nil flat big unform |
(and (memq calc-language '(nil flat big unform |
693 |
tex eqn)) |
tex latex eqn)) |
694 |
(eq (string-match "[^])}\"a-zA-Z0-9'$]_" |
(eq (string-match "[^])}\"a-zA-Z0-9'$]_" |
695 |
math-exp-str (1- math-exp-pos)) |
math-exp-str (1- math-exp-pos)) |
696 |
(1- math-exp-pos)))))) |
(1- math-exp-pos)))))) |
746 |
(setq math-exp-token 'string |
(setq math-exp-token 'string |
747 |
math-expr-data (math-match-substring math-exp-str 1) |
math-expr-data (math-match-substring math-exp-str 1) |
748 |
math-exp-pos (match-end 0)))) |
math-exp-pos (match-end 0)))) |
749 |
((and (= ch ?\\) (eq calc-language 'tex) |
((and (= ch ?\\) (memq calc-language '(tex latex)) |
750 |
(< math-exp-pos (1- (length math-exp-str)))) |
(< math-exp-pos (1- (length math-exp-str)))) |
751 |
(or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" |
(or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" |
752 |
math-exp-str math-exp-pos) |
math-exp-str math-exp-pos) |
800 |
(setq math-exp-pos (match-end 0)) |
(setq math-exp-pos (match-end 0)) |
801 |
(math-read-token)) |
(math-read-token)) |
802 |
(t |
(t |
803 |
(if (and (eq ch ?\{) (memq calc-language '(tex eqn))) |
(if (and (eq ch ?\{) (memq calc-language '(tex latex eqn))) |
804 |
(setq ch ?\()) |
(setq ch ?\()) |
805 |
(if (and (eq ch ?\}) (memq calc-language '(tex eqn))) |
(if (and (eq ch ?\}) (memq calc-language '(tex latex eqn))) |
806 |
(setq ch ?\))) |
(setq ch ?\))) |
807 |
(if (and (eq ch ?\&) (eq calc-language 'tex)) |
(if (and (eq ch ?\&) (memq calc-language '(tex latex))) |
808 |
(setq ch ?\,)) |
(setq ch ?\,)) |
809 |
(setq math-exp-token 'punc |
(setq math-exp-token 'punc |
810 |
math-expr-data (char-to-string ch) |
math-expr-data (char-to-string ch) |