From 890c31f329c9f17641a6f4068aa3ae7116b60db6 Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 15 Jan 2022 13:47:27 +0000
Subject: emacs: Add my/isearch-region advice to isearch

If the region is active, my/isearch-region will add its contents to the
search string.
---
 emacs/init.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'emacs/init.el')

diff --git a/emacs/init.el b/emacs/init.el
index 36b3d32..554d7c1 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -81,7 +81,7 @@
 (global-set-key (kbd "C-x C-b") #'ibuffer)
 
 
-;; Ivy
+;; Search and Completion Management
 
 (ivy-mode 1)
 (diminish 'ivy-mode)
@@ -92,6 +92,9 @@
 (global-set-key (kbd "C-c s") #'swiper)
 (global-set-key (kbd "C-c x") #'swiper-all)
 
+(dolist (fn '(isearch-forward isearch-backward))
+  (advice-add fn :after #'my/isearch-region))
+
 
 ;; Theme Management
 
-- 
cgit v1.2.3-70-g09d2