 
 ;;;; <icicle>
 ;;; Icicle regions
+;; See: http://www.emacswiki.org/emacs-en/Icicles_-_Multiple_Regions 
+;; That is the anything interface.
+
 (defvar anything-icicle-region-alist nil)
 (defvar anything-c-source-icicle-region
   '((name . "Icicle Regions")

  "String representing S-Expressions.")

(define-anything-type-attribute 'bookmark
  '((action ("Jump to bookmark" . (lambda (candidate)
                                    (bookmark-jump candidate)
                                    (anything-update)))
            ("Delete bookmark" . bookmark-delete)
            ("Rename bookmark" . bookmark-rename)
            ("Relocate bookmark" . bookmark-relocate)))
  "Bookmark name.")

(define-anything-type-attribute 'line

    (anything-icicle-select-region-action pos)))

(defun anything-c-icicle-region-delete-region (candidate)
  "Get the position of `candidate' and call `anything-icicle-delete-region-from-alist'."
  (let ((pos (position candidate anything-icicle-region-alist)))
    (anything-icicle-delete-region-from-alist pos)))


;;;; <Kill ring>
;;; Kill ring
