From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 18 Jun 2019 10:32:16 +0000 (+0200)
Subject: Make quail conversion output quieter
X-Git-Tag: emacs-27.0.90~2420
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29ea0803d7fa927a537ce8437944998bf2e0807e;p=emacs.git

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.
---

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 ()