diff options
| -rw-r--r-- | lisp/isearch.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 3aed19b9ceb..15dc7a3cdd8 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1401,11 +1401,13 @@ and reads its face argument using `hi-lock-read-face-name'." | |||
| 1401 | isearch-case-fold-search) | 1401 | isearch-case-fold-search) |
| 1402 | ;; Turn isearch-string into a case-insensitive | 1402 | ;; Turn isearch-string into a case-insensitive |
| 1403 | ;; regexp. | 1403 | ;; regexp. |
| 1404 | (replace-regexp-in-string | 1404 | (mapconcat |
| 1405 | "[a-z]" | 1405 | (lambda (c) |
| 1406 | (lambda (m) | 1406 | (let ((s (string c))) |
| 1407 | (format "[%s%s]" (upcase m) (downcase m))) | 1407 | (if (string-match "[[:alpha:]]" s) |
| 1408 | isearch-string)) | 1408 | (format "[%s%s]" (upcase s) (downcase s)) |
| 1409 | (regexp-quote s)))) | ||
| 1410 | isearch-string "")) | ||
| 1409 | (t (regexp-quote isearch-string))))) | 1411 | (t (regexp-quote isearch-string))))) |
| 1410 | (hi-lock-face-buffer string (hi-lock-read-face-name)))) | 1412 | (hi-lock-face-buffer string (hi-lock-read-face-name)))) |
| 1411 | 1413 | ||