From f797263d20955756cef4047d71b9232ed3df6bdc Mon Sep 17 00:00:00 2001 From: forcer Date: Thu, 15 Sep 2005 19:26:00 +0000 Subject: Add `emms-playlist-buffer-p'. darcs-hash:20050915192621-2189f-77ac4024f5f200c66441c741adb7fd7fb16f7aee.gz --- emms.el | 5 +++++ 1 file changed, 5 insertions(+) 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))) -- cgit v1.2.3