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