emms-streams: Make sure type is a symbol, not a string

darcs-hash:20070108191308-1bfb2-f750982c6594b9b829cf0fe07ca3a084994681ff.gz

1 files changed, 5 insertions, 0 deletions

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)