From 921bc18f85725299a0ccdef54e6cda3d33afb747 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Mon, 8 Jan 2007 19:13:00 +0000 Subject: emms-streams: Make sure type is a symbol, not a string darcs-hash:20070108191308-1bfb2-f750982c6594b9b829cf0fe07ca3a084994681ff.gz --- emms-streams.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/emms-streams.el b/emms-streams.el index 3bb62e3..93c7d84 100644 --- a/emms-streams.el +++ b/emms-streams.el @@ -292,6 +292,10 @@ POPUP-HEIGHT is the height of the new frame, defaulting to (if (not firstp) (insert "\n ") (setq firstp nil)) + ;; make sure type identifier is a symbol, not a string + (when (stringp (nth 3 stream)) + (setq stream (copy-alist stream)) + (setcar (nthcdr 3 stream) (intern (nth 3 stream)))) (prin1 stream buffer))) (insert ")\n") (save-buffer) @@ -389,6 +393,7 @@ Don't forget to run `emms-stream-save-bookmarks-file' after !" "Type (url, streamlist, or lastfm): " (mapcar #'list '("url" "streamlist" "lastfm"))))) (unless fd (setq fd (emms-stream-determine-fd name))) + (when (stringp type) (setq type (intern type))) (let* ((line (emms-line-number-at-pos (point))) (index (+ (/ line 2) 1))) (setq emms-stream-list (emms-stream-insert-at index (list name url fd type) -- cgit v1.2.3