diff --git a/window-purpose-fixes.el b/window-purpose-fixes.el index 9492310..9c722e8 100644 --- a/window-purpose-fixes.el +++ b/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)