# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1182313071 0
# Node ID 834afc8fa2e53831178c0fc96742382b5a143348
# Parent  1ae3e881bf9c4314d6e58e83ffd50ebce51613c3
(math-compose-expr): Let math-expr-opers equal math-expr-ops.

diff -r 1ae3e881bf9c -r 834afc8fa2e5 lisp/calc/calccomp.el
--- a/lisp/calc/calccomp.el	Wed Jun 20 04:17:27 2007 +0000
+++ b/lisp/calc/calccomp.el	Wed Jun 20 04:17:51 2007 +0000
@@ -83,6 +83,7 @@
 
 (defun math-compose-expr (a prec)
   (let ((math-compose-level (1+ math-compose-level))
+        (math-expr-opers (math-expr-ops))
         spfn)
     (cond
      ((or (and (eq a math-comp-selected) a)