# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1308862447 -10800
# Node ID 96646e9ce5bb951be73e8fb1f70a36f76472828d
# Parent  f08ea38190d6d1a00c1cb05618b52089c72c8201# Parent  9639cfe1e0b262821f2eb8c9471b44dc9745aad3
merged

diff -r 9639cfe1e0b2 -r 96646e9ce5bb .emacs-my
--- a/.emacs-my	Thu Jun 23 23:45:30 2011 +0300
+++ b/.emacs-my	Thu Jun 23 23:54:07 2011 +0300
@@ -1496,7 +1496,7 @@
 ;;; ----------------------------------------------------------------
 (message "html")
 
-(defun text2html (start end)
+(defun html-charref-escape-region (start end)
   (interactive "r")
   (save-excursion
     (save-restriction
@@ -1509,6 +1509,45 @@
       (replace-string ">" "&gt;")
       )))
 
+(defun html-charref-from-char (char)
+  (format "&#%d;" char)
+  )
+
+(defun html-charref-from-string (string)
+  (let ((res ""))
+    (mapc
+     (lambda (char) (setq res (concat res (html-charref-from-char char))))
+     string)
+    res
+    ) )
+
+(defun html-charref-escape-region2 (begin end &optional prefix)
+  (interactive "r\nP")
+  (if prefix
+      (save-excursion
+        (goto-char begin)
+        (insert (html-charref-from-string (delete-and-extract-region begin end))))
+    (html-charref-from-string (buffer-substring begin end))
+    ))
+
+(defun html-charref-to-string (html)
+  (let ((res "") (pos 0))
+    (while (string-match "&#\\([[:digit:]]+\\);" html pos)
+      (setq res (concat res (string (string-to-int (substring html (match-beginning 1) (match-end 1)) 10))))
+      (setq pos (match-end 0))
+     )
+    res
+    ) )
+
+(defun html-charref-unescape-region (begin end &optional prefix)
+  (interactive "r\nP")
+  (if prefix
+      (save-excursion
+        (goto-char begin)
+        (insert (html-charref-to-string (delete-and-extract-region begin end))))
+    (html-charref-to-string (buffer-substring begin end))
+    ))
+
 ;;; ----------------------------------------------------------------
 (message "nxml")
 
@@ -1571,6 +1610,7 @@
 (setq auto-save-default t)
 ;; If nil autosave to different than original to buffer file.
 (setq auto-save-visited-file-name nil)
+(setq auto-save-interval 300)
 ;; Note: if you kill unsaved file auto save file not deleted.
 (setq delete-auto-save-files t)