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 8615d9533192c025bf2b93a3fffb1ff486ce7dc2..34bd1cfbd838a7ea5a940fbc53543953f2bc456d 100644 (file)
--- 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))