diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-19 10:58:40 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-19 10:58:40 +0000 |
| commit | 9565dc14a744915f1ff9839c050524d637be6f11 (patch) | |
| tree | 18bb4d09be57da3e1a592cb7c7eb12f6100ca169 | |
| parent | b53830c46822bbf3ee6542df166c5c84e46e4026 (diff) | |
| download | emacs-9565dc14a744915f1ff9839c050524d637be6f11.tar.gz | |
(tit-process-body): Handle `\' used
for quoting the following digits correctly.
| -rw-r--r-- | lisp/international/titdic-cnv.el | 4 |
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 "\"") |