procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to

Browse source 
`search-whitespace-regexp'.

Fixes: debbugs:9364
This commit is contained in:
Juri Linkov 2011-08-25 23:48:45 +03:00
parent 93eb711326
commit 3e8cd5ce95
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-08-25 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to
`search-whitespace-regexp' (bug#9364).
2011-08-25 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-edit-string): Let-bind `search-ring' and

7
lisp/isearch.el
View file

@ -1445,9 +1445,10 @@ string. NLINES has the same meaning as in `occur'."
(t (regexp-quote isearch-string)))
(if current-prefix-arg (prefix-numeric-value current-prefix-arg))))
(let ((case-fold-search isearch-case-fold-search)
;; set `search-upper-case' to nil to not call
;; `isearch-no-upper-case-p' in `occur-1'
(search-upper-case nil))
;; Set `search-upper-case' to nil to not call
;; `isearch-no-upper-case-p' in `occur-1'.
(search-upper-case nil)
(search-spaces-regexp search-whitespace-regexp))
(occur regexp nlines)))
(declare-function hi-lock-read-face-name "hi-lock" ())