Mercurial > emacs
changeset 18796:ab40b57484c1
(tit-process-body): Ignore vacant entries.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 15 Jul 1997 08:24:47 +0000 |
| parents | 3446ea06d63f |
| children | e9aa787f0154 |
| files | lisp/international/titdic-cnv.el |
| diffstat | 1 files changed, 27 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/titdic-cnv.el Tue Jul 15 08:23:58 1997 +0000 +++ b/lisp/international/titdic-cnv.el Tue Jul 15 08:24:47 1997 +0000 @@ -272,7 +272,9 @@ (insert "(quail-define-rules\n") (while (null (eobp)) (if (or (= (following-char) ?#) (= (following-char) ?\n)) - (insert ";; ") + (progn + (insert ";; ") + (forward-line 1)) (insert "(\"") (setq pos (point)) (skip-chars-forward "^ \t") @@ -303,24 +305,32 @@ (delete-region (match-beginning 1) (match-end 1))) )) - ;; Modify the current line to meet the syntax of Quail package. (goto-char pos) - (if tit-phrase + (if (eolp) + ;; This entry contains no translations. Let's ignore it. (progn - ;; PHRASE1 PHRASE2 ... => ["PHRASE1" "PHRASE2" ...] - (insert "[\"") - (skip-chars-forward "^ \t\n") - (while (not (eolp)) - (insert "\"") - (forward-char 1) - (insert "\"") - (skip-chars-forward "^ \t\n")) - (insert "\"])")) - ;; TRANSLATIONS => "TRANSLATIONS" - (insert "\"") - (end-of-line) - (insert "\")"))) - (forward-line 1)) + (beginning-of-line) + (setq pos (point)) + (forward-line 1) + (delete-region pos (point))) + + ;; Modify the current line to meet the syntax of Quail package. + (if tit-phrase + (progn + ;; PHRASE1 PHRASE2 ... => ["PHRASE1" "PHRASE2" ...] + (insert "[\"") + (skip-chars-forward "^ \t\n") + (while (not (eolp)) + (insert "\"") + (forward-char 1) + (insert "\"") + (skip-chars-forward "^ \t\n")) + (insert "\"])")) + ;; TRANSLATIONS => "TRANSLATIONS" + (insert "\"") + (end-of-line) + (insert "\")")) + (forward-line 1)))) (insert ")\n"))) ;;;###autoload