From 8d318c898a41490fab114d9ea36557259e507303 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Mon, 25 Sep 2023 20:57:52 -0400 Subject: Add isearch kill utility --- emacs/.config/emacs-kj/init.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'emacs/.config') 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) -- cgit v1.2.3