From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 16 Dec 2018 14:37:20 +0000 (+0900)
Subject: (chise-turtle-uri-encode-ccs-name): It has been defined in
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=641f154a3b0019df4f69254a10045a8e435bd503;p=chise%2Ftomoyo-tools.git

(chise-turtle-uri-encode-ccs-name): It has been defined in
chiset-common.el.
---

diff --git a/isd-turtle.el b/isd-turtle.el
index d85dfe7..11bd650 100644
--- a/isd-turtle.el
+++ b/isd-turtle.el
@@ -1,4 +1,4 @@
-;;; isd-turtle.el --- Utility to dump ideographic-structure as Turtle files
+;;; isd-turtle.el --- Utility to dump ideographic-structure as Turtle files; -*- coding: utf-8-mcs-er -*-
 
 ;; Copyright (C) 2017, 2018 MORIOKA Tomohiko
 
@@ -204,27 +204,6 @@
 ;;                    (char-to-string c)))
 ;;                (www-uri-encode-feature-name feature-name)
 ;;                ""))))
-(defun chise-turtle-uri-encode-ccs-name (feature-name)
-  (cond
-   ((eq '=ucs feature-name)
-    "a.ucs")
-   ((eq '=big5 feature-name)
-    "a.big5")
-   ((eq '==>ucs@bucs feature-name)
-    "bucs")
-   (t
-    (mapconcat (lambda (c)
-		 (cond
-		  ((eq c ?@)
-		   "_")
-		  ((eq c ?+)
-		   "._.")
-		  ((eq c ?=)
-		   ".:.")
-		  (t
-		   (char-to-string c))))
-	       (www-uri-encode-feature-name feature-name)
-	       ""))))
 
 ;; (defun isd-turtle-format-ccs-code-point (ccs code-point)
 ;;   (unless (memq ccs isd-turtle-ccs-list)