Fix isearch

bmag · Feb 10, 2021 · 0924567 · 0924567
1 parent f642196
commit 0924567
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/window-purpose-fixes.el b/window-purpose-fixes.el
@@ -50,6 +50,13 @@ This function should be advised around
       (set-window-dedicated-p compilation-window old-window-dedicated-p))))
 
 
+(defun purpose--fix-isearch ()
+  "Set `isearch--display-help-action'.
+
+Prevents `isearch-describe-*' commands from bypassing purpose."
+  (with-eval-after-load 'isearch
+    (setq isearch--display-help-action '(purpose--action-function . nil))))
+
 
 ;;; Hydra's *LV* buffer should be ignored by Purpose
 (defun purpose--fix-hydra-lv ()
@@ -266,6 +273,8 @@ are:
   (unless (member 'compilation-next-error-function exclude)
     (advice-add 'compilation-next-error-function
                 :around #'purpose--fix-compilation-next-error))
+  (unless (member 'isearch exclude)
+    (purpose--fix-isearch))
   (unless (member 'lv exclude)
     (purpose--fix-hydra-lv))
   (unless (member 'helm exclude)