Mercurial > emacs
comparison lisp/international/quail.el @ 48039:c4ddd9be9c17
(quail-keyboard-layout-alist): Fix
pc105-uk.
(quail-keyboard-layout): Customize.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 28 Oct 2002 14:37:38 +0000 |
parents | 5d173712d50a |
children | a76d113d3ce2 |
comparison
equal
deleted
inserted
replaced
48038:9f1f449a32da | 48039:c4ddd9be9c17 |
---|---|
616 See the documentation of `quail-keyboard-layout' for this format. | 616 See the documentation of `quail-keyboard-layout' for this format. |
617 This layout is almost the same as that of VT100, | 617 This layout is almost the same as that of VT100, |
618 but the location of key \\ (backslash) is just right of key ' (single-quote), | 618 but the location of key \\ (backslash) is just right of key ' (single-quote), |
619 not right of RETURN key.") | 619 not right of RETURN key.") |
620 | 620 |
621 (defvar quail-keyboard-layout quail-keyboard-layout-standard | 621 (defcustom quail-keyboard-layout quail-keyboard-layout-standard |
622 "A string which represents physical key layout of a particular keyboard. | 622 "A string which represents physical key layout of a particular keyboard. |
623 We assume there are six rows and each row has 15 keys (columns), | 623 We assume there are six rows and each row has 15 keys (columns), |
624 the first row is above the `1' - `0' row, | 624 the first row is above the `1' - `0' row, |
625 the first column of the second row is left of key `1', | 625 the first column of the second row is left of key `1', |
626 the first column of the third row is left of key `q', | 626 the first column of the third row is left of key `q', |
628 the first column of the fifth row is left of key `z', | 628 the first column of the fifth row is left of key `z', |
629 the sixth row is below the `z' - `/' row. | 629 the sixth row is below the `z' - `/' row. |
630 Nth (N is even) and (N+1)th characters in the string are non-shifted | 630 Nth (N is even) and (N+1)th characters in the string are non-shifted |
631 and shifted characters respectively at the same location. | 631 and shifted characters respectively at the same location. |
632 The location of Nth character is row (N / 30) and column ((N mod 30) / 2). | 632 The location of Nth character is row (N / 30) and column ((N mod 30) / 2). |
633 The command `quail-set-keyboard-layout' usually sets this variable.") | 633 The command `quail-set-keyboard-layout' usually sets this variable." |
634 :group 'quail | |
635 :type `(choice | |
636 ,@(mapcar (lambda (pair) | |
637 (list 'const :tag (car pair) (cdr pair))) | |
638 quail-keyboard-layout-alist) | |
639 (string :tag "Other"))) | |
634 | 640 |
635 (defconst quail-keyboard-layout-len 180) | 641 (defconst quail-keyboard-layout-len 180) |
636 | 642 |
637 ;; Here we provide several examples of famous keyboard layouts. | 643 ;; Here we provide several examples of famous keyboard layouts. |
638 ;; This is a candidate for a language environment-dependent setting. | 644 ;; This is a candidate for a language environment-dependent setting. |
669 aAsSdDfFgGhHjJkKlL;+:*]} \ | 675 aAsSdDfFgGhHjJkKlL;+:*]} \ |
670 zZxXcCvVbBnNmM,<.>/?\\_ \ | 676 zZxXcCvVbBnNmM,<.>/?\\_ \ |
671 ") | 677 ") |
672 '("pc105-uk" . "\ | 678 '("pc105-uk" . "\ |
673 \ | 679 \ |
674 `\2541!2\3\243$5%6^7&8*9(0)-_=+ \ | 680 `\2541!2\"3\2434$5%6^7&8*9(0)-_=+ \ |
675 qQwWeErRtTyYuUiIoOpP[{]} \ | 681 qQwWeErRtTyYuUiIoOpP[{]} \ |
676 aAsSdDfFgGhHjJkKlL;:'@#~ \ | 682 aAsSdDfFgGhHjJkKlL;:'@#~ \ |
677 \\|zZxXcCvVbBnNmM,<.>/? \ | 683 \\|zZxXcCvVbBnNmM,<.>/? \ |
678 ") | 684 ") |
679 ) | 685 ) |
892 "Show the physical layout of the keyboard type KEYBOARD-TYPE. | 898 "Show the physical layout of the keyboard type KEYBOARD-TYPE. |
893 | 899 |
894 The variable `quail-keyboard-layout-type' holds the currently selected | 900 The variable `quail-keyboard-layout-type' holds the currently selected |
895 keyboard type." | 901 keyboard type." |
896 (interactive | 902 (interactive |
897 (list (completing-read "Keyboard type (default, current choise): " | 903 (list (completing-read "Keyboard type (default, current choice): " |
898 quail-keyboard-layout-alist | 904 quail-keyboard-layout-alist |
899 nil t))) | 905 nil t))) |
900 (or (and keyboard-type (> (length keyboard-type) 0)) | 906 (or (and keyboard-type (> (length keyboard-type) 0)) |
901 (setq keyboard-type quail-keyboard-layout-type)) | 907 (setq keyboard-type quail-keyboard-layout-type)) |
902 (let ((layout (assoc keyboard-type quail-keyboard-layout-alist))) | 908 (let ((layout (assoc keyboard-type quail-keyboard-layout-alist))) |