Add exception for italics followed by en dash

This commit is contained in:
trémeur 2023-01-22 22:01:53 +00:00
parent 446a0f72fa
commit d569665412

View file

@ -7,6 +7,9 @@
(while (re-search-forward "" nil t)
(replace-match " –"))
(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)
(replace-match ""))
(goto-char (region-beginning))