# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1183992396 0
# Node ID 62da6841fa4ccf2fb40f8ac85c89f2bb9ab70ee3
# Parent  35e7de7eae2974375ccc8af4a73591c7073d287b
(isearch-edit-string): Call to isearch-push-state after the search.

diff -r 35e7de7eae29 -r 62da6841fa4c lisp/isearch.el
--- a/lisp/isearch.el	Mon Jul 09 01:27:20 2007 +0000
+++ b/lisp/isearch.el	Mon Jul 09 14:46:36 2007 +0000
@@ -1,4 +1,4 @@
-;;; isearch.el --- incremental search minor mode
+----------;;; isearch.el --- incremental search minor mode
 
 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
 ;;   2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
@@ -674,6 +674,8 @@
       (make-local-variable 'input-method-function))
   (setq input-method-function nil)
 
+  (setq cursor-in-echo-area t)
+
   (looking-at "")
   (setq isearch-window-configuration
 	(if isearch-slow-terminal-mode (current-window-configuration) nil))
@@ -798,6 +800,8 @@
       (setq input-method-function isearch-input-method-function)
     (kill-local-variable 'input-method-function))
 
+  (setq cursor-in-echo-area nil)
+
   (force-mode-line-update)
 
   ;; If we ended in the middle of some intangible text,
@@ -1069,6 +1073,7 @@
 
 	;; Reinvoke the pending search.
 	(isearch-search)
+	(isearch-push-state)
 	(isearch-update)
 	(if isearch-nonincremental
 	    (progn