Stop line breaks between en dashes and closing quote marks in fic PDFs

4 months ago · 2d7b1bfe55
parent f4a7e96aa2
commit 2d7b1bfe55
1 changed files with 3 additions and 0 deletions
--- a/custom/fic.el
+++ b/custom/fic.el
@ -147,6 +147,9 @@
      (goto-char (point-min))
      (while (re-search-forward "label{\\(.*\\)}\n«~\\([A-Z]\\)\\([a-z]*\\)" nil t)
 	(replace-match "label{\\1}\n\\\\lettrine{«~\\2}{\\3}"))
+      (goto-char (point-min))
+      (while (re-search-forward "~–”" nil t)
+        (replace-match "\\\\mbox{~–”}"))
      (if ffx
 	  (progn
 	    (goto-char (point-min))