Mercurial > emacs

comparison lisp/calc/calc-aent.el @ 87438:3c99a3e95b64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-remove-percentsigns): Change placeholder for percent signs.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 27 Dec 2007 17:33:36 +0000
parents 87a6da15351c
children bb9a0a3cc5f2 56a72e2bd635
comparison
equal deleted inserted replaced
87437:f18b45437f89 87438:3c99a3e95b64
1018 (math-remove-dashes 1018 (math-remove-dashes
1019 (concat (math-match-substring x 1) "#" (math-match-substring x 2))) 1019 (concat (math-match-substring x 1) "#" (math-match-substring x 2)))
1020 x)) 1020 x))
1021 1021
1022 (defun math-remove-percentsigns (x) 1022 (defun math-remove-percentsigns (x)
1023 (if (string-match "^%" x)
1024 (setq x (concat "I#'" (substring x 1))))
1025 (if (string-match "\\`\\(.*\\)%\\(.*\\)\\'" x) 1023 (if (string-match "\\`\\(.*\\)%\\(.*\\)\\'" x)
1026 (math-remove-percentsigns 1024 (math-remove-percentsigns
1027 (concat (math-match-substring x 1) "'" (math-match-substring x 2))) 1025 (concat (math-match-substring x 1) "o'o" (math-match-substring x 2)))
1028 x)) 1026 x))
1029 1027
1030 (defun math-restore-dashes (x) 1028 (defun math-restore-dashes (x)
1031 (if (string-match "\\`\\(.*\\)[#_]\\(.*\\)\\'" x) 1029 (if (string-match "\\`\\(.*\\)[#_]\\(.*\\)\\'" x)
1032 (math-restore-dashes 1030 (math-restore-dashes