Mercurial > emacs

changeset 39555:8f03c11f64ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-last-case-fold-search): New variable. (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.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Oct 2001 09:24:20 +0000
parents c1fb5574fc7a
children c12d72aa46b9
files lisp/isearch.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Fri Oct 05 09:23:32 2001 +0000
+++ b/lisp/isearch.el	Fri Oct 05 09:24:20 2001 +0000
@@ -366,6 +366,8 @@
 ;   case in the search string is ignored.
 (defvar isearch-case-fold-search nil)
 
+(defvar isearch-last-case-fold-search nil)
+
 ;; Used to save default value while isearch is active
 (defvar isearch-original-minibuffer-message-timeout nil)
 
@@ -530,6 +532,7 @@
 	isearch-regexp regexp
 	isearch-word word-p
 	isearch-op-fun op-fun
+	isearch-last-case-fold-search isearch-case-fold-search
 	isearch-case-fold-search case-fold-search
 	isearch-string ""
 	isearch-message ""
@@ -645,7 +648,7 @@
   (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
 				  ,isearch-word ,isearch-forward
 				  ,isearch-message
-				  ,isearch-case-fold-search)))
+				  ',isearch-case-fold-search)))
     (unless (equal (car command-history) command)
       (setq command-history (cons command command-history))))
 
@@ -949,7 +952,8 @@
 		    "")
 		isearch-message
 		(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.
 	(or isearch-success
 	    (progn