# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1302257587 -10800
# Node ID c00e41cc019ef9cd8779c05901ced07fb3a9f4d5
# Parent  a64819b490c31965f418a4a6962925a78ce9cee1
text2html

diff -r a64819b490c3 -r c00e41cc019e .emacs-my
--- a/.emacs-my	Thu Apr 07 18:37:49 2011 +0300
+++ b/.emacs-my	Fri Apr 08 13:13:07 2011 +0300
@@ -1454,6 +1454,19 @@
 ;;; ----------------------------------------------------------------
 (message "html")
 
+(defun text2html (start end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region start end)
+      (goto-char (point-min))
+      (replace-string "&" "&amp;")
+      (goto-char (point-min))
+      (replace-string "<" "&lt;")
+      (goto-char (point-min))
+      (replace-string ">" "&gt;")
+      )))
+
 ;;; ----------------------------------------------------------------
 (message "nxml")