Mercurial > emacs
changeset 81470:3e0c2ded3e4a
(calc-set-language,math-read-big-rec): Let math-expr-opers equal the
function math-standard-ops rather than the variable
math-standard-opers.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 20 Jun 2007 04:15:12 +0000 |
| parents | 03461dd3e801 |
| children | 46f072d4a30f |
| files | lisp/calc/calc-lang.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-lang.el Wed Jun 20 04:14:24 2007 +0000 +++ b/lisp/calc/calc-lang.el Wed Jun 20 04:15:12 2007 +0000 @@ -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)