diff options
Diffstat (limited to 'lisp/international/titdic-cnv.el')
-rw-r--r-- | lisp/international/titdic-cnv.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index a92157744e9..f80925325cd 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -281,7 +281,9 @@ (setq keyseq (concat (regexp-quote (buffer-substring pos (point))) "[ \t]+")) (save-excursion - (while (re-search-backward "[\\\"]" pos t) + ;; Escape `"' and `\' which is not used for quoting the + ;; following octal digits. + (while (re-search-backward "\"\\|\\\\[^0-9]" pos t) (insert "\\") (forward-char -1))) (insert "\"") |