Ellipsis wrangling
This commit is contained in:
parent
16688359e5
commit
0d0b28b3f8
1 changed files with 3 additions and 0 deletions
|
@ -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))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue