[Emacs-diffs] /srv/bzr/emacs/trunk r105572: * lisp/isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to

[Juri Linkov]

------------------------------------------------------------
revno: 105572
fixes bug(s): http://debbugs.gnu.org/9364
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Thu 2011-08-25 23:48:45 +0300
message:
  * lisp/isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to
  `search-whitespace-regexp'.
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-25 20:32:54 +0000
+++ b/lisp/ChangeLog    2011-08-25 20:48:45 +0000
@@ -1,5 +1,10 @@
 2011-08-25  Juri Linkov  <address@hidden>
 
+       * isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to
+       `search-whitespace-regexp' (bug#9364).
+
+2011-08-25  Juri Linkov  <address@hidden>
+
        * isearch.el (isearch-edit-string): Let-bind `search-ring' and
        `regexp-search-ring' to their global values to protect from
        updating by `read-from-minibuffer' (bug#9185).

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2011-08-25 20:32:54 +0000
+++ b/lisp/isearch.el   2011-08-25 20:48:45 +0000
@@ -1445,9 +1445,10 @@
      (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" ())