file-cache にファイルを追加

(require 'filecache)
(file-cache-add-file-list
 (list "~/.emacs")) ;; ファイルを追加

これやけばこんなことやらなくてもよかった。
るびきちさんから

とあったが、ディレクトリを補完したときにTAB入力したら掘って欲しいので
anything-filelist+ではなくて、anything-finf-fileの中身をコピーして

(defun my-anything-find-file ()
  "Replacement of `find-file'."
  (interactive)
  (let
      ((anything-map (anything-read-file-name-map))
       anything-read-file-name-follow-directory uses these variables
       (prompt "Find File: ")
       default-filename require-match predicate
       (additional-attrs '(;; because anything-c-skip-boring-files cannot
                           ;; handle (display . real) candidates
                           (candidate-transformer)
                           (type . file)))
       )
    (anything-other-buffer '(
;;                             anything-c-source-my-emacs-path
                             anything-c-source-file-cache
                             anything-c-source-ffap-line
                             anything-c-source-ffap-guesser
                             ;;anything-c-source-find-files
                             anything-c-source-files-in-current-dir
                             ;;anything-c-source-buffers+
                             anything-c-source-buffer-not-found
                             ;;anything-c-source-recentf
                             anything-c-source-bookmarks
                             anything-c-source-elisp-library-scan
                             anything-c-source-filelist
                             )
                           "*anything find-file*"))

これにすればTABで掘れる。
本当はちゃんと書ければいいだろうけど、コピペ野郎なんで・・・。