version 1.3, 2004/07/16 16:54:51
|
version 1.6, 2016/08/10 03:37:18
|
Line 7
|
Line 7
|
(insert " ")) |
(insert " ")) |
(beginning-of-line)) |
(beginning-of-line)) |
|
|
|
(defun convert-utf-to-html-entites () |
|
"Convert utf entities to html" |
|
(interactive) |
|
(save-excursion |
|
(setq case-fold-search nil) |
|
(beginning-of-buffer) |
|
(while (search-forward "«" nil t) |
|
(replace-match "«" nil t)) |
|
(while (search-forward "»" nil t) |
|
(replace-match "»" nil t)) |
|
(while (search-forward "–" nil t) |
|
(replace-match "–" nil t)) |
|
(while (search-forward "Є" nil t) ; YE |
|
(replace-match "Є" nil t)) |
|
(beginning-of-buffer) |
|
(while (search-forward "і" nil t) ; i |
|
(replace-match "і" nil t)) |
|
(beginning-of-buffer) |
|
(while (search-forward "ї" nil t) ; yi |
|
(replace-match "ї" nil t)) |
|
)) |