Mercurial > emacs
comparison lisp/international/quail.el @ 21659:70c5f2b7e3a8
(quail-start-translation): Bind
prefix-arg to current-prefix-arg.
(quail-mode): Doc-string modified.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 20 Apr 1998 02:11:52 +0000 |
parents | ca3bd6ec875d |
children | 1a80d464c77a |
comparison
equal
deleted
inserted
replaced
21658:d8a81542dbf9 | 21659:70c5f2b7e3a8 |
---|---|
535 | 535 |
536 (defun quail-mode (&optional arg) | 536 (defun quail-mode (&optional arg) |
537 "Toggle Quail minor mode. | 537 "Toggle Quail minor mode. |
538 With arg, turn Quail mode on if and only if arg is positive. | 538 With arg, turn Quail mode on if and only if arg is positive. |
539 | 539 |
540 You should not turn on and off Quail mode manually, instead use | 540 In Quail mode, all printable characters are bound to |
541 the commands `toggle-input-method' or `set-input-method' (which | 541 `quail-start-translation'. This function checks if the current input |
542 see). They automatically turn on or off this mode. | 542 method will translate the last input key. If not, the key is handled |
543 | 543 out of Quail mode, i.e, in another activated minor mode or in the |
544 Try \\[describe-bindings] in Quail mode to see the available key bindings. | 544 current major mode. |
545 The command \\[describe-input-method] describes the current Quail package." | 545 \\{quail-mode-map} |
546 Unlike the other minor modes, this is not an interactive function. | |
547 Use the commands \\[toggle-input-method] (`toggle-input-method') or | |
548 \\[set-input-method] (`set-input-method') which automatically turn on | |
549 Quail mode with an appropriate Quail package, or turn it off." | |
546 (setq quail-mode | 550 (setq quail-mode |
547 (if (null arg) (null quail-mode) | 551 (if (null arg) (null quail-mode) |
548 (> (prefix-numeric-value arg) 0))) | 552 (> (prefix-numeric-value arg) 0))) |
549 (if (null quail-mode) | 553 (if (null quail-mode) |
550 ;; Let's turn off Quail mode. | 554 ;; Let's turn off Quail mode. |
986 (defvar quail-prefix-arg nil) | 990 (defvar quail-prefix-arg nil) |
987 | 991 |
988 (defun quail-start-translation (arg) | 992 (defun quail-start-translation (arg) |
989 "Start translating the typed character in Quail mode." | 993 "Start translating the typed character in Quail mode." |
990 (interactive "*p") | 994 (interactive "*p") |
991 (setq prefix-arg arg) | 995 (setq prefix-arg current-prefix-arg) |
992 (setq quail-prefix-arg arg) | 996 (setq quail-prefix-arg arg) |
993 (setq unread-command-events | 997 (setq unread-command-events |
994 (cons last-command-event unread-command-events)) | 998 (cons last-command-event unread-command-events)) |
995 ;; Check the possibility of translating the last key. | 999 ;; Check the possibility of translating the last key. |
996 (if (and (integerp last-command-event) | 1000 (if (and (integerp last-command-event) |