procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(quail-start-translation, quail-start-conversion): Likewise.
This commit is contained in:
Kenichi Handa 2000-08-28 01:54:18 +00:00
parent 41a68aef3c
commit bcbeff8570
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/quail.el
View file

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