Mercurial > hg > xemacs-beta

diff lisp/mule/tibetan.el @ 778:2923009caf47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children 98af8a976fc3
line wrap: on
line diff
--- a/lisp/mule/tibetan.el	Fri Mar 15 11:00:56 2002 +0000
+++ b/lisp/mule/tibetan.el	Sat Mar 16 10:39:19 2002 +0000
@@ -1,6 +1,7 @@
-;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*-
+;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 2002 Ben Wing.
 ;; Licensed to the Free Software Foundation.
 
 ;; Keywords: multilingual, Tibetan
@@ -22,7 +23,7 @@
 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-;;; Synched up with: Emacs 21.0.103 (language/tibetan.el).
+;;; Synched up with: Emacs 21.1 (language/tibetan.el).
 
 ;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch>
 
@@ -31,6 +32,8 @@
 ;; History:
 ;; 1997.03.13 Modification for special signs and punctuations. 
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; Tibetan Character set.
@@ -81,6 +84,32 @@
 ;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ;
 ;;;
 
+(make-charset 'tibetan-1-column "Tibetan 1 column glyph"
+	      '(dimension
+		2
+		registry "MuleTibetan-1"
+		chars 94
+		columns 1
+		direction l2r
+		final ?8
+		graphic 0
+		short-name "Tibetan 1-col"
+		long-name "Tibetan 1 column"
+		))
+
+;; Tibetan script.
+(make-charset 'tibetan "Tibetan characters"
+	      '(dimension
+		2
+		registry "MuleTibetan-2"
+		chars 94
+		columns 2
+		direction l2r
+		final ?7
+		graphic 0
+		short-name "Tibetan 2-col"
+		long-name "Tibetan 2 column"
+		))
 
 ; (make-coding-system
 ;  'tibetan-iso-8bit 2 ?Q
@@ -129,8 +158,10 @@
   "Regexp matching a composable sequence of Tibetan characters.")
 
 ;; Register a function to compose Tibetan characters.
-(aset composition-function-table (make-char 'tibetan)
-      (list (cons tibetan-composable-pattern 'tibetan-composition-function)))
+(put-char-table 'tibetan
+		(list (cons tibetan-composable-pattern
+			    'tibetan-composition-function))
+		composition-function-table)
 
 ;;;
 ;;; Definitions of conversion data.
@@ -637,4 +668,4 @@
 
 (provide 'tibetan)
 
-;;; language/tibetan.el ends here
+;;; tibetan.el ends here