aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlucas <lucas>2005-11-03 18:38:00 +0000
committerlucas <mwolson@gnu.org>2005-11-03 18:38:00 +0000
commit57cb82e43e2bd9682b4391be4d60ba93a002afd2 (patch)
treef32f9f6dc65237adc610a55625d63a768d39c14d
parent72a409fb89cce29c8ee73c27f0d0f9dccdec7cfc (diff)
Added a hook for emms-streams
darcs-hash:20051103183801-4f952-73e9e94c3aa34773c1e09eb37b0aec4188bd682f.gz
-rw-r--r--emms-streams.el4
1 files changed, 4 insertions, 0 deletions
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 ()