1468 |
(opoint-max (point-max)) |
(opoint-max (point-max)) |
1469 |
(ostart (window-start)) |
(ostart (window-start)) |
1470 |
(osubfile Info-current-subfile)) |
(osubfile Info-current-subfile)) |
|
(when Info-search-whitespace-regexp |
|
|
(setq regexp |
|
|
(mapconcat 'identity (split-string regexp "[ \t\n]+") |
|
|
Info-search-whitespace-regexp))) |
|
1471 |
(setq Info-search-case-fold case-fold-search) |
(setq Info-search-case-fold case-fold-search) |
1472 |
(save-excursion |
(save-excursion |
1473 |
(save-restriction |
(save-restriction |
1492 |
(save-excursion |
(save-excursion |
1493 |
(and (search-backward "\^_" nil t) |
(and (search-backward "\^_" nil t) |
1494 |
(looking-at "\^_\nTag Table")))))) |
(looking-at "\^_\nTag Table")))))) |
1495 |
(if (if backward |
(let ((search-whitespace-regexp |
1496 |
(re-search-backward regexp bound t) |
Info-search-whitespace-regexp)) |
1497 |
(re-search-forward regexp bound t)) |
(if (if backward |
1498 |
(setq found (point) beg-found (if backward (match-end 0) |
(re-search-backward regexp bound t) |
1499 |
(match-beginning 0))) |
(re-search-forward regexp bound t)) |
1500 |
(setq give-up t))))) |
(setq found (point) beg-found (if backward (match-end 0) |
1501 |
|
(match-beginning 0))) |
1502 |
|
(setq give-up t)))))) |
1503 |
;; If no subfiles, give error now. |
;; If no subfiles, give error now. |
1504 |
(if give-up |
(if give-up |
1505 |
(if (null Info-current-subfile) |
(if (null Info-current-subfile) |