Function: texinfo-top-pointer-case

texinfo-top-pointer-case is a byte-compiled function defined in texnfo-upd.el.gz.

Signature

(texinfo-top-pointer-case)

Documentation

Insert pointers in the Top node. This is a special case.

The Next pointer is a pointer to a chapter or section at a lower hierarchical level in the file. The Previous and Up pointers are to (dir). Point must be at the beginning of the node line, and is left at the end of the node line.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/texnfo-upd.el.gz
(defun texinfo-top-pointer-case ()
  "Insert pointers in the Top node.  This is a special case.

The `Next' pointer is a pointer to a chapter or section at a lower
hierarchical level in the file.  The `Previous' and `Up' pointers are
to `(dir)'.  Point must be at the beginning of the node line, and is
left at the end of the node line."

  (texinfo-clean-up-node-line)
  (insert ", "
	  (save-excursion
	    ;; There may be an @chapter or other such command between
	    ;; the top node line and the next node line, as a title
	    ;; for an `ifinfo' section. This @chapter command must
	    ;; must be skipped.  So the procedure is to search for
	    ;; the next `@node' line, and then copy its name.
	    (if (re-search-forward "^@node" nil t)
		(progn
		  (beginning-of-line)
		  (texinfo-copy-node-name))
	      " "))
	  ", (dir), (dir)"))