* emms-cache.el (emms-cache): Call emms-cache-restore directly instead
of using after-init-hook.
---
lisp/emms-cache.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emms-cache.el b/lisp/emms-cache.el
index 35221b3..2262c7c 100644
--- a/lisp/emms-cache.el
+++ b/lisp/emms-cache.el
@@ -71,12 +71,12 @@ This is used to cache over emacs sessions.")
(interactive "p")
(if (and arg (> arg 0))
(progn
- (add-hook 'after-init-hook 'emms-cache-restore)
+ (unless emms-cache-dirty
+ (emms-cache-restore))
(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))
- (remove-hook 'after-init-hook 'emms-cache-restore)
(remove-hook 'kill-emacs-hook 'emms-cache-save)
(setq emms-cache-get-function nil)
(setq emms-cache-set-function nil)
--
debian.1.5.6.1.19.ge6b2
_______________________________________________
Emms-patches mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emms-patches
