[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/isearch.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/isearch.el,v |
Date: |
Wed, 03 Sep 2008 00:01:26 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/09/03 00:01:26
Index: isearch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/isearch.el,v
retrieving revision 1.328
retrieving revision 1.329
diff -u -b -r1.328 -r1.329
--- isearch.el 29 Aug 2008 19:15:19 -0000 1.328
+++ isearch.el 3 Sep 2008 00:01:25 -0000 1.329
@@ -1401,11 +1401,13 @@
isearch-case-fold-search)
;; Turn isearch-string into a case-insensitive
;; regexp.
- (replace-regexp-in-string
- "[a-z]"
- (lambda (m)
- (format "[%s%s]" (upcase m) (downcase m)))
- isearch-string))
+ (mapconcat
+ (lambda (c)
+ (let ((s (string c)))
+ (if (string-match "[[:alpha:]]" s)
+ (format "[%s%s]" (upcase s) (downcase s))
+ (regexp-quote s))))
+ isearch-string ""))
(t (regexp-quote isearch-string)))))
(hi-lock-face-buffer string (hi-lock-read-face-name))))
- [Emacs-diffs] Changes to emacs/lisp/isearch.el,v,
Chong Yidong <=