[Emacs-diffs] Changes to emacs/lisp/isearch.el,v

[Chong Yidong]

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))))