From: Kenichi Handa <handa@m17n.org>
Date: Mon, 28 Aug 2000 01:54:18 +0000 (+0000)
Subject: (quail-use-package): Hide "... loaded" message.
X-Git-Tag: emacs-pretest-21.0.90~1938
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcbeff85702e69b396088a80b0cfd36b93a5e5d1;p=emacs.git

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