Mercurial > emacs
changeset 99642:1221f267b55c
(Info-search, Info-mode): Rename
`isearch-success-function' to `isearch-filter-predicate'.
(Info-isearch-filter-predicate): Rename from
`Info-search-success-function'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 17 Nov 2008 00:43:58 +0000 |
| parents | 833f28e62d37 |
| children | 7f30197e15d8 |
| files | lisp/info.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Nov 17 00:43:27 2008 +0000 +++ b/lisp/info.el Mon Nov 17 00:43:58 2008 +0000 @@ -1660,7 +1660,7 @@ (point-max))) (while (and (not give-up) (or (null found) - (not (funcall isearch-success-function beg-found found)))) + (not (funcall isearch-filter-predicate beg-found found)))) (let ((search-spaces-regexp (if (or (not isearch-mode) isearch-regexp) Info-search-whitespace-regexp))) @@ -1740,7 +1740,7 @@ (setq give-up nil found nil) (while (and (not give-up) (or (null found) - (not (funcall isearch-success-function beg-found found)))) + (not (funcall isearch-filter-predicate beg-found found)))) (let ((search-spaces-regexp (if (or (not isearch-mode) isearch-regexp) Info-search-whitespace-regexp))) @@ -1847,7 +1847,7 @@ (defun Info-isearch-start () (setq Info-isearch-initial-node nil)) -(defun Info-search-success-function (beg-found found) +(defun Info-isearch-filter-predicate (beg-found found) "Skip invisible text, node header line and Tag Table node." (save-match-data (let ((backward (< found beg-found))) @@ -3533,8 +3533,8 @@ 'Info-isearch-wrap) (set (make-local-variable 'isearch-push-state-function) 'Info-isearch-push-state) - (set (make-local-variable 'isearch-success-function) - 'Info-search-success-function) + (set (make-local-variable 'isearch-filter-predicate) + 'Info-isearch-filter-predicate) (set (make-local-variable 'search-whitespace-regexp) Info-search-whitespace-regexp) (set (make-local-variable 'revert-buffer-function)