# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 871988320 0
# Node ID 9c5fdc90d3c624fe32550c0590e3bfc55665e580
# Parent  f8074abd4bec61c66897d2be4b5af56ee51eb46c
(tit-process-body): Handle `\' used
for quoting the following digits correctly.

diff -r f8074abd4bec -r 9c5fdc90d3c6 lisp/international/titdic-cnv.el
--- a/lisp/international/titdic-cnv.el	Tue Aug 19 10:58:10 1997 +0000
+++ b/lisp/international/titdic-cnv.el	Tue Aug 19 10:58:40 1997 +0000
@@ -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 "\"")