Mercurial > emacs

changeset 78092:62da6841fa4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-edit-string): Call to isearch-push-state after the search.
author Richard M. Stallman <rms@gnu.org>
date Mon, 09 Jul 2007 14:46:36 +0000
parents 35e7de7eae29
children f8928e94b6fd
files lisp/isearch.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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