Mercurial > emacs
comparison lisp/international/quail.el @ 31217:8e8fa4dbc0bc
(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 | 321084a896d1 |
| children | e49bf88ce1f8 |
comparison
equal
deleted
inserted
replaced
| 31216:6e4b811a1f3e | 31217:8e8fa4dbc0bc |
|---|---|
| 223 LEIM is available from the same ftp directory as Emacs.")) | 223 LEIM is available from the same ftp directory as Emacs.")) |
| 224 (error "Can't use the Quail package `%s'" package-name)) | 224 (error "Can't use the Quail package `%s'" package-name)) |
| 225 (setq libraries (cdr libraries)))))) | 225 (setq libraries (cdr libraries)))))) |
| 226 (quail-select-package package-name) | 226 (quail-select-package package-name) |
| 227 (setq current-input-method-title (quail-title)) | 227 (setq current-input-method-title (quail-title)) |
| 228 (quail-activate)) | 228 (quail-activate) |
| 229 ;; Hide all '... loaded' message. | |
| 230 (message nil)) | |
| 229 | 231 |
| 230 (defvar quail-translation-keymap | 232 (defvar quail-translation-keymap |
| 231 (let ((map (make-keymap)) | 233 (let ((map (make-keymap)) |
| 232 (i 0)) | 234 (i 0)) |
| 233 (while (< i ?\ ) | 235 (while (< i ?\ ) |
| 1055 quail-translating t) | 1057 quail-translating t) |
| 1056 (if key | 1058 (if key |
| 1057 (setq unread-command-events (cons key unread-command-events))) | 1059 (setq unread-command-events (cons key unread-command-events))) |
| 1058 (while quail-translating | 1060 (while quail-translating |
| 1059 (set-buffer-modified-p modified-p) | 1061 (set-buffer-modified-p modified-p) |
| 1062 ;; Hide '... loaded' message. | |
| 1063 (message nil) | |
| 1060 (let* ((keyseq (read-key-sequence | 1064 (let* ((keyseq (read-key-sequence |
| 1061 (and input-method-use-echo-area | 1065 (and input-method-use-echo-area |
| 1062 (concat input-method-previous-message | 1066 (concat input-method-previous-message |
| 1063 quail-current-str)) | 1067 quail-current-str)) |
| 1064 nil nil t)) | 1068 nil nil t)) |
| 1146 (progn | 1150 (progn |
| 1147 (setq quail-current-key "" | 1151 (setq quail-current-key "" |
| 1148 quail-current-str "" | 1152 quail-current-str "" |
| 1149 quail-translating t) | 1153 quail-translating t) |
| 1150 (quail-setup-overlays nil))) | 1154 (quail-setup-overlays nil))) |
| 1155 ;; Hide '... loaded' message. | |
| 1156 (message nil) | |
| 1151 (let* ((keyseq (read-key-sequence | 1157 (let* ((keyseq (read-key-sequence |
| 1152 (and input-method-use-echo-area | 1158 (and input-method-use-echo-area |
| 1153 (concat input-method-previous-message | 1159 (concat input-method-previous-message |
| 1154 quail-conversion-str | 1160 quail-conversion-str |
| 1155 quail-current-str)) | 1161 quail-current-str)) |