(quail-use-package): Hide "... loaded" message.
(quail-start-translation, quail-start-conversion): Likewise.
This commit is contained in:
parent
41a68aef3c
commit
bcbeff8570
1 changed files with 7 additions and 1 deletions
|
@ -225,7 +225,9 @@ LEIM is available from the same ftp directory as Emacs."))
|
||||||
(setq libraries (cdr libraries))))))
|
(setq libraries (cdr libraries))))))
|
||||||
(quail-select-package package-name)
|
(quail-select-package package-name)
|
||||||
(setq current-input-method-title (quail-title))
|
(setq current-input-method-title (quail-title))
|
||||||
(quail-activate))
|
(quail-activate)
|
||||||
|
;; Hide all '... loaded' message.
|
||||||
|
(message nil))
|
||||||
|
|
||||||
(defvar quail-translation-keymap
|
(defvar quail-translation-keymap
|
||||||
(let ((map (make-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)))
|
(setq unread-command-events (cons key unread-command-events)))
|
||||||
(while quail-translating
|
(while quail-translating
|
||||||
(set-buffer-modified-p modified-p)
|
(set-buffer-modified-p modified-p)
|
||||||
|
;; Hide '... loaded' message.
|
||||||
|
(message nil)
|
||||||
(let* ((keyseq (read-key-sequence
|
(let* ((keyseq (read-key-sequence
|
||||||
(and input-method-use-echo-area
|
(and input-method-use-echo-area
|
||||||
(concat input-method-previous-message
|
(concat input-method-previous-message
|
||||||
|
@ -1148,6 +1152,8 @@ The returned value is a Quail map specific to KEY."
|
||||||
quail-current-str ""
|
quail-current-str ""
|
||||||
quail-translating t)
|
quail-translating t)
|
||||||
(quail-setup-overlays nil)))
|
(quail-setup-overlays nil)))
|
||||||
|
;; Hide '... loaded' message.
|
||||||
|
(message nil)
|
||||||
(let* ((keyseq (read-key-sequence
|
(let* ((keyseq (read-key-sequence
|
||||||
(and input-method-use-echo-area
|
(and input-method-use-echo-area
|
||||||
(concat input-method-previous-message
|
(concat input-method-previous-message
|
||||||
|
|
Loading…
Add table
Reference in a new issue