diff options
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/calc/calc-aent.el | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8c39318b32..45adb3668b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-12-27 Jay Belanger <[email protected]> + + * calc/calc-aent.el (math-remove-percentsigns): + * calc/calccomp.el (math-to-percentsigns): Change placeholder + for percent signs. + 2007-12-27 Eric S. Raymond <[email protected]> * 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 712acfa686..5b93a54439 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) |