diff lisp/isearch.el @ 107175:6e6072f0c0a2

2010-02-17 Mark A. Hershberger <[e-mail]> * vc-bzr.el: fix typo in Known Bugs section. * isearch.el (isearch-update-post-hook): New hook (isearch-update): Use the new hook.

--- a/lisp/isearch.el	Wed Feb 17 15:52:12 2010 +0900
+++ b/lisp/isearch.el	Wed Feb 17 16:39:21 2010 -0500
@@ -156,6 +156,9 @@
 (defvar isearch-mode-hook nil
   "Function(s) to call after starting up an incremental search.")
 
+(defvar isearch-update-post-hook nil
+  "Function(s) to call after isearch has found matches in the buffer.")
+
 (defvar isearch-mode-end-hook nil
   "Function(s) to call after terminating an incremental search.
 When these functions are called, `isearch-mode-end-hook-quit'
@@ -868,7 +871,8 @@
     (isearch-lazy-highlight-new-loop))
   ;; We must prevent the point moving to the end of composition when a
   ;; part of the composition has just been searched.
-  (setq disable-point-adjustment t))
+  (setq disable-point-adjustment t)
+  (run-hooks 'isearch-update-post-hook))
 
 (defun isearch-done (&optional nopush edit)
   "Exit Isearch mode.