From 72729014fcad377cbcdb2c5a59eb8b37ecf2a020 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 11 Nov 2019 10:29:09 -0800 Subject: 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. --- lisp/international/titdic-cnv.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'lisp/international') 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)) -- cgit v1.2.1