summaryrefslogtreecommitdiff
path: root/lisp/isearch.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>2007-07-09 14:46:56 +0000
committerRichard M. Stallman <rms@gnu.org>2007-07-09 14:46:56 +0000
commit25c185dfe362957f9045602fa9644b0b554c6626 (patch)
tree077345ad24caf76f10da8c8c8bbfc46cae19a698 /lisp/isearch.el
parent7d79b956dc1f33d744b14707f207259fe456b596 (diff)
downloademacs-25c185dfe362957f9045602fa9644b0b554c6626.tar.gz
(isearch-edit-string): Call to isearch-push-state after the search.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r--lisp/isearch.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index f5a063200f1..770d607713e 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -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 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(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 @@ NOPUSH is t and EDIT is t."
(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 @@ If first char entered is \\[isearch-yank-word-or-char], then do word search inst
;; Reinvoke the pending search.
(isearch-search)
+ (isearch-push-state)
(isearch-update)
(if isearch-nonincremental
(progn