Add exception for italics followed by en dash

master
trémeur 2 years ago
parent 446a0f72fa
commit d569665412

@ -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 wont 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))

Loading…
Cancel
Save