From 0a2a9b02e30a9d9755102a07a41cac8bddccdab9 Mon Sep 17 00:00:00 2001
From: mlang <mlang>
Date: Wed, 21 Feb 2007 14:05:00 +0000
Subject: Speed up emms-play-directory-tree by about factor 10

Most of the speedup comes from using nconc in later-do instead
of append (and therefore, not excessively copying lists).
I see a factor of 10 speedup when generating the playlist
for 37000 audio files.

darcs-hash:20070221140553-08870-162cb94182e5e4947a0972a67b9229db8899e7cd.gz
---
 later-do.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'later-do.el')

diff --git a/later-do.el b/later-do.el
index 6c98da0..8c04c1d 100644
--- a/later-do.el
+++ b/later-do.el
@@ -52,7 +52,7 @@ time after this call, and definitely not while lisp is still
 executing.
 Code added using `later-do' is guaranteed to be executed in the
 sequence it was added."
-  (setq later-do-list (append later-do-list
+  (setq later-do-list (nconc later-do-list
                               (list (cons function args))))
   (unless later-do-timer
     (setq later-do-timer
-- 
cgit v1.2.3