Commit 3e8cd5ce authored by Juri Linkov's avatar Juri Linkov
Browse files

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

`search-whitespace-regexp'.

Fixes: debbugs:9364
parent 93eb7113
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> 2011-08-25 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-edit-string): Let-bind `search-ring' and * isearch.el (isearch-edit-string): Let-bind `search-ring' and
......
...@@ -1445,9 +1445,10 @@ string. NLINES has the same meaning as in `occur'." ...@@ -1445,9 +1445,10 @@ string. NLINES has the same meaning as in `occur'."
(t (regexp-quote isearch-string))) (t (regexp-quote isearch-string)))
(if current-prefix-arg (prefix-numeric-value current-prefix-arg)))) (if current-prefix-arg (prefix-numeric-value current-prefix-arg))))
(let ((case-fold-search isearch-case-fold-search) (let ((case-fold-search isearch-case-fold-search)
;; set `search-upper-case' to nil to not call ;; Set `search-upper-case' to nil to not call
;; `isearch-no-upper-case-p' in `occur-1' ;; `isearch-no-upper-case-p' in `occur-1'.
(search-upper-case nil)) (search-upper-case nil)
(search-spaces-regexp search-whitespace-regexp))
(occur regexp nlines))) (occur regexp nlines)))
(declare-function hi-lock-read-face-name "hi-lock" ()) (declare-function hi-lock-read-face-name "hi-lock" ())
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment