   (unless recenter
     (set-window-start (get-buffer-window anything-current-buffer) (point))))
 
+(defun anything-revert-buffer (candidate)
+  (with-current-buffer candidate
+    (when (buffer-modified-p)
+      (revert-buffer t t))))
+
+(defun anything-revert-marked-buffers (candidate)
+  (dolist (i anything-c-marked-candidate-list)
+    (anything-revert-buffer i)))
+
+(defun anything-kill-marked-buffers (candidate)
+  (dolist (i anything-c-marked-candidate-list)
+    (kill-buffer i)))
+
+(defun anything-delete-marked-files (candidate)
+  (dolist (i anything-c-marked-candidate-list)
+    (anything-c-delete-file i)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Setup ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

           ("Find file other frame" . find-file-other-frame)))
     ("Open dired in file's directory" . anything-c-open-dired)
     ("Delete file" . anything-c-delete-file)
     ("Open file externally" . anything-c-open-file-externally)
     ("Open file with default tool" . anything-c-open-file-with-default-tool))
    (action-transformer anything-c-transform-file-load-el

                   list)
          finally (return (nreverse list)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Marked candidates ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun anything-c-list-marked-candidate ()
  (interactive)
  (let (marked-candidates)
    (with-anything-window
      (goto-char (point-min))
      (beginning-of-line)
      (while (anything-next-visible-mark)
        (push (buffer-substring-no-properties (point-at-bol) (point-at-eol)) marked-candidates)))
    marked-candidates))

(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
  "nil if history information is not yet stored for the current
