From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 11 Nov 2019 18:29:09 +0000 (-0800)
Subject: Fix glitch in generating cxterm doc strings
X-Git-Tag: emacs-27.0.90~660
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72729014fcad377cbcdb2c5a59eb8b37ecf2a020;p=emacs.git

Fix glitch in generating cxterm doc strings

* lisp/international/titdic-cnv.el (tit-process-header):
In generated doc strings, escape \, ", ', and ` properly.
Currently only ' appears but we might as well future-proof this.
---

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 8615d953319..34bd1cfbd83 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -283,7 +283,14 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲, 4:去聲,
 	    (pos (point)))
 	(cond ((= ch ?C)		; COMMENT
 	       (cond ((looking-at "COMMENT")
-		      (let ((pos (match-end 0)))
+		      (let ((pos (match-end 0))
+			    (to (progn (end-of-line) (point))))
+			(goto-char pos)
+			(while (re-search-forward "[\\\"]" to t)
+			  (replace-match "\\\\\\&"))
+			(goto-char pos)
+			(while (re-search-forward "['`]" to t)
+			  (replace-match "\\\\\\\\=\\&"))
 			(end-of-line)
 			(setq tit-comments
 			      (cons (buffer-substring-no-properties pos (point))