diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-07-09 14:46:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-07-09 14:46:56 +0000 |
| commit | 25c185dfe362957f9045602fa9644b0b554c6626 (patch) | |
| tree | 077345ad24caf76f10da8c8c8bbfc46cae19a698 /lisp | |
| parent | 7d79b956dc1f33d744b14707f207259fe456b596 (diff) | |
| download | emacs-25c185dfe362957f9045602fa9644b0b554c6626.tar.gz | |
(isearch-edit-string): Call to isearch-push-state after the search.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/isearch.el | 7 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8d56fe69963..87e471753e5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-07-09 Richard Stallman <rms@gnu.org> + + * isearch.el (isearch-edit-string): Call to isearch-push-state + after the search. + 2007-07-08 Katsumi Yamaoka <yamaoka@jpl.org> * cus-start.el (file-coding-system-alist): Fix custom type. 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 |