From aa8879bec08594933daa9a5850594e0866fa2957 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 26 Oct 2005 14:06:35 +0000 Subject: [PATCH] Fix code to read etc/char-data/GT-RS.txt. --- lisp/utf-2000/isolated-char.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el index 37209ca..e3b108b 100644 --- a/lisp/utf-2000/isolated-char.el +++ b/lisp/utf-2000/isolated-char.el @@ -1,24 +1,24 @@ ;;; isolated-char.el --- Set up isolated-characters. -;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko +;; Copyright (C) 2001,2002,2003,2005 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko ;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual -;; This file is part of XEmacs UTF-2000. +;; This file is part of XEmacs CHISE. -;; XEmacs UTF-2000 is free software; you can redistribute it and/or +;; XEmacs CHISE is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2, or (at ;; your option) any later version. -;; XEmacs UTF-2000 is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; XEmacs CHISE is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with XEmacs UTF-2000; see the file COPYING. If not, write to +;; along with XEmacs CHISE; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. @@ -176,7 +176,7 @@ (insert-file-contents "../etc/char-data/GT-RS.txt") (goto-char (point-min)) (let (gt-code radical strokes plane code) - (while (re-search-forward "\\([0-9]+\\),\\([0-9]+\\)?,\\([0-9]+\\)?,GT\\([0-9]+\\),....,\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" nil t) + (while (re-search-forward "\\([0-9]+\\),\\([0-9]+\\|---\\)?,\\([0-9]+\\)?,GT\\([0-9]+\\),....,\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" nil t) (setq gt-code (string-to-int (match-string 1)) plane (string-to-int (match-string 4)) code (string-to-int (match-string 5) 16)) -- 1.7.10.4