# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1506234212 -10800
# Node ID 14739033d89f24f5ef9909eb4893abeb6a4cbf6a
# Parent  35dbe903d7e0129b4b650b137c858eddcbf034e9
Prevent error that character not found.

diff -r 35dbe903d7e0 -r 14739033d89f .emacs-my
--- a/.emacs-my	Thu Sep 21 19:50:19 2017 +0300
+++ b/.emacs-my	Sun Sep 24 09:23:32 2017 +0300
@@ -3333,11 +3333,11 @@
     (save-restriction
       (narrow-to-region start end)
       (goto-char (point-min))
-      (while (search-forward "&") (replace-match "&amp;"))
+      (while (search-forward "&" nil t) (replace-match "&amp;"))
       (goto-char (point-min))
-      (while (search-forward "<") (replace-match "&lt;"))
+      (while (search-forward "<" nil t) (replace-match "&lt;"))
       (goto-char (point-min))
-      (while (search-forward ">") (replace-match "&gt;"))
+      (while (search-forward ">" nil t) (replace-match "&gt;"))
       )))
 
 (defun my-html-charref-from-char (char)