aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJay Belanger2004-11-23 05:58:20 +0000
committerJay Belanger2004-11-23 05:58:20 +0000
commitc4446fc2e900c69730162fa816ee45ec8290a464 (patch)
treeed0e562421c5111e2e16a9617a1bf1f635188667
parent66c2cf664e9cb9053bcdaa7169fd64b2db32bd3a (diff)
downloademacs-c4446fc2e900c69730162fa816ee45ec8290a464.tar.gz
emacs-c4446fc2e900c69730162fa816ee45ec8290a464.zip
(math-read-exprs): Filter input through math-read-preprocess-string.
-rw-r--r--lisp/calc/calc-aent.el4
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))