|
version 1.3, 2004/07/16 16:54:51
|
version 1.4, 2016/07/15 04:32:00
|
|
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 |
| |
(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) ; 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)) |
| |
)) |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tools.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / reports