From: ueno <ueno>
Date: Fri, 26 Aug 2005 06:07:55 +0000 (+0000)
Subject: Sort add-ons.
X-Git-Tag: channel-coding-branchpoint~66
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7616551e19042b6159ae1ccb97e6d39b696462bc;p=elisp%2Friece.git

Sort add-ons.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index eee7d64..29a5e08 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -303,7 +303,10 @@ All normal editing commands are turned off."
       (setq pointer (cdr pointer)))
     (erase-buffer)
     (riece-kill-all-overlays)
-    (setq pointer module-description-alist)
+    (setq pointer (sort module-description-alist
+			(lambda (entry1 entry2)
+			  (string-lessp (symbol-name (car entry1))
+					(symbol-name (car entry2))))))
     (while pointer
       (setq enabled (intern-soft (concat (symbol-name (car (car pointer)))
 					 "-enabled")))
@@ -326,7 +329,7 @@ Symbols in the leftmost column:
   +     The add-on is enabled.
   -     The add-on is disabled.
   !	The add-on doesn't support enable/disable operation.
-  ?	The add-on status is unknown.
+  ?	The add-on is not loaded.
 ")
     (insert (substitute-command-keys "
 Useful keys: