From: Mark A. Hershberger <mah@everybody.org>
Date: Wed, 17 Feb 2010 21:39:21 +0000 (-0500)
Subject: 2010-02-17  Mark A. Hershberger  <mah@everybody.org>
X-Git-Tag: emacs-pretest-23.1.93~50^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba5bf6423b4429ebaa05d8f737c52cecf3066c7d;p=emacs.git

2010-02-17  Mark A. Hershberger  <mah@everybody.org>

	* vc-bzr.el: fix typo in Known Bugs section.

	* isearch.el (isearch-update-post-hook): New hook
	(isearch-update): Use the new hook.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17655fe4f6b..047f2b03b62 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-02-17  Mark A. Hershberger  <mah@everybody.org>
+
+	* vc-bzr.el: fix typo in Known Bugs section.
+
+	* isearch.el (isearch-update-post-hook): New hook
+	(isearch-update): Use the new hook.
+
 2010-02-16  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Fix
diff --git a/lisp/isearch.el b/lisp/isearch.el
index d0ad330c5c0..0061e7a64ed 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -156,6 +156,9 @@ command history."
 (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 @@ It is called by the function `isearch-forward' and other related functions."
     (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.
diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index efeb19de4c7..b0dbb8ec192 100644
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -35,7 +35,7 @@
 ;; Known bugs
 ;; ==========
 
-;; When edititing a symlink and *both* the symlink and its target
+;; When editing a symlink and *both* the symlink and its target
 ;; are bzr-versioned, `vc-bzr` presently runs `bzr status` on the
 ;; symlink, thereby not detecting whether the actual contents
 ;; (that is, the target contents) are changed.