aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2000-09-13 12:10:29 +0000
committerKenichi Handa2000-09-13 12:10:29 +0000
commit195e67401dbf54da607da38fd49a74c7988218db (patch)
tree2a5f7f6def2ef7e10b2aebd7ea51e430f758b8e1
parent076ff9117c0d158319e63512c24ccd5931bae0e1 (diff)
downloademacs-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.el20
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 "
2408KEYBOARD LAYOUT 2416KEYBOARD LAYOUT
2409--------------- 2417---------------
2410Physical key layout for this input method is as below. 2418This input method is designed to pretend you are using a keyboard
2411You can input a character in the table by typing a key 2419with the following \"virtual\" layout:
2412at 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 "\
2424The input method implements that result by assuming you have
2425a `")
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.
2421If the layout is different from your keyboard, or you see the 2431If the layout is different from your keyboard, or you see the
2422different characters when you type keys according to this layout, 2432different characters when you type keys according to this layout,
2423adjust the variable `quail-keyboard-layout-type' ") 2433adjust the variable `quail-keyboard-layout-type' ")