lotsa changes and inclusion of elpy
[emacs.git] / .emacs.d / elisp / yasnippet / snippets / emacs-lisp-mode / x-find-replace
1 #contributor: Xah Lee (XahLee.org)
2 #name: find and replace on region
3 # key: x-find-replace
4 # --
5 (defun replace-html-chars-region (start end)
6 "Replace “<” to “&lt;” and other chars in HTML.
7 This works on the current region."
8 (interactive "r")
9 (save-restriction
10 (narrow-to-region start end)
11 (goto-char (point-min))
12 (while (search-forward "&" nil t) (replace-match "&amp;" nil t))
13 (goto-char (point-min))
14 (while (search-forward "<" nil t) (replace-match "&lt;" nil t))
15 (goto-char (point-min))
16 (while (search-forward ">" nil t) (replace-match "&gt;" nil t))
17 )
18 )