Update header.
authortomo <tomo>
Fri, 1 Apr 2005 15:26:00 +0000 (15:26 +0000)
committertomo <tomo>
Fri, 1 Apr 2005 15:26:00 +0000 (15:26 +0000)
lisp/utf-2000/read-maps.el

index 842cac1..5258505 100644 (file)
@@ -1,6 +1,6 @@
 ;;; read-maps.el --- Read mapping-tables.
 
-;; Copyright (C) 2002,2003,2004 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: mapping table, character, CCS, multiscript, multilingual
@@ -149,6 +149,8 @@ UCS-REGEXP is a regular expression to match against
                             (encode-char chr '=ucs@jis/fw 'defined-only))
                            ((eq ucs-ccs '=ucs@gb)
                             (encode-char chr '=ucs@gb/fw 'defined-only))
+                            ;; ((eq ucs-ccs '=ucs@big5)
+                            ;;  nil)
                            (t
                             (char-feature chr '=>ucs))))
                          ucs-code)))