Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/viqr.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;; quail/viqr.el -- Quail packages for inputting Vietnamese with VIQR system 1 ;; quail/viqr.el -- Quail packages for inputting Vietnamese with VIQR system
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, input method, latin 6 ;; Keywords: multilingual, input method, latin
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
23 24
24 ;;; Code: 25 ;;; Code:
25 26
26 (require 'quail) 27 (require 'quail)
27 (require 'language/viet-util) 28 (require 'viet-util)
28 29
29 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs 30 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
30 ;; corresponding VIQR strings. We create Quail map which maps VIQR 31 ;; corresponding VIQR strings. We create Quail map which maps VIQR
31 ;; strings to corresponding Vietnamese characters. 32 ;; strings to corresponding Vietnamese characters.
32 33
37 (while l 38 (while l
38 (setq rules (cons (list (cdr (car l)) (car (car l))) rules)) 39 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
39 (setq l (cdr l))) 40 (setq l (cdr l)))
40 rules))) 41 rules)))
41 42
42 (quail-define-package "quail-viqr" "Vietnamese" "VIQR" t 43 (quail-define-package
43 "Vietnamese inputting method with VIQR mnemonic system: 44 "vietnamese-viqr" "Vietnamese" "VQ" t
45 "Vietnamese input method with VIQR mnemonic system
44 46
45 effect | postfix | examples 47 effect | postfix | examples
46 ------------+---------+---------- 48 ------------+---------+----------
47 breve | ( | a( -> ,1e(B 49 breve | ( | a( -> ,1e(B
48 circumflex | ^ | a^ -> ,1b(B 50 circumflex | ^ | a^ -> ,1b(B
54 tilde | ~ | a~ -> ,1c(B 56 tilde | ~ | a~ -> ,1c(B
55 dot below | . | a. -> ,1U(B 57 dot below | . | a. -> ,1U(B
56 ------------+---------+---------- 58 ------------+---------+----------
57 d bar | dd | dd -> ,1p(B 59 d bar | dd | dd -> ,1p(B
58 ------------+---------+---------- 60 ------------+---------+----------
59 no compose | \ | a\. -> a. 61 no compose | \\ | a\\. -> a.
60 ------------+---------+---------- 62 ------------+---------+----------
61 combination| (~ | a(~ -> ,1G(B 63 combination| (~ | a(~ -> ,1G(B
62 " nil t t nil nil t) 64 " nil t t nil nil t nil nil nil nil t)
63 65
64 66
65 (viet-quail-define-rules) 67 (viet-quail-define-rules)
66 68
67 ;;; quail/viqr.el ends here 69 ;;; quail/viqr.el ends here