Make quail conversion output quieter

* lisp/international/quail.el (quail-update-leim-list-file): Ditto.
* lisp/international/titdic-cnv.el (tit-process-header)
(tit-process-body, miscdic-convert, batch-titdic-convert): Reduce
messaging.

2 files changed, 1 insertions, 8 deletions

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index a29e3fb35d8..f42b594dc46 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -3060,7 +3060,6 @@ of each directory."
       (when dirname
         (setq pkg-list (directory-files dirname 'full "\\.el$"))
         (while pkg-list
-          (message "Checking %s ..." (car pkg-list))
           (with-temp-buffer
             (insert-file-contents (car pkg-list))
             (goto-char (point-min))
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index e6065fb0f76..8615d953319 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -251,7 +251,6 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲, 4:去聲,
 ;; Analyze header part of TIT dictionary and generate an appropriate
 ;; `quail-define-package' function call.
 (defun tit-process-header (filename)
-  (message "Processing header part...")
   (goto-char (point-min))
 
   ;; At first, generate header part of the Quail package while
@@ -416,7 +415,6 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲, 4:去聲,
 ;; Convert body part of TIT dictionary into `quail-define-rules'
 ;; function call.
 (defun tit-process-body ()
-  (message "Formatting translation rules...")
   (let* ((prev-key "")
          ch key translations pos)
     (princ "(quail-define-rules\n")
@@ -494,7 +492,6 @@ the generated Quail package is saved."
             (if (not slot)
                 (error "Invalid ENCODE: value in TIT dictionary"))
             (setq coding-system (nth 1 slot))
-            (message "Decoding with coding system %s..." coding-system)
             (goto-char (point-min))
             (decode-coding-region (point-min) (point-max) coding-system)
             ;; Explicitly set eol format to `unix'.
@@ -556,7 +553,6 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
           (when (or force
                     (file-newer-than-file-p
                      file (tit-make-quail-package-file-name file targetdir)))
-            (message "Converting %s to quail-package..." file)
             (titdic-convert file targetdir))
           (setq files (cdr files)))
         (setq command-line-args-left (cdr command-line-args-left)))))
@@ -1141,7 +1137,6 @@ the generated Quail package is saved."
               coding (nth 3 slot)
               converter (nth 5 slot)
               copyright (nth 6 slot))
-        (message "Converting %s to %s..." dicfile quailfile)
         ;; Explicitly set eol format to `unix'.
         (setq coding-system-for-write 'utf-8-unix)
         (with-temp-file (expand-file-name quailfile dirname)
@@ -1173,8 +1168,7 @@ the generated Quail package is saved."
                   ";; version-control: never\n"
                   ";; no-update-autoloads: t\n"
                   ";; End:\n\n"
-                  ";;; " quailfile " ends here\n"))
-        (message "Converting %s to %s...done" dicfile quailfile))
+                  ";;; " quailfile " ends here\n")))
       (setq tail (cdr tail)))))
 
 (defun batch-miscdic-convert ()