mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-16 09:50:25 +00:00
Code Issues Releases Activity

(tit-process-body): Handle `\' used

Browse Source 
for quoting the following digits correctly.
This commit is contained in:
Kenichi Handa 1997-08-19 10:58:40 +00:00
parent 1dcf3e0f96
commit c374d5edd9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/international/titdic-cnv.el
View File

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