From 641f154a3b0019df4f69254a10045a8e435bd503 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 16 Dec 2018 23:37:20 +0900 Subject: [PATCH] (chise-turtle-uri-encode-ccs-name): It has been defined in chiset-common.el. --- isd-turtle.el | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) 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) -- 1.7.10.4