mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 19:00:55 -08:00
Code Issues Projects Releases Wiki Activity

(isearch-last-case-fold-search): New variable.

Browse source 
(isearch-mode): Remember value of isearch-case-fold-search
in isearch-last-case-fold-search.
(isearch-done): Quote value of isearch-case-fold-search.
(isearch-repeat): When resuming a search, restore
isearch-case-fold-search from isearch-last-case-fold-search.
This commit is contained in:
Gerd Moellmann 2001-10-05 09:24:20 +00:00
parent a4a216c5c9
commit 67085aba97
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/isearch.el
View file

@ -366,6 +366,8 @@ Default value, nil, means edit the string instead."
; case in the search string is ignored. ; case in the search string is ignored.
(defvar isearch-case-fold-search nil) (defvar isearch-case-fold-search nil)
(defvar isearch-last-case-fold-search nil)
;; Used to save default value while isearch is active ;; Used to save default value while isearch is active
(defvar isearch-original-minibuffer-message-timeout nil) (defvar isearch-original-minibuffer-message-timeout nil)
@ -530,6 +532,7 @@ is treated as a regexp. See \\[isearch-forward] for more info."
isearch-regexp regexp isearch-regexp regexp
isearch-word word-p isearch-word word-p
isearch-op-fun op-fun isearch-op-fun op-fun
isearch-last-case-fold-search isearch-case-fold-search
isearch-case-fold-search case-fold-search isearch-case-fold-search case-fold-search
isearch-string "" isearch-string ""
isearch-message "" isearch-message ""
@ -645,7 +648,7 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(let ((command `(isearch-resume ,isearch-string ,isearch-regexp (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
,isearch-word ,isearch-forward ,isearch-word ,isearch-forward
,isearch-message ,isearch-message
,isearch-case-fold-search))) ',isearch-case-fold-search)))
(unless (equal (car command-history) command) (unless (equal (car command-history) command)
(setq command-history (cons command command-history)))) (setq command-history (cons command command-history))))
@ -949,7 +952,8 @@ Use `isearch-exit' to quit without signaling."
"") "")
isearch-message isearch-message
(mapconcat 'isearch-text-char-description (mapconcat 'isearch-text-char-description
isearch-string "")) isearch-string "")
isearch-case-fold-search isearch-last-case-fold-search)
;; If already have what to search for, repeat it. ;; If already have what to search for, repeat it.
(or isearch-success (or isearch-success
(progn (progn