Merge pull request #169 from wyuenho/fix-isearch

Fix isearch

window-purpose-fixes.el

@@ -76,6 +76,14 @@ 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))))
+
+
 (defun purpose--fix-next-error ()
   "Integrate `window-purpose' and `next-error'.
 
@@ -312,6 +320,7 @@ are:
 - 'edebug : don't integrate with edebug
 - 'compilation-next-error-function : don't integrate with
   `compilation-next-error-function'.
+- 'isearch : don't integrate with isearch
 - 'next-error : don't integrate with `next-error'
 - 'lv : don't integrate with lv (hydra)
 - 'helm : don't integrate with helm
@@ -327,6 +336,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 'next-error exclude)
     (purpose--fix-next-error))
   (unless (member 'lv exclude)