(www-display-char-desc): Use `char-feature-name-sans-versions' to

[chise/est.git] / cwiki-view.el

diff --git a/cwiki-view.el b/cwiki-view.el
index 4834330..76ce3f3 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -50,7 +50,9 @@
          (princ "<ul>"))
       (dolist (cell (sort (char-attribute-alist char)
                          (lambda (a b)
-                           (char-attribute-name< (car a)(car b)))))
+                           (char-attribute-name<
+                            (char-feature-name-sans-versions (car a))
+                            (char-feature-name-sans-versions (car b))))))
        (setq logical-feature (char-feature-name-sans-versions (car cell)))
        (unless (memq logical-feature displayed-features)
          (push logical-feature displayed-features)