Function: ConTeXt-environment

ConTeXt-environment is an interactive and byte-compiled function defined in context.el.

Signature

(ConTeXt-environment ARG)

Documentation

Make ConTeXt environment (\start...-\stop... pair).

With optional ARG, modify current environment.

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/context.el
(defun ConTeXt-environment (arg)
  "Make ConTeXt environment (\\start...-\\stop... pair).
With optional ARG, modify current environment."
  (interactive "*P")
  (let* ((default (cond
                   ((TeX-near-bobp) "text")
                   (t ConTeXt-default-environment)))
         (environment
          (completing-read (concat "Environment type (default " default "): ")
                           (ConTeXt-environment-list) nil nil nil
                           'ConTeXt-environment-history default)))
    ;; Use `environment' as default for the next time only if it is different
    ;; from the current default.
    (unless (equal environment default)
      (setq ConTeXt-default-environment environment))

    (let ((entry (assoc environment (ConTeXt-environment-list))))
      (if (null entry)
          (ConTeXt-add-environments (list environment)))

      (if arg
          (ConTeXt-modify-environment environment)
        (ConTeXt-environment-menu environment)))))