|
|
@ -7,6 +7,9 @@
|
|
|
|
(while (re-search-forward " –" nil t)
|
|
|
|
(while (re-search-forward " –" nil t)
|
|
|
|
(replace-match " –"))
|
|
|
|
(replace-match " –"))
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
|
|
|
|
(while (re-search-forward "/ –" nil t)
|
|
|
|
|
|
|
|
(replace-match "/ –")) ;; italics won’t work otherwise
|
|
|
|
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
(while (re-search-forward " \\.\\.\\." nil t)
|
|
|
|
(while (re-search-forward " \\.\\.\\." nil t)
|
|
|
|
(replace-match " …"))
|
|
|
|
(replace-match " …"))
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
(goto-char (region-beginning))
|
|
|
|