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

`search-whitespace-regexp'.

Fixes: debbugs:9364

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1d04b8c1b6b2b87f6a403bac81014732e7a7358..b922e21681fe43351750052db24e8f0d14c579bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 12529857a2c94d44d281171d7a3a913a6dd77049..8764952dbf54bc46b21d6054abda3f73f691f903 100644 (file)
--- 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" ())