(isearch-old-signal-hook): Removed.

(isearch-mode): Add isearch-done to kbd-macro-termination-hook
instead of setting signal-hook-function.
(isearch-done): Remove isearch-done from kbd-macro-termination-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9f2a62901d7101d1e9f7c45eaa037704d1acd3cb..2f51cc6546406a97863ab12d5383203904aabd86 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-08  Gerd Moellmann  <gerd@gnu.org>
+
+       * isearch.el (isearch-old-signal-hook): Removed.
+       (isearch-mode): Add isearch-done to kbd-macro-termination-hook
+       instead of setting signal-hook-function.
+       (isearch-done): Remove isearch-done from kbd-macro-termination-hook.
+
 2001-01-07  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * mail/sendmail.el (mail-mode): Doc fix.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 89cf07d89c84b961b0eb4b10a3ab524d8ff32bdb..e4a51ffc2983c40f27a1dabbd6ed96b921311987 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -404,9 +404,6 @@ Default value, nil, means edit the string instead."
 ;; isearch is invoked.
 (defvar isearch-input-method-local-p nil)
 
-;; Value of `signal-hook-function' before setting our own.
-(defvar isearch-old-signal-hook nil)
-
 ;; Minor-mode-alist changes - kind of redundant with the
 ;; echo area, but if isearching in multiple windows, it can be useful.
 
@@ -579,8 +576,7 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
   (run-hooks 'isearch-mode-hook)
 
   (add-hook 'mouse-leave-buffer-hook 'isearch-done)
-  (setq isearch-old-signal-hook signal-hook-function
-       signal-hook-function 'isearch-done)
+  (add-hook 'kbd-macro-termination-hook 'isearch-done)
 
   ;; isearch-mode can be made modal (in the sense of not returning to 
   ;; the calling function until searching is completed) by entering 
@@ -641,7 +637,7 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
       (setq command-history (cons command command-history))))
 
   (remove-hook 'mouse-leave-buffer-hook 'isearch-done)
-  (setq signal-hook-function isearch-old-signal-hook)
+  (remove-hook 'kbd-macro-termination-hook 'isearch-done)
 
   ;; Called by all commands that terminate isearch-mode.
   ;; If NOPUSH is non-nil, we don't push the string on the search ring.