(tit-process-body): Ignore vacant entries.

1 files changed, 27 insertions, 17 deletions

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 6c60d2cbdca..abf3d0ef070 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -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