changeset 19431:9c5fdc90d3c6

(tit-process-body): Handle `\' used for quoting the following digits correctly.
author Kenichi Handa <handa@m17n.org>
date Tue, 19 Aug 1997 10:58:40 +0000
parents f8074abd4bec
children 4492653b04e8
files lisp/international/titdic-cnv.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 "\"")