Add `emms-playlist-buffer-p'.

darcs-hash:20050915192621-2189f-77ac4024f5f200c66441c741adb7fd7fb16f7aee.gz

1 files changed, 5 insertions, 0 deletions

diff --git a/emms.el b/emms.el
index b94b2d9..683e4ae 100644
--- a/emms.el
+++ b/emms.el
@@ -400,6 +400,10 @@ Otherwise, return the type and the name with a colon in between."
   "The marker for the currently selected track.")
 (make-variable-buffer-local 'emms-playlist-selected-marker)
 
+(defvar emms-playlist-buffer-p nil
+  "Non-nil when the current buffer is an EMMS playlist.")
+(make-variable-buffer-local 'emms-playlist-buffer-p)
+
 (defun emms-playlist-set-playlist-buffer (&optional buffer)
   "Set the current playlist buffer."
   (interactive "bNew playlist buffer: ")
@@ -427,6 +431,7 @@ used, and the contents removed."
                        (point-max)))
       (when (not (eq major-mode emms-playlist-default-major-mode))
         (funcall emms-playlist-default-major-mode))
+      (setq emms-playlist-buffer-p t)
       (run-hooks 'emms-playlist-cleared-hook))
     (setq emms-playlist-buffer buf)))