/[emacs]/emacs/lisp/language/lao.el
ViewVC logotype

Diff of /emacs/lisp/language/lao.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by fx, Wed Nov 22 19:28:28 2000 UTC revision 1.14.2.1 by fx, Thu Nov 22 10:47:01 2001 UTC
# Line 1  Line 1 
1  ;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*-  ;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; -*-
2    
3  ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
5    ;; Copyright (C) 2001  Free Software Foundation, Inc.
6    
7  ;; Keywords: multilingual, Lao  ;; Keywords: multilingual, Lao, i18n
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 22  Line 23 
23  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24  ;; Boston, MA 02111-1307, USA.  ;; Boston, MA 02111-1307, USA.
25    
26    ;;; Commentary:
27    
28  ;;; Code:  ;;; Code:
29    
30  (make-coding-system  (make-coding-system
# Line 29  Line 32 
32   "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"   "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
33   '(ascii lao nil nil   '(ascii lao nil nil
34     nil nil)     nil nil)
35   '((safe-charsets ascii lao)))   '((safe-charsets ascii lao)
36       (post-read-conversion . lao-post-read-conversion)))
37    
38  (set-language-info-alist  (set-language-info-alist
39   "Lao" '((charset lao)   "Lao" '((charset lao)
# Line 42  Line 46 
46           (documentation . t)))           (documentation . t)))
47    
48  (aset use-default-ascent ?(1;(B t)  (aset use-default-ascent ?(1;(B t)
49    (aset use-default-ascent ?$,1D;(B t)
50  (aset use-default-ascent ?(1=(B t)  (aset use-default-ascent ?(1=(B t)
51    (aset use-default-ascent ?$,1D=(B t)
52  (aset use-default-ascent ?(1?(B t)  (aset use-default-ascent ?(1?(B t)
53    (aset use-default-ascent ?$,1D?(B t)
54  (aset use-default-ascent ?(1B(B t)  (aset use-default-ascent ?(1B(B t)
55    (aset use-default-ascent ?$,1DB(B t)
56  (aset ignore-relative-composition ?(1\(B t)  (aset ignore-relative-composition ?(1\(B t)
57    (aset ignore-relative-composition ?$,1D\(B t)
58    
59  ;; Register a function to compose Lao characters.  ;; Register a function to compose Lao characters.
60  (aset composition-function-table (make-char 'lao)  (let ((patterns '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
61        '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"           . lao-composition-function))))
62           . lao-composition-function)))    (aset composition-function-table (make-char 'lao) patterns)
63      (dotimes (i (1+ (- #xeff #xe80)))
64        (aset composition-function-table (decode-char 'ucs (+ i #xe80)) patterns)))
65    
66  (provide 'lao)  (provide 'lao)
67    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26