From e259215b5da4117cf103f17b12ee3cbfae63b9e9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 16 Sep 1997 01:57:52 +0000 Subject: (tit-process-header): Convert argument of KEYPROMPT if it contains an escape. (tit-process-body): Handle trailing whitespace and multiple spaces between phrases. --- lisp/international/titdic-cnv.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index f80925325cd..9a4f6ddfbcc 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -176,6 +176,10 @@ (cond ((looking-at "KEYPROMPT(\\(.*\\)):[ \t]*") (let ((key-char (match-string 1))) (goto-char (match-end 0)) + (if (string-match "\\\\[0-9]+" key-char) + (setq key-char + (car (read-from-string (format "\"%s\"" + key-char))))) (setq tit-keyprompt (cons (cons key-char (tit-read-key-value)) tit-keyprompt)))))))) @@ -320,17 +324,18 @@ (if tit-phrase (progn ;; PHRASE1 PHRASE2 ... => ["PHRASE1" "PHRASE2" ...] - (insert "[\"") - (skip-chars-forward "^ \t\n") + (insert "[") + (skip-chars-forward " \t") (while (not (eolp)) (insert "\"") - (forward-char 1) + (skip-chars-forward "^ \t\n") (insert "\"") - (skip-chars-forward "^ \t\n")) - (insert "\"])")) + (skip-chars-forward " \t")) + (insert "])")) ;; TRANSLATIONS => "TRANSLATIONS" (insert "\"") (end-of-line) + (skip-chars-backward " \t") (insert "\")")) (forward-line 1)))) (insert ")\n"))) -- cgit v1.2.1