   "Your prefered sources to find files."
   :type 'list
   :group 'anything-config)
- 
+
+(defcustom anything-create--actions-private nil
+  "User defined actions for `anything-create' / `anything-c-source-create'.
+It is a list of (DISPLAY . FUNCTION) pairs like `action'
+attribute of `anything-sources'.
+
+It is prepended to predefined pairs."
+  :type 'list
+  :group 'anything-config)
+
+(defcustom anything-allow-skipping-current-buffer t
+  "Show current buffer or not in anything buffer"
+  :type 'boolean
+  :group 'anything-config)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Preconfigured Anything ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defun anything-for-files ()
   "Preconfigured `anything' for opening files.

                      (x-list-fonts "*")))))  
    (candidates . anything-c-xfonts-cache)
    (multiline)
    (action . (("Copy to kill ring" . (lambda (elm)
                                        (kill-new elm)))
               ("Set Font" . (lambda (elm)


;; (anything 'anything-c-source-emacs-process)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Marked Candidates ;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar anything-c-marked-candidate-list nil)
(defun anything-toggle-visible-mark-2 ()
  (interactive)
  (with-anything-window
    (anything-aif (loop for o in anything-visible-mark-overlays
                     when (equal (line-beginning-position) (overlay-start o))
                     do
                       (return o))
        ;; delete
        (progn
          (setq anything-c-marked-candidate-list
                (remove
                 (buffer-substring-no-properties (point-at-bol) (point-at-eol)) anything-c-marked-candidate-list))
          (delete-overlay it)
          (delq it anything-visible-mark-overlays))
      (let ((o (make-overlay (line-beginning-position) (1+ (line-end-position)))))
        (overlay-put o 'face anything-visible-mark-face)
        (overlay-put o 'source (assoc-default 'name (anything-get-current-source)))
        (overlay-put o 'string (buffer-substring (overlay-start o) (overlay-end o)))
        (add-to-list 'anything-visible-mark-overlays o)
        (push (buffer-substring-no-properties (point-at-bol) (point-at-eol)) anything-c-marked-candidate-list)
        (anything-next-line)))))

(fset 'anything-toggle-visible-mark (symbol-function 'anything-toggle-visible-mark-2))

(add-hook 'anything-after-initialize-hook (lambda ()
                                   (setq anything-c-marked-candidate-list nil)))

(add-hook 'anything-after-action-hook (lambda ()
                                   (setq anything-c-marked-candidate-list nil)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Action Helpers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Files
(defvar anything-c-external-commands-list nil
