From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 27 Feb 2017 11:04:41 +0000 (+0900)
Subject: (isd-turtle-uri-encode-feature-name): Use "a.ucs" instead of `ucs' for
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ae38091eee1b60b7e68e2d2346e0ddaaaaa9aee;p=chise%2Fisd.git

(isd-turtle-uri-encode-feature-name): Use "a.ucs" instead of `ucs' for
`=ucs'.
(isd-turtle-encode-char): Likewise.
---

diff --git a/isd-turtle.el b/isd-turtle.el
index f20c817..d13bea5 100644
--- a/isd-turtle.el
+++ b/isd-turtle.el
@@ -86,9 +86,9 @@
 (defun isd-turtle-uri-encode-feature-name (feature-name)
   (cond
    ((eq '=ucs feature-name)
-    'ucs)
+    "a.ucs")
    ((eq '==>ucs@bucs feature-name)
-    'bucs)
+    "bucs")
    (t
     (mapconcat (lambda (c)
 		 (if (eq c ?@)
@@ -108,7 +108,7 @@
 	ccs ret)
     (if (setq ret (encode-char object '=ucs))
 	(prog1
-	    (format "ucs:0x%04X" ret)
+	    (format "a.ucs:0x%04X" ret)
 	  (unless (memq '=ucs isd-turtle-ccs-list)
 	    (setq isd-turtle-ccs-list (cons '=ucs isd-turtle-ccs-list))))
       (while (and ccs-list