andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(isearch-highlight-regexp): Fix last change, quoting non-alphabetical

Browse source 
characters properly.
This commit is contained in:
Chong Yidong 2008-09-03 00:01:25 +00:00
parent e03a1e54b1
commit 9c7a6b159d
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/isearch.el
View file

@ -1401,11 +1401,13 @@ and reads its face argument using `hi-lock-read-face-name'."
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))))