 ;;  `anything-su-or-sudo'
 ;;    What command to use for root access.
 ;;    default = "su"
+;;  `anything-for-files-prefered-list'
+;;    Your prefered sources to find files with `anything-for-files'.
+;;    default = (quote (anything-c-source-ffap-line anything-c-source-ffap-guesser anything-c-source-recentf anything-c-source-buffers+ anything-c-source-bookmarks ...))
+;;  `anything-info-at-point-prefered-list'
+;;    Your favorites info sources to find infos with `anything-info-at-point'.
+;;    default = (quote (anything-c-source-info-elisp anything-c-source-info-cl anything-c-source-info-pages))
 ;;  `anything-create--actions-private'
 ;;    User defined actions for `anything-create' / `anything-c-source-create'.
 ;;    default = nil


(defvar anything-c-marked-candidate-list nil)
(defadvice anything-select-action (before save-marked-candidates () activate)
  (setq anything-c-marked-candidate-list (anything-c-list-marked-candidate)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Adaptive Sorting of Candidates ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar anything-c-adaptive-done nil

  :type 'string
  :group 'anything-config)

(defcustom anything-for-files-prefered-list '(anything-c-source-ffap-line
                                              anything-c-source-ffap-guesser
                                              anything-c-source-recentf
                                              anything-c-source-buffers+
                                              anything-c-source-bookmarks
                                              anything-c-source-file-cache
                                              anything-c-source-files-in-current-dir+
                                              anything-c-source-locate)
  "Your prefered sources to find files with `anything-for-files'."
  :type 'list
  :group 'anything-config)

(defcustom anything-info-at-point-prefered-list '(anything-c-source-info-elisp
                                                  anything-c-source-info-cl
                                                  anything-c-source-info-pages)
  "Your favorites info sources to find infos with `anything-info-at-point'."
  :type 'list
  :group 'anything-config)
  

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Preconfigured Anything ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun anything-for-files ()
  "Preconfigured `anything' for opening files.
ffap -> recentf -> buffer -> bookmark -> file-cache -> files-in-current-dir -> locate"
  (interactive)
  (anything anything-for-files-prefered-list))

(defun anything-info-at-point ()
  "Preconfigured `anything' for searching info at point."
  (interactive)
  (anything anything-info-at-point-prefered-list
            (thing-at-point 'symbol)))

(defun anything-show-kill-ring ()
