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

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

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 199d8c6..f684831 100644 (file)
--- 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