(tit-process-body): Handle `\' used

for quoting the following digits correctly.

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 "\"")