Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/punct.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1 ;; Quail package `punct' generated by the command `titdic-convert'
2 ;; Date: Fri Aug 23 21:58:56 1996
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.2 1997/06/06 00:57:09 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 "quail-punct" "Chinese-GB" "$A1j5c7{:E(B"
53 nil
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 )