X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=media.el;h=d3809705825980b04205c40d984fcc6ae5d4a81b;hp=b7b1a4e0c8ef599ffaf7aad10597a8ccb6446c6c;hb=ddf333570e530f70377b80ebe82c3019cd8a8547;hpb=1ecbbd03909c6f7dda43117d8e8054a39427cb61 diff --git a/media.el b/media.el index b7b1a4e..d380970 100644 --- a/media.el +++ b/media.el @@ -53,7 +53,7 @@ (defgroup media () "Major mode to control media players" - :version "1.2.1") + :version "1.2.2") (defcustom media/player-api "media-mplayer" "The file to load for the abstract layer with the media player." @@ -620,9 +620,11 @@ returns nil if no id3 tags could be found." (title (or (and (consp c) (cdr c)) url))) (if (string-match "^\\(http\\|mms\\)://" url) (media/insert-url (cons url title) 0) - (if (file-regular-p url) (media/insert-file url 0) - (if (file-directory-p url) (media/insert-dir url 0) - (error "Unknown type `%s'" url)))))) + (if (file-exists-p url) + (if (file-regular-p url) (media/insert-file url 0) + (if (file-directory-p url) (media/insert-dir url 0) + (error "Unknown type `%s'" url)))) + ))) list)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;