1646 |
(Info-search regexp bound noerror count 'backward)) |
(Info-search regexp bound noerror count 'backward)) |
1647 |
|
|
1648 |
(defun Info-isearch-search () |
(defun Info-isearch-search () |
1649 |
(if (and Info-isearch-search (not isearch-word)) |
(if Info-isearch-search |
1650 |
(lambda (string &optional bound noerror count) |
(lambda (string &optional bound noerror count) |
1651 |
(condition-case nil |
(condition-case nil |
1652 |
(progn |
(if isearch-word |
1653 |
|
(Info-search (concat "\\b" (replace-regexp-in-string |
1654 |
|
"\\W+" "\\\\W+" |
1655 |
|
(replace-regexp-in-string |
1656 |
|
"^\\W+\\|\\W+$" "" string)) "\\b") |
1657 |
|
bound noerror count |
1658 |
|
(unless isearch-forward 'backward)) |
1659 |
(Info-search (if isearch-regexp string (regexp-quote string)) |
(Info-search (if isearch-regexp string (regexp-quote string)) |
1660 |
bound noerror count |
bound noerror count |
1661 |
(unless isearch-forward 'backward)) |
(unless isearch-forward 'backward)) |
1665 |
(isearch-search-fun)))) |
(isearch-search-fun)))) |
1666 |
|
|
1667 |
(defun Info-isearch-wrap () |
(defun Info-isearch-wrap () |
1668 |
(when (and Info-isearch-search (not isearch-word)) |
(when Info-isearch-search |
1669 |
(if isearch-forward (Info-top-node) (Info-final-node)) |
(if isearch-forward (Info-top-node) (Info-final-node)) |
1670 |
(goto-char (if isearch-forward (point-min) (point-max))))) |
(goto-char (if isearch-forward (point-min) (point-max))))) |
1671 |
|
|