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

`search-whitespace-regexp' only when `isearch-regexp' is non-nil.

Fixes: debbugs:9364

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 264a4e8a7e8..b20ebccea89 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2011-10-24  Juri Linkov  <juri@jurta.org>
 
+        * isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to
+        `search-whitespace-regexp' only when `isearch-regexp' is non-nil.
+        (Bug#9364)
+
+2011-10-24  Juri Linkov  <juri@jurta.org>
+
         * info.el (Info-following-node-name-re): Add newline to the list
         of allowed characters for leading space.  (Bug#9824)
 
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 6cfcce59672..6bb23916da3 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1452,7 +1452,7 @@ string.  NLINES has the same meaning as in `occur'."
         ;; 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))
+        (search-spaces-regexp (if isearch-regexp search-whitespace-regexp)))
     (occur regexp nlines)))
 
 (declare-function hi-lock-read-face-name "hi-lock" ())