Mercurial > emacs
changeset 87437:f18b45437f89
(math-to-percentsigns): Change placeholder for percent signs.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 27 Dec 2007 17:32:59 +0000 |
| parents | a5a588610e41 |
| children | 3c99a3e95b64 |
| files | lisp/calc/calccomp.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calccomp.el Thu Dec 27 16:17:17 2007 +0000 +++ b/lisp/calc/calccomp.el Thu Dec 27 17:32:59 2007 +0000 @@ -945,10 +945,8 @@ x)) (defun math-to-percentsigns (x) - (if (string-match "^I#'" x) - (setq x (concat "%" (substring x 3)))) - (if (string-match "\\`\\(.*\\)'\\(.*\\)\\'" x) - (math-to-percentsigns + (if (string-match "\\`\\(.*\\)o'o\\(.*\\)\\'" x) + (math-to-underscores (concat (math-match-substring x 1) "%" (math-match-substring x 2))) x))