mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-31 11:13:50 +00:00
Code Issues Releases Activity

(isearch-edit-string, isearch-toggle-case-fold):

Browse Source 
Pass isearch-nonincremental to isearch-message-prefix.
This commit is contained in:
Richard M. Stallman 1994-11-01 04:20:43 +00:00
parent 43310354c5
commit 71e2ab547b
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/isearch.el
View File

@ -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 @@ If first char entered is \\[isearch-yank-word], then do word search instead."
(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 @@ Use `isearch-exit' to quit without signalling."
(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)