diff options
| author | Kenichi Handa | 2000-09-13 12:10:29 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-09-13 12:10:29 +0000 |
| commit | 195e67401dbf54da607da38fd49a74c7988218db (patch) | |
| tree | 2a5f7f6def2ef7e10b2aebd7ea51e430f758b8e1 | |
| parent | 076ff9117c0d158319e63512c24ccd5931bae0e1 (diff) | |
| download | emacs-195e67401dbf54da607da38fd49a74c7988218db.tar.gz emacs-195e67401dbf54da607da38fd49a74c7988218db.zip | |
(quail-start-translation): Translate KEY if necessary even if it
doesn't have any mapping in the current input method.
(quail-start-conversion): Likewise.
(quail-help): The output message is improved.
| -rw-r--r-- | lisp/international/quail.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index a13e77dfff7..a93fd76abe5 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1349,6 +1349,10 @@ The returned value is a Quail map specific to KEY." | |||
| 1349 | generated-events)) | 1349 | generated-events)) |
| 1350 | 1350 | ||
| 1351 | ;; Since KEY doesn't start any translation, just return it. | 1351 | ;; Since KEY doesn't start any translation, just return it. |
| 1352 | ;; But, translate KEY if necessary. | ||
| 1353 | (if (and (integerp key) | ||
| 1354 | (quail-kbd-translate)) | ||
| 1355 | (setq key (quail-keyboard-translate key))) | ||
| 1352 | (list key))) | 1356 | (list key))) |
| 1353 | 1357 | ||
| 1354 | (defun quail-start-conversion (key) | 1358 | (defun quail-start-conversion (key) |
| @@ -1429,6 +1433,10 @@ The returned value is a Quail map specific to KEY." | |||
| 1429 | generated-events)) | 1433 | generated-events)) |
| 1430 | 1434 | ||
| 1431 | ;; Since KEY doesn't start any translation, just return it. | 1435 | ;; Since KEY doesn't start any translation, just return it. |
| 1436 | ;; But, translate KEY if necessary. | ||
| 1437 | (if (and (integerp key) | ||
| 1438 | (quail-kbd-translate)) | ||
| 1439 | (setq key (quail-keyboard-translate key))) | ||
| 1432 | (list key))) | 1440 | (list key))) |
| 1433 | 1441 | ||
| 1434 | (defun quail-terminate-translation () | 1442 | (defun quail-terminate-translation () |
| @@ -2407,17 +2415,19 @@ package to describe." | |||
| 2407 | (insert " | 2415 | (insert " |
| 2408 | KEYBOARD LAYOUT | 2416 | KEYBOARD LAYOUT |
| 2409 | --------------- | 2417 | --------------- |
| 2410 | Physical key layout for this input method is as below. | 2418 | This input method is designed to pretend you are using a keyboard |
| 2411 | You can input a character in the table by typing a key | 2419 | with the following \"virtual\" layout: |
| 2412 | at the same location on your keyboard.\n") | 2420 | ") |
| 2413 | (setq done-list | 2421 | (setq done-list |
| 2414 | (quail-insert-kbd-layout quail-keyboard-layout)) | 2422 | (quail-insert-kbd-layout quail-keyboard-layout)) |
| 2415 | (insert "It is assumed that your keyboard type is `") | 2423 | (insert "\ |
| 2424 | The input method implements that result by assuming you have | ||
| 2425 | a `") | ||
| 2416 | (help-insert-xref-button | 2426 | (help-insert-xref-button |
| 2417 | quail-keyboard-layout-type | 2427 | quail-keyboard-layout-type |
| 2418 | #'quail-show-keyboard-layout quail-keyboard-layout-type | 2428 | #'quail-show-keyboard-layout quail-keyboard-layout-type |
| 2419 | "mouse-2, RET: show this layout") | 2429 | "mouse-2, RET: show this layout") |
| 2420 | (insert "'. | 2430 | (insert "' keyboard layout, and translating characters accordingly. |
| 2421 | If the layout is different from your keyboard, or you see the | 2431 | If the layout is different from your keyboard, or you see the |
| 2422 | different characters when you type keys according to this layout, | 2432 | different characters when you type keys according to this layout, |
| 2423 | adjust the variable `quail-keyboard-layout-type' ") | 2433 | adjust the variable `quail-keyboard-layout-type' ") |