diff options
| author | Jay Belanger | 2005-02-08 05:02:09 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-02-08 05:02:09 +0000 |
| commit | 1867200e4547380c24badc29dd0d88cbbd301a16 (patch) | |
| tree | 5164a4707aa71fa3c802c8cbb9f0428144be821e | |
| parent | bae45dc3a992c4bdd372172b9e6f16d6bab3d554 (diff) | |
| download | emacs-1867200e4547380c24badc29dd0d88cbbd301a16.tar.gz emacs-1867200e4547380c24badc29dd0d88cbbd301a16.zip | |
(math-compose-expr): Fix a check for language type.
| -rw-r--r-- | lisp/calc/calccomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el index 26ae8c1975c..eff7df2373d 100644 --- a/lisp/calc/calccomp.el +++ b/lisp/calc/calccomp.el | |||
| @@ -908,7 +908,7 @@ | |||
| 908 | (setq func (substring func 0 (- n))) | 908 | (setq func (substring func 0 (- n))) |
| 909 | (while (>= (setq n (1- n)) 0) | 909 | (while (>= (setq n (1- n)) 0) |
| 910 | (setq func (concat func " prime"))))) | 910 | (setq func (concat func " prime"))))) |
| 911 | (cond ((and (eq calc-language '(tex latex)) | 911 | (cond ((and (memq calc-language '(tex latex)) |
| 912 | (or (> (length a) 2) | 912 | (or (> (length a) 2) |
| 913 | (not (math-tex-expr-is-flat (nth 1 a))))) | 913 | (not (math-tex-expr-is-flat (nth 1 a))))) |
| 914 | (setq left "\\left( " | 914 | (setq left "\\left( " |