diff options
| author | Jay Belanger | 2007-12-29 00:23:41 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-12-29 00:23:41 +0000 |
| commit | 5fb4539b9edbfbf1b2b59b12fde9705a00663e70 (patch) | |
| tree | 98c092eed0418187df43f851d76715eca086d793 | |
| parent | 702dbfd92c81d78749a3b2479ef434ac7ec0ba1c (diff) | |
| download | emacs-5fb4539b9edbfbf1b2b59b12fde9705a00663e70.tar.gz emacs-5fb4539b9edbfbf1b2b59b12fde9705a00663e70.zip | |
(math-read-token): Fix misplaced parentheses.
| -rw-r--r-- | lisp/calc/calc-aent.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index 5b93a544397..22022d8b0ce 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el | |||
| @@ -775,9 +775,9 @@ in Calc algebraic input.") | |||
| 775 | (setq math-exp-token 'string | 775 | (setq math-exp-token 'string |
| 776 | math-expr-data (math-match-substring math-exp-str 1) | 776 | math-expr-data (math-match-substring math-exp-str 1) |
| 777 | math-exp-pos (match-end 0))) | 777 | math-exp-pos (match-end 0))) |
| 778 | ((and (setq adfn (get calc-language 'math-lang-read))) | 778 | ((and (setq adfn (get calc-language 'math-lang-read)) |
| 779 | (eval (nth 0 adfn)) | 779 | (eval (nth 0 adfn)) |
| 780 | (eval (nth 1 adfn))) | 780 | (eval (nth 1 adfn)))) |
| 781 | ((eq (string-match "%%.*$" math-exp-str math-exp-pos) math-exp-pos) | 781 | ((eq (string-match "%%.*$" math-exp-str math-exp-pos) math-exp-pos) |
| 782 | (setq math-exp-pos (match-end 0)) | 782 | (setq math-exp-pos (match-end 0)) |
| 783 | (math-read-token)) | 783 | (math-read-token)) |