From c374d5edd9087ca2f52e60530eb4d68bacc40ac9 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 19 Aug 1997 10:58:40 +0000
Subject: [PATCH] (tit-process-body): Handle `\' used for quoting the following
 digits correctly.

---
 lisp/international/titdic-cnv.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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