From: Juri Linkov <juri@jurta.org>
Date: Mon, 17 Nov 2008 00:43:58 +0000 (+0000)
Subject: (Info-search, Info-mode): Rename
X-Git-Tag: emacs-pretest-23.0.90~1763
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2c72e6cb904c3f21da95c8840f80343c362edcd;p=emacs.git

(Info-search, Info-mode): Rename
`isearch-success-function' to `isearch-filter-predicate'.
(Info-isearch-filter-predicate): Rename from
`Info-search-success-function'.
---

diff --git a/lisp/info.el b/lisp/info.el
index 78e3f2ef70c..15a557ad946 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -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)