From 4adfa97623203b6ba82c3b2c5d200d04d1f49d81 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 22 Nov 2001 10:47:01 +0000 Subject: [PATCH] Add Unicode equivalents. (lao): Add post-read-conversion. --- lisp/language/lao.el | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/lisp/language/lao.el b/lisp/language/lao.el index 7aae8f76db5..ee7d2bb6054 100644 --- a/lisp/language/lao.el +++ b/lisp/language/lao.el @@ -1,9 +1,10 @@ -;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*- +;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. +;; Copyright (C) 2001 Free Software Foundation, Inc. -;; Keywords: multilingual, Lao +;; Keywords: multilingual, Lao, i18n ;; This file is part of GNU Emacs. @@ -22,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (make-coding-system @@ -29,7 +32,8 @@ "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)" '(ascii lao nil nil nil nil) - '((safe-charsets ascii lao))) + '((safe-charsets ascii lao) + (post-read-conversion . lao-post-read-conversion))) (set-language-info-alist "Lao" '((charset lao) @@ -42,15 +46,22 @@ (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. -(aset composition-function-table (make-char 'lao) - '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?" - . lao-composition-function))) +(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))) (provide 'lao) -- 2.39.5