Mercurial > emacs
changeset 9768:61b41f223695
(isearch-edit-string, isearch-toggle-case-fold):
Pass isearch-nonincremental to isearch-message-prefix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Nov 1994 04:20:43 +0000 |
| parents | 787ae425ae22 |
| children | 6a9124f418db |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Tue Nov 01 02:18:56 1994 +0000 +++ b/lisp/isearch.el Tue Nov 01 04:20:43 1994 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1994/08/30 21:20:09 $|$Revision: 1.73 $ +;; |$Date: 1994/09/30 09:16:06 $|$Revision: 1.74 $ ;; This file is part of GNU Emacs. @@ -738,10 +738,11 @@ (setq cursor-in-echo-area nil) (setq isearch-new-string (let (junk-ring) - (read-from-minibuffer (isearch-message-prefix) - isearch-string - minibuffer-local-isearch-map nil - 'junk-ring)) + (read-from-minibuffer + (isearch-message-prefix nil nil isearch-nonincremental) + isearch-string + minibuffer-local-isearch-map nil + 'junk-ring)) isearch-new-message (mapconcat 'isearch-text-char-description isearch-new-string ""))) @@ -880,7 +881,7 @@ (setq isearch-case-fold-search (if isearch-case-fold-search nil 'yes)) (message "%s%s [case %ssensitive]" - (isearch-message-prefix) + (isearch-message-prefix nil nil isearch-nonincremental) isearch-message (if isearch-case-fold-search "in" "")) (setq isearch-adjusted t)