diff options
| -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 | ||