diff options
| author | lucas <lucas> | 2005-11-03 18:38:00 +0000 |
|---|---|---|
| committer | lucas <mwolson@gnu.org> | 2005-11-03 18:38:00 +0000 |
| commit | 57cb82e43e2bd9682b4391be4d60ba93a002afd2 (patch) | |
| tree | f32f9f6dc65237adc610a55625d63a768d39c14d | |
| parent | 72a409fb89cce29c8ee73c27f0d0f9dccdec7cfc (diff) | |
Added a hook for emms-streams
darcs-hash:20051103183801-4f952-73e9e94c3aa34773c1e09eb37b0aec4188bd682f.gz
| -rw-r--r-- | emms-streams.el | 4 |
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 () |