lisp/international/quail.el

134 See the documentation of `quail-define-package' for the other elements.")
165 See also the documentation of `quail-define-package'."
176 See also the documentation of `quail-define-package'."
180 See also the documentation of `quail-define-package'."
184 See also the documentation of `quail-define-package'."
188 See also the documentation of `quail-define-package'."
196 See also the documentation of `quail-define-package'."
270       (define-key map (char-to-string i) 'quail-other-command)
273       (define-key map (char-to-string i) 'quail-self-insert-command)
277       (define-key map (vector i) 'quail-self-insert-command)
279     (define-key map "\177" 'quail-delete-last-char)
280     (define-key map "\C-f" 'quail-next-translation)
281     (define-key map "\C-b" 'quail-prev-translation)
282     (define-key map "\C-n" 'quail-next-translation-block)
283     (define-key map "\C-p" 'quail-prev-translation-block)
284     (define-key map [right] 'quail-next-translation)
285     (define-key map [left] 'quail-prev-translation)
286     (define-key map [down] 'quail-next-translation-block)
287     (define-key map [up] 'quail-prev-translation-block)
288     (define-key map "\C-i" 'quail-completion)
289     (define-key map "\C-@" 'quail-select-current)
293     (define-key map [kp-enter] 'quail-select-current)
294     (define-key map [mouse-2] 'quail-mouse-choose-completion)
295     (define-key map [down-mouse-2] nil)
296     (define-key map "\C-h" 'quail-translation-help)
297     (define-key map [?\C- ] 'quail-select-current)
298     (define-key map [tab] 'quail-completion)
299     (define-key map [delete] 'quail-delete-last-char)
300     (define-key map [backspace] 'quail-delete-last-char)
308   "When you type keys, the echo area shows the possible characters
312 line to select the character you want, then type a letter to begin
313 entering another Chinese character or type a space or punctuation
341       (define-key map (char-to-string i) 'quail-other-command)
344       (define-key map (char-to-string i) 'quail-self-insert-command)
348       (define-key map (vector i) 'quail-self-insert-command)
350     (define-key map "\177" 'quail-delete-last-char)
351     (define-key map [delete] 'quail-delete-last-char)
352     (define-key map [backspace] 'quail-delete-last-char)
354     ;;(define-key map (char-to-string meta-prefix-char) meta-map)
355     ;;(define-key map [escape] meta-map))
365       (define-key map (char-to-string i) 'quail-self-insert-command)
369       (define-key map (vector i) 'quail-self-insert-command)
371     (define-key map "\C-b" 'quail-conversion-backward-char)
372     (define-key map "\C-f" 'quail-conversion-forward-char)
373     (define-key map "\C-a" 'quail-conversion-beginning-of-region)
374     (define-key map "\C-e" 'quail-conversion-end-of-region)
375     (define-key map "\C-d" 'quail-conversion-delete-char)
376     (define-key map "\C-k" 'quail-conversion-delete-tail)
377     (define-key map "\C-h" 'quail-translation-help)
378     (define-key map "\177" 'quail-conversion-backward-delete-char)
379     (define-key map [delete] 'quail-conversion-backward-delete-char)
380     (define-key map [backspace] 'quail-conversion-backward-delete-char)
392 (defun quail-define-package (name language title
484 	    (define-key translation-keymap
493 	(define-key conversion-keymap
683   :type `(choice
696 (defun quail-update-keyboard-layout (kbd-type)
697   (let ((layout (assoc kbd-type quail-keyboard-layout-alist)))
699 	;; Here, we had better ask a user to define his own keyboard
701 	(error "Unknown keyboard type `%s'" kbd-type))
724 (defcustom quail-keyboard-layout-type "standard"
728   :type (cons 'choice (mapcar (lambda (elt)
736 (defun quail-set-keyboard-layout (kbd-type)
743 you type is correctly handled."
746 	  (type (completing-read "Keyboard type: "
748      (list type)))
749   (quail-update-keyboard-layout kbd-type)
750   (setq quail-keyboard-layout-type kbd-type))
896 (defun quail-show-keyboard-layout (&optional keyboard-type)
897   "Show the physical layout of the keyboard type KEYBOARD-TYPE.
899 The variable `quail-keyboard-layout-type' holds the currently selected
900 keyboard type."
902    (list (completing-read "Keyboard type (default current choice): "
905   (or (and keyboard-type (> (length keyboard-type) 0))
906       (setq keyboard-type quail-keyboard-layout-type))
907   (let ((layout (assoc keyboard-type quail-keyboard-layout-alist)))
909 	(error "Unknown keyboard type: %s" keyboard-type))
912 	(insert "Keyboard layout (keyboard type: "
913 		keyboard-type
948 (defmacro quail-define-rules (&rest rules)
964 ANNOTATION is a symbol indicating the annotation type.  Currently
1077 to define this translation rule in.  The default is to define it in the
1099 function `quail-define-rules' for the detail."
1115 	  ;; We come here, for example, when we try to define a rule
1129 	    ;; We come here, for example, when we try to define a rule
1136 	      ;; We come here, for example, when we try to define a rule
1143 		    ;; define a rule for "AB" as a symbol but a rule
1999 		(setq cursor-type nil)
2387       (insert "[type a key sequence to insert the corresponding character]\n")
2413       (insert "character(s)  [type a key (sequence) and select one from the list]\n")
2434 (define-button-type 'quail-keyboard-layout-button
2437 		    (help-setup-xref `(quail-keyboard-layout-button ,layout) nil)
2441 (define-button-type 'quail-keyboard-customize-button
2494 	  (help-insert-xref-button
2495 	   quail-keyboard-layout-type
2496 	   'quail-keyboard-layout-button
2497 	   quail-keyboard-layout-type)
2505 	  (help-insert-xref-button
2507 	   'quail-keyboard-layout-button "standard")
2511 You can set the variable `quail-keyboard-layout-type' to specify
2516 	  (help-insert-xref-button
2518 	   'quail-keyboard-customize-button 'quail-keyboard-layout-type)
2648 ;; type each character under MAP in TABLE (char-table).  MAP is an
2680 ;; of a key strings to type to input C.  The lenth of key string is at
2698 ;; Helper function for quail-find-key.  Prepend key strings to type
2741   "Return a list of keys to type to input CHAR in the current input method.
2775   "Show a list of key strings to type for inputting a character at point."
2784 	   (message "To input `%c', type \"%s\""
2788 	   (message "To input `%s', just type it"
2809 RULES is the same as arguments to `quail-define-rules'.
2996 	    (while (re-search-forward "^[ \t]*(quail-define-package" nil t)