diff options
author | Juri Linkov <juri@jurta.org> | 2011-08-25 23:48:45 +0300 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2011-08-25 23:48:45 +0300 |
commit | 3a91b4a9293c0cc7a5dc27d086fae5395b6550cb (patch) | |
tree | 3ca27ba6b09c9bc5bc54df40632f94f3a0618833 /lisp/isearch.el | |
parent | d2a979183a1294e7267949695858907c76bcfbb9 (diff) | |
download | emacs-3a91b4a9293c0cc7a5dc27d086fae5395b6550cb.tar.gz |
* lisp/isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to
`search-whitespace-regexp'.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 12529857a2c..8764952dbf5 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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" ()) |