From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 19 Sep 2024 04:34:10 +0000 (+0900)
Subject: (ids-dump-format-list): Don't convert representative glyph-objects of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e388b89d34882ab640d382d5181b1188e0b37b3;p=chise%2Fids.git

(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.
---

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 <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo.git@chise.org>
 ;; 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))