# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1182312912 0
# Node ID 3e0c2ded3e4ab1773612e9a280a6038524768b4f
# Parent  03461dd3e801216571b21d2a829c04e512bd27a6
(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 -r 03461dd3e801 -r 3e0c2ded3e4a lisp/calc/calc-lang.el
--- 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)