diff options
author | Michael Olson <mwolson@gnu.org> | 2007-05-15 12:45:00 +0000 |
---|---|---|
committer | Michael Olson <mwolson@gnu.org> | 2007-05-15 12:45:00 +0000 |
commit | a1e0284395d623706d797bc8110e59298865c999 (patch) | |
tree | 770aac983f2e32b37747dcde459a3a6a9941f113 | |
parent | 3fff71cac113718bc0186a4d20a7b2592b6bc63d (diff) |
emms-player-mplayer: Use emms-remove-if-not
emms-remove-if-not is to be used instead of remove-if-not, because the
latter is only available in the CL library, and we're not supposed to
depend on that if our code gets included in Emacs.
darcs-hash:20070515124505-1bfb2-b4517be2f6d6454c584791c350bbec7d67d9ff81.gz
-rw-r--r-- | emms-player-mplayer.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/emms-player-mplayer.el b/emms-player-mplayer.el index c7fbffd..fe7a100 100644 --- a/emms-player-mplayer.el +++ b/emms-player-mplayer.el @@ -28,6 +28,7 @@ ;;; Code: +(require 'emms-compat) (require 'emms-player-simple) (define-emms-simple-player mplayer '(file url) @@ -81,7 +82,7 @@ (sub (replace-regexp-in-string (concat ext "$") "sub" name)) ;; TODO, script for chinese, gb, big, etc. (srt (replace-regexp-in-string (concat ext "$") "srt" name)) - (choices (remove-if-not 'file-exists-p (list sub srt))) + (choices (emms-remove-if-not 'file-exists-p (list sub srt))) (subtitle nil)) (cond ((> (length choices) 1) (setq subtitle |