changeset 58844:d598b3594142

(math-read-replacement-list, math-read-superscripts): Move to calc-aent.el. (math-read-preprocess-string): Move to calc-aent.el.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 08 Dec 2004 06:10:56 +0000 (2004-12-08)
parents f3d24ef9bf58
children c05f062fa72f
files lisp/calc/calc-ext.el
diffstat 1 files changed, 0 insertions(+), 67 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el	Wed Dec 08 06:09:20 2004 +0000
+++ b/lisp/calc/calc-ext.el	Wed Dec 08 06:10:56 2004 +0000
@@ -2874,73 +2874,6 @@
 
 (defvar math-expr-data)
 
-(defvar math-read-replacement-list
-  '(;; Misc symbols
-    ("賊" "+/-")  ; plus or minus
-    ("�" "*")    ; multiplication sign
-    ("歎" ":")    ; division sign
-    ("��" "-")    ; subtraction sign
-    ("��" "/")    ; division sign
-    ("��" "*")    ; asterisk multiplication
-    ("��" "inf")  ; infinity symbol
-    ("��" "<=")
-    ("��" ">=")
-    ("��" "<=")
-    ("��" ">=")
-    ;; fractions
-    ("村" "(1:4)") ; 1/4
-    ("遜" "(1:2)") ; 1/2
-    ("他" "(3:4)") ; 3/4
-    ("��" "(1:3)") ; 1/3
-    ("��" "(2:3)") ; 2/3
-    ("��" "(1:5)") ; 1/5
-    ("��" "(2:5)") ; 2/5
-    ("��" "(3:5)") ; 3/5
-    ("��" "(4:5)") ; 4/5
-    ("��" "(1:6)") ; 1/6
-    ("��" "(5:6)") ; 5/6
-    ("��" "(1:8)") ; 1/8
-    ("��" "(3:8)") ; 3/8
-    ("��" "(5:8)") ; 5/8
-    ("��" "(7:8)") ; 7/8
-    ("��" "1:")    ; 1/...
-    ;; superscripts
-    ("��" "0")  ; 0
-    ("孫" "1")  ; 1
-    ("族" "2")  ; 2
-    ("続" "3")  ; 3
-    ("��" "4")  ; 4
-    ("��" "5")  ; 5
-    ("��" "6")  ; 6
-    ("��" "7")  ; 7
-    ("��" "8")  ; 8
-    ("��" "9")  ; 9
-    ("��" "+")  ; +
-    ("��" "-")  ; -
-    ("��" "(")  ; (
-    ("��" ")")  ; )
-    ("��" "n")  ; n
-    ("��" "i")) ; i
-  "A list whose elements (old new) indicate replacements to make
-in Calc algebraic input.")
-
-(defvar math-read-superscripts
-  "�安溝佳鰍�癌�汲�金�撃�呉�高�財�獅�盾�鐘�垂��" ; 0123456789+-()ni
-  "A string consisting of the superscripts allowed by Calc.")
-
-(defun math-read-preprocess-string (str)
-  "Replace some substrings of STR by Calc equivalents."
-  (setq str
-        (replace-regexp-in-string (concat "[" math-read-superscripts "]+")
-                                  "^(\\&)" str))
-  (let ((rep-list math-read-replacement-list))
-    (while rep-list
-      (setq str
-            (replace-regexp-in-string (nth 0 (car rep-list))
-                                      (nth 1 (car rep-list)) str))
-      (setq rep-list (cdr rep-list))))
-  str)
-
 (defun math-read-expr (math-exp-str)
   (let ((math-exp-pos 0)
 	(math-exp-old-pos 0)