mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(Info-search, Info-mode): Rename

Browse Source 
`isearch-success-function' to `isearch-filter-predicate'.
(Info-isearch-filter-predicate): Rename from
`Info-search-success-function'.
This commit is contained in:
Juri Linkov 2008-11-17 00:43:58 +00:00
parent 43533626b3
commit a2c72e6cb9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/info.el
View File

@ -1660,7 +1660,7 @@ If DIRECTION is `backward', search in the reverse direction."
(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 @@ If DIRECTION is `backward', search in the reverse direction."
(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 @@ If DIRECTION is `backward', search in the reverse direction."
(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 @@ Advanced commands:
'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)