mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source 
Info-search-whitespace-regexp in non-regexp isearch mode.
This commit is contained in:
Juri Linkov 2006-02-23 21:41:41 +00:00
parent 9b0f7f31c0
commit 9ca9f7f3f4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/info.el
View File

@ -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))