|
197
|
1 ;; Quail package `chinese-punct' generated by the command `titdic-convert'
|
|
|
2 ;; Date: Tue Sep 23 14:59:14 1997
|
|
|
3 ;; Original TIT dictionary file: Punct.tit
|
|
|
4
|
|
|
5 ;;; Comment:
|
|
|
6
|
|
|
7 ;; Do byte-compile this file again after any modification.
|
|
|
8
|
|
|
9 ;;; Start of the header of original TIT dictionary.
|
|
|
10
|
|
|
11 ;; # $Id: Punct.el,v 1.1 1997/09/28 22:07:31 steve Exp $
|
|
|
12 ;; # HANZI input table for cxterm
|
|
|
13 ;; # To be used by cxterm, convert me to .cit format first
|
|
|
14 ;; # .cit version 1
|
|
|
15 ;; ENCODE: GB
|
|
|
16 ;; MULTICHOICE: YES
|
|
|
17 ;; PROMPT: $A::WVJdHk!K1j5c7{:E!K# (B
|
|
|
18 ;; #
|
|
|
19 ;; COMMENT Copyright 1991 by Yongguang Zhang.
|
|
|
20 ;; COMMENT Permission to use/modify/copy for any purpose is hereby granted.
|
|
|
21 ;; COMMENT Absolutely no fee and no warranties.
|
|
|
22 ;; COMMENT
|
|
|
23 ;; COMMENT use <CTRL-f> to move to the right
|
|
|
24 ;; COMMENT use <CTRL-b> to move to the left
|
|
|
25 ;; # define keys
|
|
|
26 ;; VALIDINPUTKEY: "\043$%&'()*+,-./0123456789:;<=>?@[\134]^_`abcdefghijklm
|
|
|
27 ;; VALIDINPUTKEY: nopqrstuvwxyz|~
|
|
|
28 ;; SELECTKEY: 1\040
|
|
|
29 ;; SELECTKEY: 2
|
|
|
30 ;; SELECTKEY: 3
|
|
|
31 ;; SELECTKEY: 4
|
|
|
32 ;; SELECTKEY: 5
|
|
|
33 ;; SELECTKEY: 6
|
|
|
34 ;; SELECTKEY: 7
|
|
|
35 ;; SELECTKEY: 8
|
|
|
36 ;; SELECTKEY: 9
|
|
|
37 ;; SELECTKEY: 0
|
|
|
38 ;; BACKSPACE: \010\177
|
|
|
39 ;; DELETEALL: \015\025
|
|
|
40 ;; MOVERIGHT: \006
|
|
|
41 ;; MOVELEFT: \002
|
|
|
42 ;; REPEATKEY: \020\022
|
|
|
43 ;; # the following line must not be removed
|
|
|
44 ;; BEGINDICTIONARY
|
|
|
45
|
|
|
46 ;;; End of the header of original TIT dictionary.
|
|
|
47
|
|
|
48 ;;; Code:
|
|
|
49
|
|
|
50 (require 'quail)
|
|
|
51
|
|
|
52 (quail-define-package "chinese-punct" "Chinese-GB" "$A1j(BG"
|
|
|
53 t
|
|
|
54 "$A::WVJdHk!K1j5c7{:E!K# (B
|
|
|
55 Copyright 1991 by Yongguang Zhang.
|
|
|
56 Permission to use/modify/copy for any purpose is hereby granted.
|
|
|
57 Absolutely no fee and no warranties.
|
|
|
58
|
|
|
59 use <CTRL-f> to move to the right
|
|
|
60 use <CTRL-b> to move to the left
|
|
|
61 "
|
|
|
62 '(("\C-?" . quail-delete-last-char)
|
|
|
63 ("\C-M" . quail-abort-translation)
|
|
|
64 ("\C-U" . quail-abort-translation)
|
|
|
65 ) nil nil nil nil)
|
|
|
66
|
|
|
67 (quail-define-rules
|
|
|
68 ;; #
|
|
|
69 ("\"" "$A#"!0!1!e(B")
|
|
|
70 ("\043" "$A##(B")
|
|
|
71 ("$" "$A#$!g!i!j(B")
|
|
|
72 ("%" "$A#%!k(B")
|
|
|
73 ("'" "$A#'!.!/!d(B")
|
|
|
74 ("(" "$A#(!8!:(B")
|
|
|
75 (")" "$A#)!9!;(B")
|
|
|
76 ("*" "$A#*!A!G!D!I(B")
|
|
|
77 ("+" "$A#+!@!F!E!H(B")
|
|
|
78 ("," "$A#,!"(B")
|
|
|
79 ("-" "$A#-!%!*!+(B")
|
|
|
80 ("." "$A#.!#!$!'!-!_!`!c!Q(B")
|
|
|
81 ("/" "$A#/!B!L#\(B")
|
|
|
82 ("0" "$A#0":"D"N"X"b"n"z(B")
|
|
|
83 ("1" "$A#1"1";"E"O"Y"e"q(B")
|
|
|
84 ("2" "$A#2"2"<"F"P"Z"f"r(B")
|
|
|
85 ("3" "$A#3"3"="G"Q"["g"s(B")
|
|
|
86 ("4" "$A#4"4">"H"R"\"h"t(B")
|
|
|
87 ("5" "$A#5"5"?"I"S"]"i"u(B")
|
|
|
88 ("6" "$A#6"6"@"J"T"^"j"v(B")
|
|
|
89 ("7" "$A#7"7"A"K"U"_"k"w(B")
|
|
|
90 ("8" "$A#8"8"B"L"V"`"l"x(B")
|
|
|
91 ("9" "$A#9"9"C"M"W"a"m"y(B")
|
|
|
92 (":" "$A#:!K(B")
|
|
|
93 ("<" "$A#<!4!6!Z!\(B")
|
|
|
94 ("=" "$A#=!Y!V!T!U(B")
|
|
|
95 (">" "$A#>!5!7![!](B")
|
|
|
96 ("@" "$A#@!Q(B")
|
|
|
97 ("[" "$A#[!2!<!>#{(B")
|
|
|
98 ("\134" "$A#\#/(B")
|
|
|
99 ("]" "$A#]!3!=!?#}(B")
|
|
|
100 ("^" "$A#^!&!P(B")
|
|
|
101 ("_" "$A#_!M(B")
|
|
|
102 ("`" "$A#`!.!/(B")
|
|
|
103 ("logo" "$A!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B")
|
|
|
104 ("math" "$A!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`(B")
|
|
|
105 ("punct" "$A!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B")
|
|
|
106 ("symbol" "$A!a!b!c!d!e!f!g!h!i!j!k!l!m(B")
|
|
|
107 ("|" "$A#|!,!N(B")
|
|
|
108 ("~" "$A#~!+!W!X!^(B")
|
|
|
109 )
|
