18 lines
606 B
Plaintext
18 lines
606 B
Plaintext
|
#contributor: Xah Lee (XahLee.org)
|
||
|
|
#name: find and replace on region
|
||
|
|
# key: x-find-replace
|
||
|
|
# --
|
||
|
|
(defun replace-html-chars-region (start end)
|
||
|
|
"Replace “<” to “<” and other chars in HTML.
|
||
|
|
This works on the current region."
|
||
|
|
(interactive "r")
|
||
|
|
(save-restriction
|
||
|
|
(narrow-to-region start 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))
|
||
|
|
)
|
||
|
|
)
|