From 9390fc321a233787dcb2dfc9426f7468c32153bc Mon Sep 17 00:00:00 2001 From: David Engster Date: Wed, 10 Mar 2010 18:37:30 +0100 Subject: lisp/emms-cache.el: Initialize cache immediately instead of using after-init-hook. * emms-cache.el (emms-cache): Call emms-cache-restore directly instead of using after-init-hook. --- lisp/emms-cache.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emms-cache.el') 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) -- cgit v1.2.3