diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-19 20:04:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-19 20:04:44 +0000 |
| commit | 5d4faedacc2e40d18ee0041accab896b24c2a07f (patch) | |
| tree | a55528c4ba0f36e7d6366a52536465a6a527704e /lisp | |
| parent | ecdb561eb45eb29f45eeb678d26dc570ae3ef876 (diff) | |
| download | emacs-5d4faedacc2e40d18ee0041accab896b24c2a07f.tar.gz | |
(Info-search): Use search-whitespace-regexp.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/lisp/info.el b/lisp/info.el index cc7ed2ae59b..ee59fa0d3a9 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1468,10 +1468,6 @@ If DIRECTION is `backward', search in the reverse direction." (opoint-max (point-max)) (ostart (window-start)) (osubfile Info-current-subfile)) - (when Info-search-whitespace-regexp - (setq regexp - (mapconcat 'identity (split-string regexp "[ \t\n]+") - Info-search-whitespace-regexp))) (setq Info-search-case-fold case-fold-search) (save-excursion (save-restriction @@ -1496,12 +1492,14 @@ If DIRECTION is `backward', search in the reverse direction." (save-excursion (and (search-backward "\^_" nil t) (looking-at "\^_\nTag Table")))))) - (if (if backward - (re-search-backward regexp bound t) - (re-search-forward regexp bound t)) - (setq found (point) beg-found (if backward (match-end 0) - (match-beginning 0))) - (setq give-up t))))) + (let ((search-whitespace-regexp + Info-search-whitespace-regexp)) + (if (if backward + (re-search-backward regexp bound t) + (re-search-forward regexp bound t)) + (setq found (point) beg-found (if backward (match-end 0) + (match-beginning 0))) + (setq give-up t)))))) ;; If no subfiles, give error now. (if give-up (if (null Info-current-subfile) |