diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-12-27 17:33:36 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-12-27 17:33:36 +0000 |
| commit | 516ae1421bc91c4823a14f467279ba4df798087e (patch) | |
| tree | c310580d150c832a3644ee08211c5ab65dcdc651 | |
| parent | cc9d2f0909011d064c353db74ca53fbde35ad1cf (diff) | |
| download | emacs-516ae1421bc91c4823a14f467279ba4df798087e.tar.gz | |
(math-remove-percentsigns): Change placeholder for percent signs.
| -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 712acfa6867..5b93a544397 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) |