Add isearch kill utility

1 files changed, 10 insertions, 3 deletions

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index ff79761..2454577 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -175,8 +175,7 @@
        (cdr (ring-ref avy-ring 0))))
     t)
 
-(setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark)
-  )
+(setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark))
 (define-key isearch-mode-map (kbd "M-j") 'avy-isearch)
 
 (winner-mode +1)
@@ -721,13 +720,21 @@
   (when (file-exists-p google-config-file)
     (load-file google-config-file)))
 
-(define-key isearch-mode-map [(control return)]
+(define-key isearch-mode-map (kbd "C-RET")
   #'isearch-exit-other-end)
 (defun isearch-exit-other-end ()
   "Exit isearch, at the opposite end of the string."
   (interactive)
   (isearch-exit)
   (goto-char isearch-other-end))
+(define-key isearch-mode-map (kbd "M-z")
+            #'kj/isearch-zap)
+(defun kj/isearch-zap ()
+  "Zap to beginning of search"
+  (interactive)
+  (isearch-exit)
+  (goto-char isearch-other-end)
+  (kill-region (region-beginning) (region-end)))
 
 (setq case-fold-search t)
 (setq case-replace t)