diff options
| author | Jay Belanger | 2007-12-27 17:32:59 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-12-27 17:32:59 +0000 |
| commit | 88cf3347895cd2af986ab73c77b96abccfb153c9 (patch) | |
| tree | 254dc63896f244ffe4bdadc6322d76c944b9dd44 | |
| parent | 9580f1fd718feaeeccd7662a4cd379215d0b4415 (diff) | |
| download | emacs-88cf3347895cd2af986ab73c77b96abccfb153c9.tar.gz emacs-88cf3347895cd2af986ab73c77b96abccfb153c9.zip | |
(math-to-percentsigns): Change placeholder for percent signs.
| -rw-r--r-- | lisp/calc/calccomp.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el index 0f913ea0cb4..2b81363af47 100644 --- a/lisp/calc/calccomp.el +++ b/lisp/calc/calccomp.el | |||
| @@ -945,10 +945,8 @@ | |||
| 945 | x)) | 945 | x)) |
| 946 | 946 | ||
| 947 | (defun math-to-percentsigns (x) | 947 | (defun math-to-percentsigns (x) |
| 948 | (if (string-match "^I#'" x) | 948 | (if (string-match "\\`\\(.*\\)o'o\\(.*\\)\\'" x) |
| 949 | (setq x (concat "%" (substring x 3)))) | 949 | (math-to-underscores |
| 950 | (if (string-match "\\`\\(.*\\)'\\(.*\\)\\'" x) | ||
| 951 | (math-to-percentsigns | ||
| 952 | (concat (math-match-substring x 1) "%" (math-match-substring x 2))) | 950 | (concat (math-match-substring x 1) "%" (math-match-substring x 2))) |
| 953 | x)) | 951 | x)) |
| 954 | 952 | ||