Function: Info-isearch-filter

Info-isearch-filter is a byte-compiled function defined in info.el.gz.

Signature

(Info-isearch-filter BEG-FOUND FOUND)

Documentation

Test whether the current search hit is a visible useful text.

Return non-nil if the text from BEG-FOUND to FOUND is visible and is not in the header line or a tag table.

Source Code

;; Defined in /usr/src/emacs/lisp/info.el.gz
(defun Info-isearch-filter (beg-found found)
  "Test whether the current search hit is a visible useful text.
Return non-nil if the text from BEG-FOUND to FOUND is visible
and is not in the header line or a tag table."
  (save-match-data
    (let ((backward (< found beg-found)))
      (not
       (or
	(and (not (eq search-invisible t))
	     (if backward
		 (or (text-property-not-all found beg-found 'invisible nil)
		     (text-property-not-all found beg-found 'display nil))
	       (or (text-property-not-all beg-found found 'invisible nil)
		   (text-property-not-all beg-found found 'display nil))))
	;; Skip node header line
	(and (save-excursion (forward-line -1)
			     (looking-at "\^_"))
	     (forward-line (if backward -1 1)))
	;; Skip Tag Table node
	(save-excursion
	  (and (search-backward "\^_" nil t)
	       (looking-at
		"\^_\n\\(Tag Table\\|Local Variables\\)"))))))))