diff --git a/src/ext/isearch.lisp b/src/ext/isearch.lisp
index 09ed6f192..b0c9b5e72 100644
--- a/src/ext/isearch.lisp
+++ b/src/ext/isearch.lisp
@@ -305,6 +305,7 @@
           (subseq *isearch-string*
                   0
                   (1- (length *isearch-string*))))
+    (funcall *isearch-search-function* (current-point) *isearch-string*)
     (isearch-update-display)))
 
 (define-command isearch-raw-insert () ()
@@ -394,6 +395,7 @@
   (let ((str (yank-from-clipboard-or-killring)))
     (when str
       (setq *isearch-string* str)
+      (funcall *isearch-search-function* (current-point) *isearch-string*)
       (isearch-update-display))))
 
 (defun isearch-add-char (c)