/[emacs]/emacs/lisp/calc/calc-aent.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-aent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by jpb, Sun Dec 19 06:59:33 2004 UTC revision 1.21 by jpb, Mon Jan 31 06:21:31 2005 UTC
# Line 690  in Calc algebraic input.") Line 690  in Calc algebraic input.")
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))))))
# Line 746  in Calc algebraic input.") Line 746  in Calc algebraic input.")
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)
# Line 800  in Calc algebraic input.") Line 800  in Calc algebraic input.")
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)

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26