|
|
@ -29,6 +29,9 @@
|
|
|
|
(while (re-search-forward "'" nil t)
|
|
|
|
(while (re-search-forward "'" nil t)
|
|
|
|
(replace-match "’"))
|
|
|
|
(replace-match "’"))
|
|
|
|
(goto-char (point-min))
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
|
|
(while (re-search-forward "“ …" nil t)
|
|
|
|
|
|
|
|
(replace-match "“…"))
|
|
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
(while (re-search-forward " +" nil t)
|
|
|
|
(while (re-search-forward " +" nil t)
|
|
|
|
(replace-match " "))
|
|
|
|
(replace-match " "))
|
|
|
|
(goto-char (point-min))
|
|
|
|
(goto-char (point-min))
|
|
|
|