3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Gillespie <daveg@synaptics.com> |
;; Author: Dave Gillespie <daveg@synaptics.com> |
6 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
472 |
(math-exp-old-pos 0) |
(math-exp-old-pos 0) |
473 |
(math-exp-keep-spaces nil) |
(math-exp-keep-spaces nil) |
474 |
math-exp-token math-expr-data) |
math-exp-token math-expr-data) |
475 |
|
(setq math-exp-str (math-read-preprocess-string math-exp-str)) |
476 |
(if calc-language-input-filter |
(if calc-language-input-filter |
477 |
(setq math-exp-str (funcall calc-language-input-filter math-exp-str))) |
(setq math-exp-str (funcall calc-language-input-filter math-exp-str))) |
478 |
(while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str)) |
(while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str)) |