diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emms-cache.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/emms-cache.el b/lisp/emms-cache.el index 4e45eda..792b1b8 100644 --- a/lisp/emms-cache.el +++ b/lisp/emms-cache.el @@ -179,5 +179,17 @@ been modified." (setq emms-cache-dirty t))) (message "Syncing emms track cache...done")) +(defun emms-cache-reset () + "Reset the cache." + (interactive) + (when (yes-or-no-p "Really reset the cache?") + (setq emms-cache-db + (make-hash-table + :test (if (fboundp 'define-hash-table-test) + 'string-hash + 'equal))) + (setq emms-cache-dirty t) + (emms-cache-save))) + (provide 'emms-cache) ;;; emms-cache.el ends here |