Commit a6020335 authored by Mark A. Hershberger's avatar Mark A. Hershberger Committed by Juri Linkov
Browse files

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

(isearch-update): Use the new hook.  (Bug#6225)
parent 50de6a38
......@@ -255,6 +255,10 @@ by the Graphic Control Extension of the image.
*** `image-extension-data' is renamed to `image-metadata'.
** Isearch
*** New hook `isearch-update-post-hook' that runs in `isearch-update'.
** Progress reporters can now "spin".
The MIN-VALUE and MAX-VALUE arguments of `make-progress-reporter' can
now be nil, or omitted. This makes a "non-numeric" reporter. Each
......
2010-05-20 Mark A. Hershberger <mah@everybody.org>
* isearch.el (isearch-update-post-hook): New hook.
(isearch-update): Use the new hook. (Bug#6225)
2010-05-20 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-mode-map): Bind more keys to isearch-help-map:
......
......@@ -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'
......@@ -870,7 +873,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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment