From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 17 Oct 2020 10:17:10 +0000 (+0200)
Subject: Make woman ignore the new groff kerning operators
X-Git-Tag: emacs-28.0.90~5584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bee50664ae33deba3fe2284748f1e5a1622a1bb6;p=emacs.git

Make woman ignore the new groff kerning operators

* lisp/woman.el (woman-decode-region): Ignore the new groff
kerning operators (bug#42219).
---

diff --git a/lisp/woman.el b/lisp/woman.el
index eeacceadc27..52f610b569f 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -2289,6 +2289,12 @@ Currently set only from \\='\\\" t in the first line of the source file.")
     (setq fill-column woman-fill-column
 	  tab-width woman-tab-width)
 
+    ;; Ignore the \, and \/ kerning operators.  See
+    ;; https://www.gnu.org/software/groff/manual/groff.html#Ligatures-and-Kerning
+    (goto-char (point-min))
+    (while (re-search-forward "\\\\,\\|\\\\/" nil t)
+      (replace-match "" t t))
+
     ;; Hide unpaddable and digit-width spaces \(space) and \0:
     (goto-char from)
     (while (re-search-forward "\\\\[ 0]" nil t)