[PATCH] (Or "question"...) isearch-kill-found

[Deniz Dogan <deniz.a.m.dogan@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 386 bytes --]

Recently, in a discussion on #emacs, we looked for a command which
kills the text that has been found using isearch. None of us knew if
there existed anything like that and I coludn't find it.

So attached is a patch which adds isearch-kill-found and binds it to
M-C-m (not too keen on the choice of binding though).

Any thoughts or comments? Does this already exist?

-- 
Deniz Dogan

[-- Attachment #2: isearch-kill-found.patch --]
[-- Type: application/octet-stream, Size: 780 bytes --]

=== modified file 'lisp/isearch.el'
--- lisp/isearch.el	2010-05-20 22:33:09 +0000
+++ lisp/isearch.el	2010-05-30 12:27:58 +0000
@@ -462,6 +462,7 @@
     (define-key map "\M-\C-w" 'isearch-del-char)
     (define-key map "\M-\C-y" 'isearch-yank-char)
     (define-key map    "\C-y" 'isearch-yank-line)
+    (define-key map "\M-\C-m" 'isearch-kill-found)
 
     (define-key map (char-to-string help-char) isearch-help-map)
     (define-key map [help] isearch-help-map)
@@ -1497,6 +1498,12 @@
   (interactive)
   (isearch-yank-string (x-get-selection)))
 
+(defun isearch-kill-found ()
+  "Kills the region that isearch has found."
+  (interactive)
+  (isearch-exit)
+  (kill-region isearch-other-end (point)))
+
 
 (defun isearch-mouse-2 (click)
   "Handle mouse-2 in Isearch mode.