reports/tools.el - diff

Return to tools.el CVS log

Up to [Local Repository] / reports

version 1.4, 2016/07/15 04:32:00	version 1.7, 2016/08/23 04:03:28
Line 11	Line 11
"Convert utf entities to html"	"Convert utf entities to html"
(interactive)	(interactive)
(save-excursion	(save-excursion
	(setq case-fold-search nil)
(beginning-of-buffer)	(beginning-of-buffer)
(while (search-forward "«" nil t)	(while (search-forward "«" nil t)
(replace-match "«" nil t))	(replace-match "«" nil t))
(while (search-forward "»" nil t)	(while (search-forward "»" nil t)
(replace-match "»" nil t))	(replace-match "»" nil t))
	(while (search-forward "–" nil t)
	(replace-match "–" nil t))
(while (search-forward "Є" nil t) ; YE	(while (search-forward "Є" nil t) ; YE
(replace-match "Є" nil t))	(replace-match "Є" nil t))
(beginning-of-buffer)	(beginning-of-buffer)
Line 24	Line 27
(beginning-of-buffer)	(beginning-of-buffer)
(while (search-forward "ї" nil t) ; yi	(while (search-forward "ї" nil t) ; yi
(replace-match "ї" nil t))	(replace-match "ї" nil t))
	(beginning-of-buffer)
	(while (search-forward "І" nil t) ; yi
	(replace-match "І" nil t))
))	))