Mercurial > emacs

changeset 81469:03461dd3e801

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-read-plain-expr,math-format-flat-expr-fancy): 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:14:24 +0000
parents e262340dcd6e
children 3e0c2ded3e4a
files lisp/calc/calc-ext.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el	Wed Jun 20 04:13:06 2007 +0000
+++ b/lisp/calc/calc-ext.el	Wed Jun 20 04:14:24 2007 +0000
@@ -2960,7 +2960,7 @@
 
 (defun math-read-plain-expr (exp-str &optional error-check)
   (let* ((calc-language nil)
-	 (math-expr-opers math-standard-opers)
+	 (math-expr-opers (math-standard-ops))
 	 (val (math-read-expr exp-str)))
     (and error-check
 	 (eq (car-safe val) 'error)
@@ -3116,7 +3116,7 @@
     (concat (substring (symbol-name (car a)) 9)
 	    "(" (math-vector-to-string (nth 1 a) t) ")"))
    (t
-    (let ((op (math-assq2 (car a) math-standard-opers)))
+    (let ((op (math-assq2 (car a) (math-standard-ops))))
       (cond ((and op (= (length a) 3))
 	     (if (> prec (min (nth 2 op) (nth 3 op)))
 		 (concat "(" (math-format-flat-expr a 0) ")")