From 6bd53f5563cc1a4cfe9cb50b54e9f14e289a9f45 Mon Sep 17 00:00:00 2001 From: lucas Date: Thu, 20 Apr 2006 22:41:00 +0000 Subject: emms-metaplaylist-mode.el: new function : emms-metaplaylist-set-active to set the active playlist buffer from the metaplaylist menu darcs-hash:20060420224114-4f952-b6612b4c3c720fb6799f43796603b096ac6ab513.gz --- emms-metaplaylist-mode.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/emms-metaplaylist-mode.el b/emms-metaplaylist-mode.el index df7c2b0..c40cae4 100644 --- a/emms-metaplaylist-mode.el +++ b/emms-metaplaylist-mode.el @@ -81,6 +81,7 @@ (define-key map (kbd "RET") 'emms-metaplaylist-mode-goto-current) (define-key map (kbd "q") 'kill-this-buffer) (define-key map (kbd "?") 'describe-mode) + (define-key map (kbd "SPC") 'emms-metaplaylist-set-active) map) "Keymap for `emms-metaplaylist-mode'.") @@ -151,6 +152,14 @@ to host EMMS tracks." (setq emms-playlist-buffer-p t))) (message "Buffer created"))) +(defun emms-metaplaylist-set-active () + (interactive) + (emms-playlist-set-playlist-buffer + (get-buffer (buffer-substring (point-at-bol) (point-at-eol)))) + (let ((ici (point))) + (emms-metaplaylist-mode-go) + (goto-char ici))) + ;;; -------------------------------------------------------- ;;; Mode entry ;;; -------------------------------------------------------- -- cgit v1.2.3