Mark the cache as dirty for each modification.

darcs-hash:20060607161049-2189f-293b55878f4a073640a397e4b2aa563c3bf785d6.gz

1 files changed, 6 insertions, 1 deletions

diff --git a/emms-cache.el b/emms-cache.el
index be6c7ae..2366075 100644
--- a/emms-cache.el
+++ b/emms-cache.el
@@ -38,6 +38,7 @@
 ;; (add-hook 'kill-emacs-hook 'emms-cache-save)
 ;; (setq emms-cache-get-function 'emms-cache-get)
 ;; (setq emms-cache-set-function 'emms-cache-set)
+;; (setq emms-cache-modified-function 'emms-cache-dirty)
 
 ;;; Code:
 
@@ -52,6 +53,10 @@ This is used to cache over emacs sessions.")
 (defvar emms-cache-dirty nil
   "True if the cache has been updated since init.")
 
+(defun emms-cache-dirty (&rest ignored)
+  "Mark the cache as dirty."
+  (setq emms-cache-dirty t))
+
 (defun emms-cache-get (type path)
   "Return a cache element for PATH, or nil."
   (gethash path emms-cache-db))
@@ -59,7 +64,7 @@ This is used to cache over emacs sessions.")
 (defun emms-cache-set (type path track)
   "Set PATH to TRACK in the cache."
   (puthash path track emms-cache-db)
-  (setq emms-cache-dirty t))
+  (emms-cache-dirty))
 
 (defun emms-cache-save ()
   "Save the track cache to a file."