(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 (file)
--- 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)