diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-11-11 10:29:09 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-11-11 10:32:52 -0800 |
| commit | 72729014fcad377cbcdb2c5a59eb8b37ecf2a020 (patch) | |
| tree | 1cf267f78c2c12db72e76d5f987b8c18f908072e /lisp/international | |
| parent | 292f73fc729cb12350814a4ba361253c33b4f59d (diff) | |
| download | emacs-72729014fcad377cbcdb2c5a59eb8b37ecf2a020.tar.gz | |
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.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/titdic-cnv.el | 9 |
1 files changed, 8 insertions, 1 deletions
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)) |