version 1.5, 2016/08/09 04:04:50
|
version 1.9, 2016/12/15 04:53:32
|
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)) |
|
(beginning-of-buffer) |
(while (search-forward "»" nil t) |
(while (search-forward "»" nil t) |
(replace-match "»" nil t)) |
(replace-match "»" nil t)) |
|
(beginning-of-buffer) |
(while (search-forward "–" nil t) |
(while (search-forward "–" nil t) |
(replace-match "–" nil t)) |
(replace-match "–" nil t)) |
|
(beginning-of-buffer) |
|
(while (search-forward "—" nil t) |
|
(replace-match "—" nil t)) |
|
(beginning-of-buffer) |
(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) |
|
(while (search-forward "є" nil t) ; YE |
|
(replace-match "є" nil t)) |
|
(beginning-of-buffer) |
(while (search-forward "і" nil t) ; i |
(while (search-forward "і" nil t) ; i |
(replace-match "і" nil t)) |
(replace-match "і" nil t)) |
(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)) |
)) |
)) |