From 52e62451e8c5c90378a57e1ed569f605112896ac Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 14 Mar 2003 13:48:00 +0000 Subject: [PATCH] (ids-parse-terminal): Use `encode-char' instead of `get-char-attribute'; use `=ucs' and `=big5-cdp' instead of `ucs' and `chinese-big5-cdp'. (ids-parse-op-2): Use `encode-char' instead of `get-char-attribute'; use `=ucs' instead of `ucs'. --- ids.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ids.el b/ids.el index dc064be..7ce7a81 100644 --- a/ids.el +++ b/ids.el @@ -1,6 +1,6 @@ ;;; ids.el --- Parser and utility for Ideographic Description Sequence. -;; Copyright (C) 2001,2002 MORIOKA Tomohiko +;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode @@ -32,19 +32,19 @@ (defun ids-parse-terminal (string) (if (>= (length string) 1) (let* ((chr (aref string 0)) - (ucs (get-char-attribute chr 'ucs)) + (ucs (encode-char chr '=ucs 'defined-only)) big5) (unless (and ucs (<= #x2FF0 ucs)(<= ucs #x2FFF)) (if (and ucs (<= #xE000 ucs)(<= ucs #xF8FF) - (setq big5 (get-char-attribute chr 'chinese-big5))) - (setq chr (decode-char 'chinese-big5-cdp big5))) + (setq big5 (encode-char chr 'chinese-big5))) + (setq chr (decode-char '=big5-cdp big5))) (cons chr (substring string 1)))))) (defun ids-parse-op-2 (string) (if (>= (length string) 1) (let* ((chr (aref string 0)) - (ucs (get-char-attribute chr 'ucs))) + (ucs (encode-char chr '=ucs 'defined-only))) (if (or (eq ucs #x2FF0) (eq ucs #x2FF1) (and (<= #x2FF4 ucs)(<= ucs #x2FFB))) -- 1.7.10.4