(math-to-percentsigns): New function.

(math-compose-var): Handle variables with percent signs.
(math-compose-expr): Handle function names with percent signs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e98c4bf2fcea29f6b117ee35c7c5a1408400d8b0..392eaa6d609b6cb1a083fe4d7354f9569db77a2f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2007-12-26  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc.el (calc-lang-allow-percentsigns): New variable.
+
+       * calc/calc-lang.el (calc-lang-allow-percentsigns): Declare as
+       a variable.
+
+       * calc/calccomp.el (math-to-percentsigns): New function.
+       (math-compose-var): Handle variables with percent signs.
+       (math-compose-expr): Handle function names with percent signs.
+
+       * calc/calc-aent.el (math-to-percentsigns): Declare as function.
+       (math-read-exprs): Handle percent signs in languages that
+       allow them.
+       (math-restore-underscores): Remove function.
+       (math-remove-percentsigns, math-restore-placeholders):
+       New functions.
+
 2007-12-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
        * ps-print.el (ps-print-preprint-region): Use `region-active-p' instead

diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index dd59b36688176f293570c36296481c34655b61a7..0f913ea0cb44d19895966b23ce41cf0266c0280c 100644 (file)
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -71,7 +71,7 @@
 (defvar math-comp-comma)
 
 (defun math-compose-var (a)
-  (let (v)
+  (let (v sn)
     (if (and math-compose-hash-args
              (let ((p calc-arg-values))
                (setq v 1)
@@ -82,9 +82,12 @@
         (if (eq math-compose-hash-args 1)
             "#"
           (format "#%d" v))
+      (setq sn (symbol-name (nth 1 a)))
+      (if (memq calc-language calc-lang-allow-percentsigns)
+          (setq sn (math-to-percentsigns sn)))
       (if (memq calc-language calc-lang-allow-underscores)
-          (math-to-underscores (symbol-name (nth 1 a)))
-        (symbol-name (nth 1 a))))))
+          (setq sn (math-to-underscores sn)))
+      sn)))
 
 (defun math-compose-expr (a prec)
   (let ((math-compose-level (1+ math-compose-level))
@@ -805,6 +808,8 @@
                                  (symbol-name func))
                                 (math-match-substring (symbol-name func) 1)
                               (symbol-name func))))
+                (if (memq calc-language calc-lang-allow-percentsigns)
+                    (setq func (math-to-percentsigns func)))
                 (if (memq calc-language calc-lang-allow-underscores)
                     (setq func (math-to-underscores func)))
                  (if (setq spfn (get calc-language 'math-func-formatter))
@@ -939,6 +944,14 @@
        (concat (math-match-substring x 1) "_" (math-match-substring x 2)))
     x))
 
+(defun math-to-percentsigns (x)
+  (if (string-match "^I#'" x)
+      (setq x (concat "%" (substring x 3))))
+  (if (string-match "\\`\\(.*\\)'\\(.*\\)\\'" x)
+      (math-to-percentsigns
+       (concat (math-match-substring x 1) "%" (math-match-substring x 2)))
+    x))
+
 (defun math-tex-expr-is-flat (a)
   (or (Math-integerp a)
       (memq (car a) '(float var))