This is the home page of the emacs lisp package
The package is used for doing multi-pair find/replace.
Here's a sample call for
(xah-replace-pairs-in-string "abcdef" [["a" "1"] ["b" "2"] ["c" "3"]]) ;; returns "123def"
You have a given region in a buffer. You want to do more than one pair of find/replace strings. For example:
The normal way to do find replace in a region is like this:
(defun replace-html-chars-region (begin end) "Replace “<” to “<” etc in region." (interactive "r") (save-restriction (narrow-to-region begin end) (goto-char (point-min)) (while (search-forward "&" nil t) (replace-match "&" nil t)) (goto-char (point-min)) (while (search-forward "<" nil t) (replace-match "<" nil t)) (goto-char (point-min)) (while (search-forward ">" nil t) (replace-match ">" nil t))))
It would be nice, if you can write it like this:
(defun replace-html-chars-region (begin end) (interactive "r") (replace-pairs-region begin end '( ["&" "&"] ["<" "<"] [">" ">"] )))
xah-replace-pairs.el solves the multi-pair replacement problem.
It implements these functions:
For each function, there's a plain text version and a regex version.
Each function also has a string and region version. The string version works on a given string, the region version works on a region in buffer.
If find/replace pairs is done one after one, then you may end up with a substring that's not in the original input string nor in any of the find/replace pairs. For example.
xah-replace-pairs-region will not have the feedback loop problem. It guarantees that a replacement is done IF AND ONLY IF the original input string contains a substring in one of your find string.
Suppose you are working on a HTML tutorial that discusses HTML entities. Suppose the file contains this string:
use “&copy;” for ©
The intended display is
use “©” for ©.
and you want the HTML source code to be:
use “&copy;” for ©
However, if you are sequentially replacing each entities, the
& part will become
© becomes just
©, so you got
use “©” for © WRONG!
For many examples of using multi-pair find/replace, See: Emacs Lisp Multi-Pair Find/Replace Applications.
back to Xah Emacs Packages