changeset 87458:bb9a0a3cc5f2

(math-read-token): Fix misplaced parentheses.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sat, 29 Dec 2007 00:23:41 +0000
parents 6773abf609a9
children 16247015d17b
files lisp/calc/calc-aent.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-aent.el	Sat Dec 29 00:23:01 2007 +0000
+++ b/lisp/calc/calc-aent.el	Sat Dec 29 00:23:41 2007 +0000
@@ -775,9 +775,9 @@
              (setq math-exp-token 'string
                    math-expr-data (math-match-substring math-exp-str 1)
                    math-exp-pos (match-end 0)))
-            ((and (setq adfn (get calc-language 'math-lang-read)))
+            ((and (setq adfn (get calc-language 'math-lang-read))
                   (eval (nth 0 adfn))
-                  (eval (nth 1 adfn)))
+                  (eval (nth 1 adfn))))
 	    ((eq (string-match "%%.*$" math-exp-str math-exp-pos) math-exp-pos)
 	     (setq math-exp-pos (match-end 0))
 	     (math-read-token))