diff options
Diffstat (limited to 'lisp')
| -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:去聲, | |||
| 283 | (pos (point))) | 283 | (pos (point))) |
| 284 | (cond ((= ch ?C) ; COMMENT | 284 | (cond ((= ch ?C) ; COMMENT |
| 285 | (cond ((looking-at "COMMENT") | 285 | (cond ((looking-at "COMMENT") |
| 286 | (let ((pos (match-end 0))) | 286 | (let ((pos (match-end 0)) |
| 287 | (to (progn (end-of-line) (point)))) | ||
| 288 | (goto-char pos) | ||
| 289 | (while (re-search-forward "[\\\"]" to t) | ||
| 290 | (replace-match "\\\\\\&")) | ||
| 291 | (goto-char pos) | ||
| 292 | (while (re-search-forward "['`]" to t) | ||
| 293 | (replace-match "\\\\\\\\=\\&")) | ||
| 287 | (end-of-line) | 294 | (end-of-line) |
| 288 | (setq tit-comments | 295 | (setq tit-comments |
| 289 | (cons (buffer-substring-no-properties pos (point)) | 296 | (cons (buffer-substring-no-properties pos (point)) |