Mercurial > hg > dotemacs
annotate elpa/yasnippet-0.9.1/snippets/emacs-lisp-mode/x-find-replace.yasnippet @ 141:ee4b6191b61e
packages: update yasnippet and deps
| author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
|---|---|
| date | Wed, 20 Apr 2016 13:40:19 -0400 |
| parents | elpa/yasnippet-0.8.0/snippets/emacs-lisp-mode/x-find-replace.yasnippet@156cbb54f344 |
| children |
| rev | line source |
|---|---|
| 98 | 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 “<” and other chars in HTML. | |
| 7 This works on the current region." | |
| 8 (interactive "r") | |
|
141
ee4b6191b61e
packages: update yasnippet and deps
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
98
diff
changeset
|
9 (save-restriction |
| 98 | 10 (narrow-to-region start end) |
| 11 (goto-char (point-min)) | |
| 12 (while (search-forward "&" nil t) (replace-match "&" nil t)) | |
| 13 (goto-char (point-min)) | |
| 14 (while (search-forward "<" nil t) (replace-match "<" nil t)) | |
| 15 (goto-char (point-min)) | |
| 16 (while (search-forward ">" nil t) (replace-match ">" nil t)) | |
| 17 ) | |
| 18 ) |