diff options
author | Jay Belanger <[email protected]> | 2007-12-27 17:35:59 +0000 |
---|---|---|
committer | Jay Belanger <[email protected]> | 2007-12-27 17:35:59 +0000 |
commit | c0db575568c7ad9b31279481a8d53b6f52cb1438 (patch) | |
tree | a0231aaf0ed3d2e65faf491f2fb59d49f30f4ab6 /lisp/calc/calc-aent.el | |
parent | 88cf3347895cd2af986ab73c77b96abccfb153c9 (diff) |
(math-remove-percentsigns): Change placeholder for percent signs.
Diffstat (limited to 'lisp/calc/calc-aent.el')
-rw-r--r-- | lisp/calc/calc-aent.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index 712acfa686..5b93a54439 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el @@ -1020,11 +1020,9 @@ in Calc algebraic input.") x)) (defun math-remove-percentsigns (x) - (if (string-match "^%" x) - (setq x (concat "I#'" (substring x 1)))) (if (string-match "\\`\\(.*\\)%\\(.*\\)\\'" x) (math-remove-percentsigns - (concat (math-match-substring x 1) "'" (math-match-substring x 2))) + (concat (math-match-substring x 1) "o'o" (math-match-substring x 2))) x)) (defun math-restore-dashes (x) |