* lisp/custom.el (custom-available-themes): Return themes in alphabetical order.

2bb5649e · Chong Yidong · 0d53df48 · 2bb5649e · 2bb5649e
Commit 2bb5649e authored Mar 07, 2011 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/custom.el lisp/custom.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2011-03-08  Chong Yidong  <cyd@stupidchicken.com>
+
+	* custom.el (custom-available-themes): Return themes in
+	alphabetical order.
+
 2011-03-07  Chong Yidong  <cyd@stupidchicken.com>
  
 	* progmodes/cc-cmds.el (c-beginning-of-statement): Fix incorrect

--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -1219,7 +1219,7 @@ NAME should be a symbol."
 	       (setq sym (intern (match-string 1 file)))
 	       (custom-theme-name-valid-p sym)
 	       (push sym themes)))))
-    (delete-dups themes)))
+    (nreverse (delete-dups themes))))

 (defun custom-theme--load-path ()
  (let (lpath)