Function: ConTeXt-imenu-create-index-function

ConTeXt-imenu-create-index-function is a byte-compiled function defined in context.el.

Signature

(ConTeXt-imenu-create-index-function)

Documentation

Imenu support function for ConTeXt.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/context.el
;; This imenu also includes commented out chapters.  Perhaps a feature
;; for LaTeX, not sure we want or need that for ConTeXt.

(defun ConTeXt-imenu-create-index-function ()
  "Imenu support function for ConTeXt."
  (TeX-update-style)
  (let (entries
        (regexp (ConTeXt-outline-regexp)))
    (goto-char (point-max))
    (while (re-search-backward regexp nil t)
      (let* ((name (ConTeXt-outline-name))
             (level (make-string (1- (ConTeXt-outline-level)) ?\ ))
             (label (concat level level name))
             (mark (make-marker)))
        (set-marker mark (point))
        (set-text-properties 0 (length label) nil label)
        (setq entries (cons (cons label mark) entries))))
    entries))