From 37eaf3e683e280e5f8b5d7da7ca1ce70ef551cf3 Mon Sep 17 00:00:00 2001 From: rubikitch Date: Fri, 23 Jul 2010 06:42:20 +0900 Subject: [PATCH] anything-config.el (anything-c-source-file-cache): reformat --- anything-config.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/anything-config.el b/anything-config.el index fd67ddb..ce0f747 100644 --- a/anything-config.el +++ b/anything-config.el @@ -2114,17 +2114,18 @@ INITIAL-INPUT is a valid path, TEST is a predicate that take one arg." (defvar anything-c-source-file-cache '((name . "File Cache") - (init . (lambda () - (require 'filecache nil t) - (unless anything-c-source-file-cache-initialized - (setq anything-c-file-cache-files - (loop for item in file-cache-alist append - (destructuring-bind (base &rest dirs) item - (loop for dir in dirs collect - (concat dir base))))) - (defadvice file-cache-add-file (after file-cache-list activate) - (add-to-list 'anything-c-file-cache-files (expand-file-name file))) - (setq anything-c-source-file-cache-initialized t)))) + (init + . (lambda () + (require 'filecache nil t) + (unless anything-c-source-file-cache-initialized + (setq anything-c-file-cache-files + (loop for item in file-cache-alist append + (destructuring-bind (base &rest dirs) item + (loop for dir in dirs collect + (concat dir base))))) + (defadvice file-cache-add-file (after file-cache-list activate) + (add-to-list 'anything-c-file-cache-files (expand-file-name file))) + (setq anything-c-source-file-cache-initialized t)))) (candidates . anything-c-file-cache-files) (match anything-c-match-on-file-name anything-c-match-on-directory-name) -- 2.11.4.GIT