From 57cb82e43e2bd9682b4391be4d60ba93a002afd2 Mon Sep 17 00:00:00 2001
From: lucas <lucas>
Date: Thu, 3 Nov 2005 18:38:00 +0000
Subject: Added a hook for emms-streams

darcs-hash:20051103183801-4f952-73e9e94c3aa34773c1e09eb37b0aec4188bd682f.gz
---
 emms-streams.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/emms-streams.el b/emms-streams.el
index a52e0f8..c4ec88d 100644
--- a/emms-streams.el
+++ b/emms-streams.el
@@ -36,6 +36,9 @@
 (defvar emms-stream-play-hook nil
   "*A hook run when you add or play an EMMS stream via the popup.")
 
+(defvar emms-stream-hook nil
+"*A hook run when you call emms-streams or emms-stream-popup.")
+
 (defvar emms-stream-current-stream nil
   "The stream currently being played.
 Needed by the info method, as the track doesn't contain all the
@@ -163,6 +166,7 @@ If POS is nil, use current buffer location."
   (goto-char 1)
   (emms-stream-display)
   (toggle-read-only 1)
+  (run-hooks 'emms-stream-hook)
   (message "EMMS Stream Menu"))
 
 (defun emms-stream-popup-revert ()
-- 
cgit v1.2.3