From: Kenichi Handa <handa@m17n.org>
Date: Tue, 14 Apr 1998 01:07:28 +0000 (+0000)
Subject: (titdic-convert): Message improved.
X-Git-Tag: emacs-20.3~1572
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86e4f7c080138dce0a40b7f5ce39ec02b0f2dedb;p=emacs.git

(titdic-convert): Message improved.
(tit-process-header): Change `Do byte-compile' to `Byte-compile'.
(batch-titdic-convert): Likewise.
---

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 1d1e4e35a1c..9d4ee62c1de 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -153,7 +153,7 @@
     (princ "\n;;\tOriginal TIT dictionary file: ")
     (princ (file-name-nondirectory filename))
     (princ "\n\n;;; Comment:\n\n")
-    (princ ";; Do byte-compile this file again after any modification.\n\n")
+    (princ ";; Byte-compile this file again after any modification.\n\n")
     (princ ";;; Start of the header of original TIT dictionary.\n\n")
 
     (while (not (eobp))
@@ -355,7 +355,7 @@ the generated Quail package is saved."
 	  (if (not slot)
 	      (error "Invalid ENCODE: value in TIT dictionary"))
 	  (setq coding-system (nth 1 slot))
-	  (message "Decoding by %s..." coding-system)
+	  (message "Decoding with coding system %s..." coding-system)
 	  (goto-char (point-min))
 	  (decode-coding-region (point-min) (point-max) coding-system))
 
@@ -415,7 +415,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
 	    (titdic-convert file targetdir))
 	  (setq files (cdr files)))
 	(setq command-line-args-left (cdr command-line-args-left)))
-      (message "Do byte-compile the created files by:")
+      (message "Byte-compile the created files by:")
       (message "  %% emacs -batch -f batch-byte-compile XXX.el")))
   (kill-emacs 0))