--- a/.emacs-my	Thu May 03 11:52:34 2018 +0300
+++ b/.emacs-my	Tue May 08 02:00:23 2018 +0300
@@ -3508,6 +3508,7 @@
   (goto-char (point-min))
   (while (re-search-forward ">[ \t\n\r]+<" nil t)
     (replace-match ">\n<"))
+  (goto-char (point-min))
   (while (re-search-forward "><" nil t)
     (replace-match ">\n<"))
   (indent-region (point-min) (point-max))