Mercurial > emacs

changeset 31217:8e8fa4dbc0bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-use-package): Hide "... loaded" message. (quail-start-translation, quail-start-conversion): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 28 Aug 2000 01:54:18 +0000
parents 6e4b811a1f3e
children 6828c3827297
files lisp/international/quail.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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