diff options
| author | Jay Belanger | 2004-11-23 05:58:20 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-11-23 05:58:20 +0000 |
| commit | c4446fc2e900c69730162fa816ee45ec8290a464 (patch) | |
| tree | ed0e562421c5111e2e16a9617a1bf1f635188667 | |
| parent | 66c2cf664e9cb9053bcdaa7169fd64b2db32bd3a (diff) | |
| download | emacs-c4446fc2e900c69730162fa816ee45ec8290a464.tar.gz emacs-c4446fc2e900c69730162fa816ee45ec8290a464.zip | |
(math-read-exprs): Filter input through math-read-preprocess-string.
| -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 182b3b0635c..a615ec50623 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el | |||
| @@ -3,8 +3,7 @@ | |||
| 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
| 6 | ;; Maintainers: D. Goel <deego@gnufans.org> | 6 | ;; Maintainer: Jay Belanger <belanger@truman.edu> |
| 7 | ;; Colin Walters <walters@debian.org> | ||
| 8 | 7 | ||
| 9 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| 10 | 9 | ||
| @@ -473,6 +472,7 @@ | |||
| 473 | (math-exp-old-pos 0) | 472 | (math-exp-old-pos 0) |
| 474 | (math-exp-keep-spaces nil) | 473 | (math-exp-keep-spaces nil) |
| 475 | math-exp-token math-expr-data) | 474 | math-exp-token math-expr-data) |
| 475 | (setq math-exp-str (math-read-preprocess-string math-exp-str)) | ||
| 476 | (if calc-language-input-filter | 476 | (if calc-language-input-filter |
| 477 | (setq math-exp-str (funcall calc-language-input-filter math-exp-str))) | 477 | (setq math-exp-str (funcall calc-language-input-filter math-exp-str))) |
| 478 | (while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str)) | 478 | (while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str)) |