reports/tools.el - diff

Return to tools.el CVS log

Up to [Local Repository] / reports

version 1.5, 2016/08/09 04:04:50	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))
Line 26	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))
))	))