From 289268618b6a6edd6b5183fb363b15b3124854a9 Mon Sep 17 00:00:00 2001 From: forcer Date: Mon, 5 Jun 2006 05:33:00 +0000 Subject: Sort file names from `emms-source-file-directory-tree-function'. darcs-hash:20060605053347-2189f-e2161a5d791596968f9d9e83c004451592324550.gz --- emms-source-file.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'emms-source-file.el') diff --git a/emms-source-file.el b/emms-source-file.el index c234d04..6382780 100644 --- a/emms-source-file.el +++ b/emms-source-file.el @@ -178,9 +178,10 @@ value of `emms-source-file-default-directory'." "Return a list of all files under DIR that match REGEX. This function uses `emms-source-file-directory-tree-function'." (message "Building playlist...") - (let ((pl (funcall emms-source-file-directory-tree-function - dir - regex))) + (let ((pl (sort (funcall emms-source-file-directory-tree-function + dir + regex) + 'string<))) (message "Building playlist...done") pl)) -- cgit v1.2.3