     (define-key map (kbd "C-r") 'undefined)
     (define-key map (kbd "C-x C-f") 'anything-quit-and-find-file)
 
+    (define-key map (kbd "C-c C-d") 'anything-delete-current-selection)
+    (define-key map (kbd "C-c C-y") 'anything-yank-selection)
+    (define-key map (kbd "C-c C-k") 'anything-kill-selection-and-quit)
+
     ;; the defalias is needed because commands are bound by name when
     ;; using iswitchb, so only commands having the prefix anything-
     ;; get rebound


;; (@* "HISTORY")
;; $Log: anything.el,v $
;; Revision 1.177  2009/04/20 02:17:16  rubikitch
;; New commands: `anything-yank-selection', `anything-kill-selection-and-quit'
;;

;; New maintainer.
;;

(defvar anything-version "$Id: anything.el,v 1.179 2009/04/20 16:35:44 rubikitch Exp rubikitch $")
(require 'cl)

;; (@* "User Configuration")
