- (www-format-encode-string
- (cond
- ((or (and lang
- (char-feature-property
- feature-name
- (intern (format "name@%s" lang))))
- (char-feature-property
- feature-name 'name)))
- ((find-charset feature-name)
- (www-format-feature-name-as-CCS feature-name))
- ((and (setq name (symbol-name feature-name))
- (string-match "^\\(->\\)" name))
- (www-format-feature-name-as-rel-to feature-name))
- ((string-match "^\\(<-\\)" name)
- (www-format-feature-name-as-rel-from feature-name))
- (t
- (www-format-feature-name-default feature-name))))))
+ (cond
+ ((or (and lang
+ (char-feature-property
+ feature-name
+ (intern (format "name@%s" lang))))
+ (char-feature-property
+ feature-name 'name)))
+ ((find-charset feature-name)
+ (www-format-feature-name-as-CCS feature-name))
+ ((and (setq name (symbol-name feature-name))
+ (string-match "^\\(->\\)" name))
+ (www-format-feature-name-as-rel-to feature-name))
+ ((string-match "^\\(<-\\)" name)
+ (www-format-feature-name-as-rel-from feature-name))
+ (t
+ (www-format-feature-name-default feature-name)))))
+
+(defun www-format-feature-name (feature-name &optional lang)
+ (www-format-encode-string
+ (www-format-feature-name* feature-name lang)))