 (defun anything-delete-marked-bookmarks (elm)
   "Delete this bookmark or all marked bookmarks."
   (anything-aif anything-c-marked-candidate-list
-      (progn
-        (dolist (i it)
-          (bookmark-delete i 'batch))
-        (bookmark-save))
+      (dolist (i it)
+        (bookmark-delete i 'batch))
     (bookmark-delete elm)))
 
 (defun anything-bookmark-active-region-maybe (candidate)

  "Do many create actions from `anything-pattern'.
See also `anything-create--actions'.")
;; (anything 'anything-c-source-create)
(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)

(defun anything-create-from-anything ()
  "Run `anything-create' from `anything' as a fallback."

  "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.
