diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-20 04:15:12 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-20 04:15:12 +0000 |
| commit | 09be88b3d39c7e2980ffbe45f1464bcb14c803b2 (patch) | |
| tree | 21b9fbb372c9d7df6a5b5f7a52cd9af085e23d48 /lisp/calc/calc-lang.el | |
| parent | 1dccbfee1a509a36ae372648df060586b7ddd38f (diff) | |
| download | emacs-09be88b3d39c7e2980ffbe45f1464bcb14c803b2.tar.gz | |
(calc-set-language,math-read-big-rec): Let math-expr-opers equal the
function math-standard-ops rather than the variable
math-standard-opers.
Diffstat (limited to 'lisp/calc/calc-lang.el')
| -rw-r--r-- | lisp/calc/calc-lang.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el index 79c33b473c3..c009dbe18aa 100644 --- a/lisp/calc/calc-lang.el +++ b/lisp/calc/calc-lang.el @@ -35,7 +35,7 @@ ;;; Alternate entry/display languages. (defun calc-set-language (lang &optional option no-refresh) - (setq math-expr-opers (or (get lang 'math-oper-table) math-standard-opers) + (setq math-expr-opers (or (get lang 'math-oper-table) (math-standard-ops)) math-expr-function-mapping (get lang 'math-function-table) math-expr-special-function-mapping (get lang 'math-special-function-table) math-expr-variable-mapping (get lang 'math-variable-table) @@ -1225,7 +1225,7 @@ h (1+ v) (1+ h) math-rb-v2) (string-match "<=\\|>=\\|\\+/-\\|!=\\|&&\\|||\\|:=\\|=>\\|." line h) (assoc (math-match-substring line 0) - math-standard-opers))) + (math-standard-ops)))) (and (>= (nth 2 widest) prec) (setq h (match-end 0))) (and (not (eq (string-match ",\\|;\\|\\.\\.\\|)\\|\\]\\|:" line h) |