# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 967427658 0
# Node ID 8e8fa4dbc0bcd310abadb1695436fba82f3850e4
# Parent  6e4b811a1f3e7a42eec3e4a13474638e02ee6e33
(quail-use-package): Hide "... loaded" message.
(quail-start-translation, quail-start-conversion): Likewise.

diff -r 6e4b811a1f3e -r 8e8fa4dbc0bc lisp/international/quail.el
--- a/lisp/international/quail.el	Mon Aug 28 01:53:53 2000 +0000
+++ b/lisp/international/quail.el	Mon Aug 28 01:54:18 2000 +0000
@@ -225,7 +225,9 @@
 	    (setq libraries (cdr libraries))))))
   (quail-select-package package-name)
   (setq current-input-method-title (quail-title))
-  (quail-activate))
+  (quail-activate)
+  ;; Hide all '... loaded' message.
+  (message nil))
 
 (defvar quail-translation-keymap
   (let ((map (make-keymap))
@@ -1057,6 +1059,8 @@
 	    (setq unread-command-events (cons key unread-command-events)))
 	(while quail-translating
 	  (set-buffer-modified-p modified-p)
+	  ;; Hide '... loaded' message.
+	  (message nil)
 	  (let* ((keyseq (read-key-sequence
 			  (and input-method-use-echo-area
 			       (concat input-method-previous-message
@@ -1148,6 +1152,8 @@
 		      quail-current-str ""
 		      quail-translating t)
 		(quail-setup-overlays nil)))
+	  ;; Hide '... loaded' message.
+	  (message nil)
 	  (let* ((keyseq (read-key-sequence
 			  (and input-method-use-echo-area
 			       (concat input-method-previous-message