   :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-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)))
+  (anything anything-for-files-prefered-list))
 
 (defun anything-info-at-point ()
   "Preconfigured `anything' for searching info at point."
   (interactive)
-  (anything '(anything-c-source-info-elisp
-              anything-c-source-info-cl
-              anything-c-source-info-pages)
+  (anything anything-info-at-point-prefered-list
             (thing-at-point 'symbol)))
 
 (defun anything-show-kill-ring ()


(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

;;  `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
