Michael Olson <[EMAIL PROTECTED]> writes: > Here's another version. Please let me know if this breaks anything > that you use. I'm wrapping kill-all-local-variables to prevent the > value of emms-playlist-buffer-p from getting clobbered.
Hmm ... that version didn't seem to do what I wanted after all.
Here's something that *does* work for me. It's not quite as graceful,
though.
(defun emms-playlist-mode ()
"A major mode for Emms playlists."
(interactive)
(let ((val emms-playlist-buffer-p))
(kill-all-local-variables)
(setq emms-playlist-buffer-p val))
(use-local-map emms-playlist-mode-map)
(setq major-mode 'emms-playlist-mode
mode-name "Emms-Playlist")
(setq emms-playlist-insert-track-function
'emms-playlist-mode-insert-track)
(setq emms-playlist-update-track-function
'emms-playlist-mode-update-track-function)
;; Not used yet
;; (setq emms-playlist-delete-track-function
;; ...)
(add-hook 'emms-playlist-selection-changed-hook
'emms-playlist-mode-overlay-selected)
(emms-playlist-mode-startup)
(run-hooks 'emms-playlist-mode-hooks))
--
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: anime, Debian, XHTML, wiki, Emacs Lisp
/` |\ | | | IRC: mwolson on freenode.net: #hcoop, #muse, #PurdueLUG
|_] | \| |_| Jabber: mwolson_at_hcoop.net
pgpcXmU0qVlGU.pgp
Description: PGP signature
_______________________________________________ Emms-help mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emms-help
