aboutsummaryrefslogtreecommitdiff
path: root/emms-source-file.el
diff options
context:
space:
mode:
authorforcer <forcer>2006-06-05 05:33:00 +0000
committerforcer <mwolson@gnu.org>2006-06-05 05:33:00 +0000
commit289268618b6a6edd6b5183fb363b15b3124854a9 (patch)
treec8fa1906e543a8872f63d51ce529de74a7d754c0 /emms-source-file.el
parentc275727ea01b65c94c253e8649b7035d37bf67e1 (diff)
Sort file names from `emms-source-file-directory-tree-function'.
darcs-hash:20060605053347-2189f-e2161a5d791596968f9d9e83c004451592324550.gz
Diffstat (limited to 'emms-source-file.el')
-rw-r--r--emms-source-file.el7
1 files changed, 4 insertions, 3 deletions
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))