-(defun isd-turtle-format-ccs-code-point (ccs code-point)
- (unless (memq ccs isd-turtle-ccs-list)
- (setq isd-turtle-ccs-list (cons ccs isd-turtle-ccs-list)))
- (format "%s:%s"
- (isd-turtle-uri-encode-feature-name ccs)
- (format (charset-code-point-format-spec ccs)
- code-point)))
+;; (defun isd-turtle-format-ccs-code-point (ccs code-point)
+;; (unless (memq ccs isd-turtle-ccs-list)
+;; (setq isd-turtle-ccs-list (cons ccs isd-turtle-ccs-list)))
+;; (format "%s:%s"
+;; (isd-turtle-uri-encode-feature-name ccs)
+;; (format (charset-code-point-format-spec ccs)
+;; code-point)))
+(defun chise-turtle-format-ccs-code-point (ccs code-point)
+ (let ((ccs-uri (chise-turtle-uri-encode-ccs-name ccs)))
+ (unless (assoc ccs-uri chise-turtle-ccs-prefix-alist)
+ (setq chise-turtle-ccs-prefix-alist
+ (cons (cons ccs-uri ccs)
+ chise-turtle-ccs-prefix-alist)))
+ (format "%s:%s"
+ ccs-uri
+ (format (charset-code-point-format-spec ccs)
+ code-point))))