(quail-use-package): Hide "... loaded" message.

(quail-start-translation, quail-start-conversion): Likewise.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 199d8c69109..f6848319484 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -225,7 +225,9 @@ LEIM is available from the same ftp directory as Emacs."))
             (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 @@ The returned value is a Quail map specific to KEY."
             (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 @@ The returned value is a Quail map specific to KEY."
                       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