[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/lao.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/lao.el,v |
Date: |
Fri, 01 Feb 2008 16:02:32 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 08/02/01 16:01:31
Index: lisp/language/lao.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/lao.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- lisp/language/lao.el 8 Jan 2008 20:45:58 -0000 1.26
+++ lisp/language/lao.el 1 Feb 2008 16:01:03 -0000 1.27
@@ -6,6 +6,9 @@
;; 2007, 2008
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: multilingual, Lao
@@ -30,41 +33,28 @@
;;; Code:
-(make-coding-system
- 'lao 2 ?L
+(define-coding-system 'lao
"8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."
- '(ascii lao nil nil
- nil nil nil nil nil nil nil nil nil nil nil t)
- '((safe-charsets ascii lao)
- (post-read-conversion . lao-post-read-conversion)))
+ :coding-type 'charset
+ :mnemonic ?L
+ :charset-list '(lao))
(set-language-info-alist
"Lao" '((charset lao)
(coding-system lao)
(coding-priority lao)
(input-method . "lao")
- (nonascii-translation . lao)
(unibyte-display . lao)
(features lao-util)
(documentation . t)))
-(aset use-default-ascent ?(1;(B t)
-(aset use-default-ascent ?$,1D;(B t)
-(aset use-default-ascent ?(1=(B t)
-(aset use-default-ascent ?$,1D=(B t)
-(aset use-default-ascent ?(1?(B t)
-(aset use-default-ascent ?$,1D?(B t)
-(aset use-default-ascent ?(1B(B t)
-(aset use-default-ascent ?$,1DB(B t)
-(aset ignore-relative-composition ?(1\(B t)
-(aset ignore-relative-composition ?$,1D\(B t)
-
-;; Register a function to compose Lao characters.
-(let ((patterns '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
- . lao-composition-function))))
- (aset composition-function-table (make-char 'lao) patterns)
- (dotimes (i (1+ (- #xeff #xe80)))
- (aset composition-function-table (decode-char 'ucs (+ i #xe80)) patterns)))
+;; For automatic composition.
+;; (let ((chars "(1QTUVWXY[\hijklm(B"))
+;; (dotimes (i (length chars))
+;; (aset composition-function-table (aref chars i)
+;; 'lao-composition-function)))
+(set-char-table-range composition-function-table '(#xE80 . #xEDF)
+ '(("[\xE80-\xEDF]+" . font-shape-text)))
(provide 'lao)
- [Emacs-diffs] Changes to emacs/lisp/language/lao.el,v,
Miles Bader <=