Function: texinfo-menu-locate-entry-p

texinfo-menu-locate-entry-p is a byte-compiled function defined in texnfo-upd.el.gz.

Signature

(texinfo-menu-locate-entry-p LEVEL SEARCH-END)

Documentation

Find a node that will be part of menu for this section.

First argument is a string such as "section" specifying the general hierarchical level of the menu; second argument is a position specifying the end of the search.

The function returns t if the node is found, else nil. It searches forward from point, and leaves point at the beginning of the node.

The function finds entries of the same type. Thus subsections and unnumberedsubsecs will appear in the same menu.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/texnfo-upd.el.gz
(defun texinfo-menu-locate-entry-p (level search-end)
  "Find a node that will be part of menu for this section.
First argument is a string such as \"section\" specifying the general
hierarchical level of the menu; second argument is a position
specifying the end of the search.

The function returns t if the node is found, else nil.  It searches
forward from point, and leaves point at the beginning of the node.

The function finds entries of the same type.  Thus `subsections' and
`unnumberedsubsecs' will appear in the same menu."
  (let ((case-fold-search t))
    (if (re-search-forward
	 (concat
	  "\\(^@node\\).*\n"              ; match node line
	  "\\(\\(\\(^@c\\).*\n\\)"        ; match comment line, if any
	  "\\|"                           ; or
	  "\\(^@ifinfo[ ]*\n\\)"          ; ifinfo line, if any
	  "\\|"                           ; or
	  "\\(^@ifnottex[ ]*\n\\)"        ; ifnottex line, if any
          "\\)?"                          ; end of expression
	  (eval
	   (cdr (assoc level texinfo-update-menu-same-level-regexps)) t))
	 search-end
	 t)
	(goto-char (match-beginning 1)))))