Function: Info-find-in-tag-table-1

Info-find-in-tag-table-1 is a byte-compiled function defined in info.el.gz.

Signature

(Info-find-in-tag-table-1 MARKER REGEXP CASE-FOLD)

Documentation

Find a node in a tag table.

MARKER specifies the buffer and position to start searching at. REGEXP is a regular expression matching nodes or references. Its first group should match Node: or Ref:. CASE-FOLD t means search for a case-insensitive match. If a match was found, value is a list (FOUND-ANCHOR POS MODE), where FOUND-ANCHOR is non-nil if a Ref: was matched, POS is the file position where the match was found, and MODE is major-mode of the buffer in which the match was found.

Source Code

;; Defined in /usr/src/emacs/lisp/info.el.gz
(defun Info-find-in-tag-table-1 (marker regexp case-fold)
  "Find a node in a tag table.
MARKER specifies the buffer and position to start searching at.
REGEXP is a regular expression matching nodes or references.  Its first
group should match `Node:' or `Ref:'.
CASE-FOLD t means search for a case-insensitive match.
If a match was found, value is a list (FOUND-ANCHOR POS MODE), where
FOUND-ANCHOR is non-nil if a `Ref:' was matched, POS is the file position
where the match was found, and MODE is `major-mode' of the buffer in
which the match was found."
  (let ((case-fold-search case-fold))
    (with-current-buffer (marker-buffer marker)
      (goto-char marker)

      ;; Search tag table
      (beginning-of-line)
      (when (re-search-forward regexp nil t)
	(list (string-equal "Ref:" (match-string 1))
              (read (current-buffer))
	      major-mode)))))