diff options
| author | Alexander Sulfrian <alexander@sulfrian.net> | 2009-10-22 05:30:58 +0200 |
|---|---|---|
| committer | Alexander Sulfrian <alexander@sulfrian.net> | 2009-10-22 05:30:58 +0200 |
| commit | c13334d651b13d8b047cb3dc35ad3e1ef239013f (patch) | |
| tree | ce0361f3bbbe502af91b33f896644d5695680223 /emacs.d/snippets/text-mode/emacs-lisp-mode/find-replace | |
| parent | ff21663ded2283850f175e6de619feb5da91fef4 (diff) | |
| download | dotfiles-c13334d651b13d8b047cb3dc35ad3e1ef239013f.tar.gz dotfiles-c13334d651b13d8b047cb3dc35ad3e1ef239013f.tar.xz dotfiles-c13334d651b13d8b047cb3dc35ad3e1ef239013f.zip | |
added snippets for loading with module from dotfiles
Diffstat (limited to '')
| -rw-r--r-- | emacs.d/snippets/text-mode/emacs-lisp-mode/find-replace | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/emacs.d/snippets/text-mode/emacs-lisp-mode/find-replace b/emacs.d/snippets/text-mode/emacs-lisp-mode/find-replace new file mode 100644 index 0000000..cefcf51 --- /dev/null +++ b/emacs.d/snippets/text-mode/emacs-lisp-mode/find-replace @@ -0,0 +1,17 @@ +#name : find and replace on region +#contributor : Xah Lee +# -- +(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)) + ) + ) |