New var: emms-playlist-limit-hook.

darcs-hash:20071121113028-cfa61-136ae25deb325c413688a975e09622d9a05f8b65.gz

1 files changed, 10 insertions, 0 deletions

diff --git a/emms-playlist-limit.el b/emms-playlist-limit.el
index a8c40f8..b79d45c 100644
--- a/emms-playlist-limit.el
+++ b/emms-playlist-limit.el
@@ -26,6 +26,15 @@
 
 ;;; User Interfaces
 
+(defgroup emms-playlist-limit nil
+  "Playlist limit module for EMMS."
+  :group 'emms)
+
+(defcustom emms-playlist-limit-hook nil
+  "Hooks to run after each limit operations."
+  :type 'symbol
+  :group 'emms-playing-limit)
+
 (defvar emms-playlist-limit-enabled-p nil
   "If non-nil, emms playlist limit is enabled.")
 
@@ -159,6 +168,7 @@ See `emms-info-mp3find-arguments' for possible options for NAME."
         (if pos
             (emms-playlist-select pos)
           (emms-playlist-first)))
+      (run-hooks 'emms-playlist-limit-hook)
       (emms-playlist-mode-center-current))))