Mercurial > emacs
comparison lisp/international/quail.el @ 48048:a76d113d3ce2
(quail-keyboard-layout): Move after
quail-keyboard-layout-alist.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 28 Oct 2002 18:29:36 +0000 |
| parents | c4ddd9be9c17 |
| children | a3de797dd9f6 |
comparison
equal
deleted
inserted
replaced
| 48047:6aa5dbc9fd0f | 48048:a76d113d3ce2 |
|---|---|
| 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 (defconst quail-keyboard-layout-len 180) | |
| 622 | |
| 623 ;; Here we provide several examples of famous keyboard layouts. | |
| 624 ;; This is a candidate for a language environment-dependent setting. | |
| 625 (defvar quail-keyboard-layout-alist | |
| 626 (list | |
| 627 (cons "standard" quail-keyboard-layout-standard) | |
| 628 '("sun-type3" . "\ | |
| 629 \ | |
| 630 1!2@3#4$5%6^7&8*9(0)-_=+\\|`~\ | |
| 631 qQwWeErRtTyYuUiIoOpP[{]} \ | |
| 632 aAsSdDfFgGhHjJkKlL;:'\" \ | |
| 633 zZxXcCvVbBnNmM,<.>/? \ | |
| 634 ") | |
| 635 '("atari-german" . "\ | |
| 636 \ | |
| 637 1!2\"3\2474$5%6&7/8(9)0=\337?'`#^ \ | |
| 638 qQwWeErRtTzZuUiIoOpP\374\334+* \ | |
| 639 aAsSdDfFgGhHjJkKlL\366\326\344\304~| \ | |
| 640 <>yYxXcCvVbBnNmM,;.:-_ \ | |
| 641 ") | |
| 642 | |
| 643 '("pc102-de" . "\ | |
| 644 \ | |
| 645 ^\2601!2\"3\2474$5%6&7/8(9)0=\337?\264`#' \ | |
| 646 qQwWeErRtTzZuUiIoOpP\374\334+* \ | |
| 647 aAsSdDfFgGhHjJkKlL\366\326\344\304 \ | |
| 648 <>yYxXcCvVbBnNmM,;.:-_ \ | |
| 649 ") | |
| 650 | |
| 651 '("jp106" . "\ | |
| 652 \ | |
| 653 1!2\"3#4$5%6&7'8(9)0~-=^~\\| \ | |
| 654 qQwWeErRtTyYuUiIoOpP@`[{ \ | |
| 655 aAsSdDfFgGhHjJkKlL;+:*]} \ | |
| 656 zZxXcCvVbBnNmM,<.>/?\\_ \ | |
| 657 ") | |
| 658 '("pc105-uk" . "\ | |
| 659 \ | |
| 660 `\2541!2\"3\2434$5%6^7&8*9(0)-_=+ \ | |
| 661 qQwWeErRtTyYuUiIoOpP[{]} \ | |
| 662 aAsSdDfFgGhHjJkKlL;:'@#~ \ | |
| 663 \\|zZxXcCvVbBnNmM,<.>/? \ | |
| 664 ") | |
| 665 ) | |
| 666 "Alist of keyboard names and corresponding layout strings. | |
| 667 See the documentation of `quail-keyboard-layout' for the format of | |
| 668 the layout string.") | |
| 669 | |
| 621 (defcustom quail-keyboard-layout quail-keyboard-layout-standard | 670 (defcustom quail-keyboard-layout quail-keyboard-layout-standard |
| 622 "A string which represents physical key layout of a particular keyboard. | 671 "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), | 672 We assume there are six rows and each row has 15 keys (columns), |
| 624 the first row is above the `1' - `0' row, | 673 the first row is above the `1' - `0' row, |
| 625 the first column of the second row is left of key `1', | 674 the first column of the second row is left of key `1', |
| 635 :type `(choice | 684 :type `(choice |
| 636 ,@(mapcar (lambda (pair) | 685 ,@(mapcar (lambda (pair) |
| 637 (list 'const :tag (car pair) (cdr pair))) | 686 (list 'const :tag (car pair) (cdr pair))) |
| 638 quail-keyboard-layout-alist) | 687 quail-keyboard-layout-alist) |
| 639 (string :tag "Other"))) | 688 (string :tag "Other"))) |
| 640 | |
| 641 (defconst quail-keyboard-layout-len 180) | |
| 642 | |
| 643 ;; Here we provide several examples of famous keyboard layouts. | |
| 644 ;; This is a candidate for a language environment-dependent setting. | |
| 645 (defvar quail-keyboard-layout-alist | |
| 646 (list | |
| 647 (cons "standard" quail-keyboard-layout-standard) | |
| 648 '("sun-type3" . "\ | |
| 649 \ | |
| 650 1!2@3#4$5%6^7&8*9(0)-_=+\\|`~\ | |
| 651 qQwWeErRtTyYuUiIoOpP[{]} \ | |
| 652 aAsSdDfFgGhHjJkKlL;:'\" \ | |
| 653 zZxXcCvVbBnNmM,<.>/? \ | |
| 654 ") | |
| 655 '("atari-german" . "\ | |
| 656 \ | |
| 657 1!2\"3\2474$5%6&7/8(9)0=\337?'`#^ \ | |
| 658 qQwWeErRtTzZuUiIoOpP\374\334+* \ | |
| 659 aAsSdDfFgGhHjJkKlL\366\326\344\304~| \ | |
| 660 <>yYxXcCvVbBnNmM,;.:-_ \ | |
| 661 ") | |
| 662 | |
| 663 '("pc102-de" . "\ | |
| 664 \ | |
| 665 ^\2601!2\"3\2474$5%6&7/8(9)0=\337?\264`#' \ | |
| 666 qQwWeErRtTzZuUiIoOpP\374\334+* \ | |
| 667 aAsSdDfFgGhHjJkKlL\366\326\344\304 \ | |
| 668 <>yYxXcCvVbBnNmM,;.:-_ \ | |
| 669 ") | |
| 670 | |
| 671 '("jp106" . "\ | |
| 672 \ | |
| 673 1!2\"3#4$5%6&7'8(9)0~-=^~\\| \ | |
| 674 qQwWeErRtTyYuUiIoOpP@`[{ \ | |
| 675 aAsSdDfFgGhHjJkKlL;+:*]} \ | |
| 676 zZxXcCvVbBnNmM,<.>/?\\_ \ | |
| 677 ") | |
| 678 '("pc105-uk" . "\ | |
| 679 \ | |
| 680 `\2541!2\"3\2434$5%6^7&8*9(0)-_=+ \ | |
| 681 qQwWeErRtTyYuUiIoOpP[{]} \ | |
| 682 aAsSdDfFgGhHjJkKlL;:'@#~ \ | |
| 683 \\|zZxXcCvVbBnNmM,<.>/? \ | |
| 684 ") | |
| 685 ) | |
| 686 "Alist of keyboard names and corresponding layout strings. | |
| 687 See the documentation of `quail-keyboard-layout' for the format of | |
| 688 the layout string.") | |
| 689 | 689 |
| 690 ;; A non-standard keyboard layout may miss some key locations of the | 690 ;; A non-standard keyboard layout may miss some key locations of the |
| 691 ;; standard layout while having additional key locations not in the | 691 ;; standard layout while having additional key locations not in the |
| 692 ;; standard layout. This alist maps those additional key locations to | 692 ;; standard layout. This alist maps those additional key locations to |
| 693 ;; the missing locations. The value is updated automatically by | 693 ;; the missing locations. The value is updated automatically by |