Remove kerning escapes in woman mode

* lisp/woman.el (woman-decode-region): Remove kerning escapes
(bug#53770).

Copyright-paperwork-exempt: yes
This commit is contained in:
Brendan O'Dea 2022-02-05 07:51:03 +01:00 committed by Lars Ingebrigtsen
parent 72a3bbf27e
commit a8de2e20e0

View file

@ -2280,9 +2280,9 @@ Currently set only from \\='\\\" t in the first line of the source file.")
(replace-match woman-unpadded-space-string t t))
;; Discard optional hyphen \%; concealed newlines \<newline>;
;; point-size change function \sN,\s+N, \s-N:
;; kerning \/, \,; point-size change function \sN,\s+N, \s-N:
(goto-char from)
(while (re-search-forward "\\\\\\([%\n]\\|s[-+]?[0-9]+\\)" nil t)
(while (re-search-forward "\\\\\\([%\n/,]\\|s[-+]?[0-9]+\\)" nil t)
(woman-delete-match 0))
;; BEWARE: THIS SHOULD PROBABLY ALL BE DONE MUCH LATER!!!!!