 
 (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)))
+  (setq anything-c-marked-candidate-list (anything-c-list-marked-candidate))
+  (anything-clear-visible-mark))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Adaptive Sorting of Candidates ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defvar anything-c-adaptive-done nil

;;  `anything-su-or-sudo'
;;    What command to use for root access.
;;    default = "su"
;;  `anything-create--actions-private'
;;    User defined actions for `anything-create' / `anything-c-source-create'.
;;    default = 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 ()
