From c0db575568c7ad9b31279481a8d53b6f52cb1438 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 27 Dec 2007 17:35:59 +0000 Subject: [PATCH] (math-remove-percentsigns): Change placeholder for percent signs. --- lisp/ChangeLog | 6 ++++++ lisp/calc/calc-aent.el | 4 +--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8c39318b324..45adb3668b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-12-27 Jay Belanger + + * calc/calc-aent.el (math-remove-percentsigns): + * calc/calccomp.el (math-to-percentsigns): Change placeholder + for percent signs. + 2007-12-27 Eric S. Raymond * vc.el (vc-dired-ignorable-p, vc-dired-hook): Speed optimization; 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) -- 2.39.2