(Info-search): Don't bind search-spaces-regexp to

Info-search-whitespace-regexp in non-regexp isearch mode.

diff --git a/lisp/info.el b/lisp/info.el
index e9d7f5ca2de13b6f708fb7d154a5767a5784a23d..43ee5cabcbc73d1fc87819da92791d7d53041931 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1642,7 +1642,9 @@ If DIRECTION is `backward', search in the reverse direction."
                              (and (search-backward "\^_" nil t)
                                   (looking-at
                                    "\^_\n\\(Tag Table\\|Local Variables\\)"))))))
-           (let ((search-spaces-regexp Info-search-whitespace-regexp))
+           (let ((search-spaces-regexp
+                  (if (or (not isearch-mode) isearch-regexp)
+                      Info-search-whitespace-regexp)))
              (if (if backward
                      (re-search-backward regexp bound t)
                    (re-search-forward regexp bound t))
@@ -1660,7 +1662,9 @@ If DIRECTION is `backward', search in the reverse direction."
       ;; If no subfiles, give error now.
       (if give-up
          (if (null Info-current-subfile)
-             (let ((search-spaces-regexp Info-search-whitespace-regexp))
+             (let ((search-spaces-regexp
+                    (if (or (not isearch-mode) isearch-regexp)
+                        Info-search-whitespace-regexp)))
                (if backward
                    (re-search-backward regexp)
                  (re-search-forward regexp)))
@@ -1731,7 +1735,9 @@ If DIRECTION is `backward', search in the reverse direction."
                                    (and (search-backward "\^_" nil t)
                                         (looking-at
                                          "\^_\n\\(Tag Table\\|Local Variables\\)"))))))
-                 (let ((search-spaces-regexp Info-search-whitespace-regexp))
+                 (let ((search-spaces-regexp
+                        (if (or (not isearch-mode) isearch-regexp)
+                            Info-search-whitespace-regexp)))
                    (if (if backward
                            (re-search-backward regexp nil t)
                          (re-search-forward regexp nil t))