mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-11 18:31:17 -08:00
Code Issues Projects Releases Wiki Activity

(isearch-highlight-regexp): Fix case of highlighted string.

Browse source
This commit is contained in:
Chong Yidong 2008-08-29 19:15:19 +00:00
parent 1d9fad13ce
commit 36bdf1ff3c
1 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/isearch.el
View file

@ -1393,14 +1393,21 @@ and reads its face argument using `hi-lock-read-face-name'."
(isearch-done)
(isearch-clean-overlays)
(require 'hi-lock nil t)
;; (add-to-history 'hi-lock-regexp-history regexp)
(let ((case-fold-search isearch-case-fold-search)
;; TODO: add `search-upper-case' as in `isearch-occur'
)
(hi-lock-face-buffer
(hi-lock-regexp-okay
(if isearch-regexp isearch-string (regexp-quote isearch-string)))
(hi-lock-read-face-name))))
(let ((string (cond (isearch-regexp isearch-string)
((if (and (eq isearch-case-fold-search t)
search-upper-case)
(isearch-no-upper-case-p
isearch-string isearch-regexp)
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))
(t (regexp-quote isearch-string)))))
(hi-lock-face-buffer string (hi-lock-read-face-name))))
(defun isearch-delete-char ()