From: Jay Belanger Date: Wed, 20 Jun 2007 04:15:12 +0000 (+0000) Subject: (calc-set-language,math-read-big-rec): Let math-expr-opers equal the X-Git-Tag: emacs-pretest-23.0.90~12225 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09be88b3d39c7e2980ffbe45f1464bcb14c803b2;p=emacs.git (calc-set-language,math-read-big-rec): Let math-expr-opers equal the function math-standard-ops rather than the variable math-standard-opers. --- 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)