Make emms-cache and emms-browser work with XEmacs.

darcs-hash:20060702001247-1bfb2-987d207f3c007211aae68e8061a2a16fdc6960a7.gz

1 files changed, 7 insertions, 2 deletions

diff --git a/emms-cache.el b/emms-cache.el
index fa5bacf..441e70e 100644
--- a/emms-cache.el
+++ b/emms-cache.el
@@ -42,8 +42,13 @@
 
 (require 'emms)
 
-(define-hash-table-test 'string-hash 'string= 'sxhash)
-(defvar emms-cache-db (make-hash-table :test 'string-hash)
+(when (fboundp 'define-hash-table-test)
+  (define-hash-table-test 'string-hash 'string= 'sxhash))
+
+(defvar emms-cache-db (make-hash-table
+                       :test (if (fboundp 'define-hash-table-test)
+                                 'string-hash
+                               'equal))
   "A mapping of paths to file info.
 This is used to cache over emacs sessions.")