anything-find-file (anyting-complete.el) のc-sourcesの先頭に要素を追加

anything-find-fileでカーソル位置のファイル(ffap-line、ffap-guesser)を開くとかしたいと思うんだ。C-x C-fはファイルを開くキーバインドだし。

  ;; anything-find-file setting.
  (setq anything-find-file-additional-sources-at-first
        '(anything-c-source-ffap-line
          anything-c-source-ffap-guesser))
  (setq anything-find-file-additional-sources
        '(anything-c-source-locate))
  (defadvice arfn-sources
    (after additional-arfn-sources-at-first activate)
    "Add additional sources at first."
    (setq ad-return-value
          (append anything-find-file-additional-sources-at-first
                  ad-return-value)))
  ;;(ad-deactivate 'arfn-sources)