From 9e388b89d34882ab640d382d5181b1188e0b37b3 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 19 Sep 2024 13:34:10 +0900 Subject: [PATCH] (ids-dump-format-list): Don't convert representative glyph-objects of Unicode 2.0 and ISO/IEC 10646-2:2001 into the corresponding UCS abstract characters. --- ids-dump.el | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/ids-dump.el b/ids-dump.el index e531c16..92c92bb 100644 --- a/ids-dump.el +++ b/ids-dump.el @@ -1,8 +1,8 @@ ;;; ids-dump.el --- Dump utility of IDS-* files -;; Copyright (C) 2002,2003,2004,2005,2009,2011,2019,2022 MORIOKA Tomohiko +;; Copyright (C) 2002,2003,2004,2005,2009,2011,2019,2022,2024 MORIOKA Tomohiko -;; Author: MORIOKA Tomohiko +;; Author: MORIOKA Tomohiko ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode ;; This file is a part of IDS. @@ -28,17 +28,18 @@ (defun ids-dump-format-list (ids-list) (if ids-list - (let (ucs) - (mapconcat - (lambda (c) - (char-to-string - (if (setq ucs - (unless (encode-char c '=ucs 'defined-only) - (or (get-char-attribute c '=ucs@unicode) - (get-char-attribute c '=ucs@iso)))) - (decode-char '=ucs ucs) - c))) - (ids-format-list ids-list) "")))) + ;; (let (ucs) + ;; (mapconcat + ;; (lambda (c) + ;; (char-to-string + ;; (if (setq ucs + ;; (unless (encode-char c '=ucs 'defined-only) + ;; (or (get-char-attribute c '=ucs@unicode) + ;; (get-char-attribute c '=ucs@iso)))) + ;; (decode-char '=ucs ucs) + ;; c))) + (ids-format-list ids-list) ; "")) + )) (defun ids-dump-insert-line (ccs line-spec code) (let ((chr (decode-char ccs code)) -- 1.7.10.4