aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2007-05-15 12:45:00 +0000
committerMichael Olson <mwolson@gnu.org>2007-05-15 12:45:00 +0000
commita1e0284395d623706d797bc8110e59298865c999 (patch)
tree770aac983f2e32b37747dcde459a3a6a9941f113
parent3fff71cac113718bc0186a4d20a7b2592b6bc63d (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.el3
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