Ellipsis wrangling

master
trémeur 2 years ago
parent 16688359e5
commit 0d0b28b3f8

@ -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…
Cancel
Save