;ELC ;;; Compiled by nelhage@mit.edu on Wed Mar 21 17:22:35 2007 ;;; from file /home/nelhage/tmp/auctex-11.84/context.el ;;; in Emacs version 23.0.0.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`context.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\312\314& \207" [require tex-buf tex latex custom-declare-group ConTeXt-macro nil "Special support for ConTeXt macros in AUCTeX." :prefix "TeX-" :group ConTeXt TeX-macro] 10) #@58 Position of point afterwards, default nil (meaning end). (defvar done-mark nil (#$ . 839)) #@66 Set by `ConTeXt-section-ref', used by `ConTeXt-section-section'. (defvar reference nil (#$ . 936)) #@68 Set by `ConTeXt-section-title', used by `ConTeXt-section-section'. (defvar title nil (#$ . 1041)) (byte-code "\301\302\207" [ConTeXt-known-interfaces ("cz" "de" "en" "it" "nl" "ro" "uk") nil] 1) #@52 Default interface to be used when running ConTeXt. (custom-declare-variable 'ConTeXt-default-interface '"en" '(#$ . 1243) :group 'ConTeXt :type 'string) #@60 Interface to be used for inserting macros and ConTeXt run. (defvar ConTeXt-current-interface "en" (#$ . 1402)) (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\301\303!\207" [current-load-list make-variable-buffer-local ConTeXt-current-interface ConTeXt-menu-changed default-boundp set-default nil] 3) #@51 Largest sectioning level within current document. (defvar ConTeXt-largest-level nil (#$ . 1727)) (make-variable-buffer-local 'ConTeXt-largest-level) (defalias 'ConTeXt-largest-level #[nil "\301 \210\207" [ConTeXt-largest-level TeX-update-style] 1]) #@50 The ConTeXt optional argument opening character. (defvar ConTeXt-optop "[" (#$ . 1983)) #@50 The ConTeXt optional argument closing character. (defvar ConTeXt-optcl "]" (#$ . 2077)) #@65 Calls ConTeXt-XX-define-list where XX is the current interface. (defvar ConTeXt-define-list nil (#$ . 2171)) #@35 The ConTeXt macro to define WHAT. (defalias 'ConTeXt-define-command #[(what) "\302\303P! !\207" [ConTeXt-current-interface what intern "ConTeXt-define-command-"] 3 (#$ . 2286)]) #@41 Insert the ConTeXt define macro DEFINE. (defalias 'ConTeXt-insert-define #[(define) "\302 !\261\210\303 \210\304 \210\305\306!\207" [TeX-esc define ConTeXt-define-command newline indent-according-to-mode ConTeXt-arg-setup nil] 3 (#$ . 2471)]) #@64 Calls ConTeXt-XX-setup-list where XX is the current interface. (defvar ConTeXt-setup-list nil (#$ . 2722)) #@34 The ConTeXt macro to setup WHAT. (defalias 'ConTeXt-setup-command #[(what) "\302\303P! !\207" [ConTeXt-current-interface what intern "ConTeXt-setup-command-"] 3 (#$ . 2835)]) #@39 Insert the ConTeXt setup macro SETUP. (defalias 'ConTeXt-insert-setup #[(setup) "\302 !\261\210\303 \210\304 \210\305\306!\207" [TeX-esc setup ConTeXt-setup-command newline indent-according-to-mode ConTeXt-arg-setup nil] 3 (#$ . 3017)]) #@70 Calls ConTeXt-XX-other-macro-list where XX is the current interface. (defvar ConTeXt-other-macro-list nil (#$ . 3262)) #@72 The ConTeXt macro to call WHAT is itself, no interface specific calls. (defalias 'ConTeXt-other-macro-command #[(what) "\207" [what] 1 (#$ . 3387)]) #@47 Insert the ConTeXt other macro's macro SETUP. (defalias 'ConTeXt-insert-other-macro #[(other-macro) "\302 !\261\210\303 \210\304 \210\305\306!\207" [TeX-esc other-macro ConTeXt-other-macro-command newline indent-according-to-mode ConTeXt-arg-setup nil] 3 (#$ . 3543)]) #@71 Calls ConTeXt-XX-project-structure where XX is the current interface. (defvar ConTeXt-project-structure-list nil (#$ . 3820)) #@95 Insert a ConTeXt project structure where N is in index into `ConTeXt-project-structure-list'. (defalias 'ConTeXt-project-structure #[(N) "\302\303 8\304Q! \207" [N ConTeXt-project-structure-list intern "ConTeXt-project-" "-insert"] 4 (#$ . 3952)]) #@52 Insert a basic template for a new ConTeXt project. (defalias 'ConTeXt-project-project-insert #[nil "\212\302c\210\303 @\304\261\210\305\306!\210 A@\307\261\210\305\306!\210\306 8\310\261\210\305\306!\210\306 8\311\261\210\305\306!\210\312 @\261)\207" [TeX-esc ConTeXt-project-structure-list "% The following names are examples only\n" ConTeXt-environment-start-name " myproject" newline 2 " myenvironment" " myproduct1" " myproduct2" ConTeXt-environment-stop-name] 4 (#$ . 4207)]) #@67 Insert a basic template for the environment of a ConTeXt project. (defalias 'ConTeXt-project-environment-insert #[nil "\212\302\303\261\210\304 A@\305\261\210\306\307\261\210\310 A@\261)\207" [TeX-esc ConTeXt-project-structure-list "% The name 'myenvironment' is an example only.\n" "% It must match the name in your project file.\n" ConTeXt-environment-start-name " myenvironment\n\n" "% Put environment charateristics that must be defined at the " "highest level here\n\n" ConTeXt-environment-stop-name] 4 (#$ . 4706)]) #@61 Insert a basic template for a product of a ConTeXt project. (defalias 'ConTeXt-project-product-insert #[nil "\212\302c\210\303 \304 8\305\261\210\306\304!\210 @\307\261\210\306\304!\210\310\311\261\210\312 8\313\261\210\306\304!\210\312 8\314\261\210\306\304!\210\315 \304 8\261)\207" [TeX-esc ConTeXt-project-structure-list "% The following names are examples only\n" ConTeXt-environment-start-name 2 " myproduct1" newline " myproject" "% Components are optional. " "You can also just start your document here.\n" 3 " mycomponent1" " mycomponent2" ConTeXt-environment-stop-name] 4 (#$ . 5242)]) #@63 Insert a basic template for a component of a ConTeXt project. (defalias 'ConTeXt-project-component-insert #[nil "\212\302c\210\303 \304 8\305\261\210\306\307!\210 @\310\261\210\307 8\311\261\210\306\307!\210\312c\210\306\307!\210\313 \304 8\261)\207" [TeX-esc ConTeXt-project-structure-list "% The following names are examples only\n" ConTeXt-environment-start-name 3 " mycomponent1" newline 2 " myproject\n" " myproduct1" "% ... text here ..." ConTeXt-environment-stop-name] 4 (#$ . 5855)]) #@66 Calls ConTeXt-XX-section-list where XX is the current interface. (defvar ConTeXt-section-block-list nil (#$ . 6361)) #@49 Insert the ConTeXt section block SECTION-BLOCK. (defalias 'ConTeXt-section-block #[(section-block) "\301!\207" [section-block ConTeXt-environment-menu] 2 (#$ . 6484)]) #@663 Insert a template for a ConTeXt section. Determinate the type of section to be inserted, by the argument ARG. If ARG is nil or missing, use the current level. If ARG is a list (selected by \[universal-argument]), go downward one level. If ARG is negative, go up that many levels. If ARG is positive or zero, use absolute level: 0 : part 1 : chapter 2 : section 3 : subsection 4 : subsubsection 5 : subsubsubsection Or: 0 : title 1 : subject 2 : subsubject 3 : subsubsubject The following variables can be set to customize: `ConTeXt-section-hook' Hooks to run when inserting a section. `ConTeXt-section-ref' Prefix to all section references. (defalias 'ConTeXt-section #[(arg) "\306!\204 \307 \202%<\203\310 \202% \311W\203$\312 [!\202% \313\n!\314\315\316 \317 \210\320\321!\210\317 \210\322!\203I\322!b\210\314\211\223.\207" [arg val level name toc title prefix-numeric-value ConTeXt-current-section ConTeXt-down-section 0 ConTeXt-up-section ConTeXt-section-name nil "" make-marker newline run-hooks ConTeXt-section-hook marker-position done-mark] 3 (#$ . 6660) "*P"]) #@107 Return the level of the section that contain point. See also `ConTeXt-section' for description of levels. (defalias 'ConTeXt-current-section #[nil "\212\301 \302\303\304#\203\305 \306 ZT\202\301 ^)\207" [outline-regexp ConTeXt-largest-level re-search-backward nil t ConTeXt-outline-level ConTeXt-outline-offset] 5 (#$ . 7783)]) #@205 Return the value of a section one level under the current. Tries to find what kind of section that have been used earlier in the text, if this fail, it will just return one less than the current section. (defalias 'ConTeXt-down-section #[nil "\212\304 \305\306 \305\307#\204 T\202O\n\204N\304 =\203?\310 \305\307#\2038\304 \211 X\203 T\211\202 T\211\202\306 \305\307#\204 T\211\203\n,\207" [outline-regexp regexp next current ConTeXt-current-section nil re-search-backward t re-search-forward] 5 (#$ . 8123)]) #@60 Return the value of the section ARG levels above this one. (defalias 'ConTeXt-up-section #[(arg) "\212\303!\203\f\304 \202#\304 \304 Y\203\305\n\306\307#\204\310S!))\207" [arg current outline-regexp zerop ConTeXt-current-section re-search-backward nil t ConTeXt-up-section] 4 (#$ . 8664)]) #@60 ConTeXt-XX-section-list where XX is the current interface. (defvar ConTeXt-section-list nil (#$ . 8970)) #@56 Return the name of the section corresponding to LEVEL. (defalias 'ConTeXt-section-name #[(level) "\303 \304#\211\205\f\n@)\207" [level ConTeXt-section-list entry TeX-member #[(a b) " A@\232\207" [a b] 2]] 5 (#$ . 9081)]) #@39 Return the level of the section NAME. (defalias 'ConTeXt-section-level #[(name) "\303 \304#\211\205 \nA@)\207" [name ConTeXt-section-list entry TeX-member #[(a b) " @\232\207" [a b] 2]] 5 (#$ . 9312)]) #@1112 List of hooks to run when a new section is inserted. The following variables are set before the hooks are run level - numeric section level, see the documentation of `ConTeXt-section'. name - name of the sectioning command, derived from `level'. title - The title of the section, default to an empty string. `done-mark' - Position of point afterwards, default nil (meaning end). The following standard hook exist - ConTeXt-section-heading: Query the user about the name of the sectioning command. Modifies `level' and `name'. ConTeXt-section-title: Query the user about the title of the section. Modifies `title'. ConTeXt-section-section: Insert ConTeXt section command according to `name', `title', and `reference'. If `title' is an empty string, `done-mark' will be placed at the point they should be inserted. ConTeXt-section-ref: Insert a reference for this section command. To get a full featured `ConTeXt-section' command, insert (setq ConTeXt-section-hook '(ConTeXt-section-heading ConTeXt-section-title ConTeXt-section-section ConTeXt-section-ref)) in your .emacs file. (custom-declare-variable 'ConTeXt-section-hook ''(ConTeXt-section-heading ConTeXt-section-title ConTeXt-section-ref ConTeXt-section-section) '(#$ . 9526) :type 'hook :options '(ConTeXt-section-heading ConTeXt-section-title ConTeXt-section-ref ConTeXt-section-section)) #@186 Hook to prompt for ConTeXt section name. Insert this hook into `ConTeXt-section-hook' to allow the user to change the name of the sectioning command inserted with `\[ConTeXt-section]'. (defalias 'ConTeXt-section-heading #[nil "\303\304\305Q \306\211\211%\307\nG!?\205\n\211)\207" [name ConTeXt-section-list string completing-read "Select level: (default " ") " nil zerop] 6 (#$ . 10913)]) #@176 Hook to prompt for ConTeXt section title. Insert this hook into `ConTeXt-section-hook' to allow the user to change the title of the section inserted with `\[ConTeXt-section]. (defalias 'ConTeXt-section-title #[nil "\301\302!\211\207" [title read-string "What title: "] 2 (#$ . 11314)]) #@247 Hook to insert ConTeXt section command into the file. Insert this hook into `ConTeXt-section-hook' after those hooks which sets the `name', `title', and `reference' variables, but before those hooks which assumes the section already is inserted. (defalias 'ConTeXt-section-section #[nil " \261\210\n\203$\306\nG!\203 c\210\f`\307\223\210 c\210\202$ \n \261\210 c\210\306\fG!\2035\f`\307\223\210\f \261\210\310 \210\311\312!\205H\312K \207" [TeX-esc name reference ConTeXt-optop done-mark ConTeXt-optcl zerop nil newline fboundp reftex-notice-new-section TeX-grop title TeX-grcl] 3 (#$ . 11608)]) #@170 Hook to insert a reference after the sectioning command. Insert this hook into `ConTeXt-section-hook' to prompt for a label to be inserted after the sectioning command. (defalias 'ConTeXt-section-ref #[nil "\301\302\303\304\305#\306 \304\211$\211\307\230\205\304\211\207" [reference completing-read TeX-argument-prompt t nil "Comma separated list of references" LaTeX-label-list ""] 6 (#$ . 12225)]) #@50 Cleanup TeX output buffer after running ConTeXt. (defalias 'TeX-ConTeXt-sentinel #[(process name) "\305 \"\206Q\212db\210\306\307\310\311#\210\312\313\310\311#)\203&\314\315\316\317 Q!\210\n\211\207\312\320\310\311#\2032\314\321!\207\312\322\310\311#\203F\314 \323\317 Q!\210\f\211\207\314 \324\317 Q!\210\n\211\207" [process name TeX-command-default TeX-command-next TeX-command-Show TeX-TeX-sentinel-check re-search-backward "TeXUtil " nil t re-search-forward "another run needed" message "You should run ConTeXt again " "to get references right, " TeX-current-pages "removed files :" "sucessfully cleaned up" "^ TeX\\(Exec\\|Util\\)" ": successfully formatted " ": problems after "] 4 (#$ . 12635)]) (custom-declare-group 'ConTeXt-environment nil "Environments in AUCTeX." :group 'ConTeXt-macro) #@77 *The default environment when creating new ones with `ConTeXt-environment'. (custom-declare-variable 'ConTeXt-default-environment '"itemize" '(#$ . -13448) :group 'ConTeXt-environment :type 'string) (byte-code "\300\301!\210\302\303\304\"\210\305\306KM\207" [make-variable-buffer-local ConTeXt-default-environment TeX-auto-add-type "environment" "ConTeXt" ConTeXt-add-environments-auto ConTeXt-add-environments] 3) #@53 Add ENVIRONMENTS to the list of known environments. (defalias 'ConTeXt-add-environments #[(&rest environments) "\302\303\"\210\304\211\207" [environments ConTeXt-menu-changed apply ConTeXt-add-environments-auto t] 3 (#$ . 13869)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list ConTeXt-environment-history default-boundp set-default nil] 3) #@68 Return the \start translated to the language in current interface. (defalias 'ConTeXt-environment-start-name #[nil "\302\232\203\303\207 \235\203\304\207\305\306\"\207" [ConTeXt-current-interface ConTeXt-known-interfaces "it" "inizia" "start" error "Unknown interface: "] 3 (#$ . 14252)]) #@67 Return the \stop translated to the language in current interface. (defalias 'ConTeXt-environment-stop-name #[nil "\302\232\203\303\207 \235\203\304\207\305\306\"\207" [ConTeXt-current-interface ConTeXt-known-interfaces "it" "termina" "stop" error "Unknown interface: "] 3 (#$ . 14554)]) #@100 Make ConTeXt environment (\start...-\stop... pair). With optional ARG, modify current environment. (defalias 'ConTeXt-environment #[(arg) "\305\306\307 \203 \310\202\f\311Q \312\211\211\313&\314\nG!\203'\307 \203'\310\2025\314\nG!\2033\2025\n\315\n \"\211\204C\316\nC!\210\f\203M\317\n!\202P\320\n!*\207" [ConTeXt-default-environment ConTeXt-environment-list environment entry arg completing-read "Environment type: (default " TeX-near-bobp "text" ") " nil ConTeXt-environment-history zerop assoc ConTeXt-add-environments ConTeXt-modify-environment ConTeXt-environment-menu] 8 (#$ . 14855) "*P"]) #@29 Modify current environment. (defalias 'ConTeXt-modify-environment #[(environment) "\212\302 \210\303\304!\305 \306Q\212\307\310!\210`)\"\210\311\305 Q\312\211#\210\307\310!\210\313 \210\314\304!\315 \306Q\212\310\210`)\"\210\311\315 Q\312\211#)\207" [TeX-esc environment ConTeXt-find-matching-stop re-search-backward regexp-quote ConTeXt-environment-stop-name " *\\([a-zA-Z]*\\)" beginning-of-line 1 replace-match t ConTeXt-find-matching-start re-search-forward ConTeXt-environment-start-name] 4 (#$ . 15476)]) #@44 Insert ENVIRONMENT around point or region. (defalias 'ConTeXt-environment-menu #[(environment) "\306 \"\211\203\nA@\204\307!\202u\nA@\247\203=\nA@\310\211\311V\2035  Q\fS\211\202#\307 \"*\202u\nA@;\203l\nA\310\211\203d \312@\313P! RA\211\204N\307 \"*\202u\314\nA@\nAA#)\207" [environment ConTeXt-environment-list entry args count TeX-grop assoc ConTeXt-insert-environment "" 0 read-from-minibuffer ": " apply TeX-grcl prompts] 6 (#$ . 16000)]) #@51 Insert \stop... to match the current environment. (defalias 'ConTeXt-close-environment #[nil "\302 \210\303\304!\305\210\204\306 \210) \307 \310 \261\210\305\210\306 \207" [empty-line TeX-esc beginning-of-line looking-at "[ ]*$" nil newline ConTeXt-environment-stop-name ConTeXt-current-environment] 3 (#$ . 16487) "*"]) #@51 Insert ENVIRONMENT, with optional argument EXTRA. (defalias 'ConTeXt-insert-environment #[(environment &optional extra) "\303 \203L\304 `=\204L\212\304 `W\203\305 \210\306 \261\210\307 \210\310y\210\311 \210\n\203.\nc\210\304 b\210\312\313!\204;\307 \210\314 \261\210\307 \210\310y\210\311 )\207\312\313!\204U\307 \210\306 \261\210\311 \210\n\203f\nc\210\315\210\316 \210\307 \210\314 \261\210\317\320!\204\201\212\316 \210)\311 \210\321\207" [TeX-esc environment extra TeX-active-mark mark exchange-point-and-mark ConTeXt-environment-start-name newline -1 indent-according-to-mode TeX-looking-at-backward "^[ ]*" ConTeXt-environment-stop-name nil newline-and-indent looking-at "[ ]*$" 0] 3 (#$ . 16822)]) #@108 Alist that holds functions to call for working on regions. An entry looks like: ("environment" . function) (defvar ConTeXt-environment-helper '(("useMPgraphic" . ConTeXt-mp-region) ("MPpage" . ConTeXt-mp-region)) (#$ . 17560)) #@33 Edit region in `metapost-mode'. (defalias 'ConTeXt-mp-region #[nil "\300\301!\210\302 `}\210\303 \210\304\305!\210\306 \210\307 \210~\207" [ConTeXt-mark-environment t mark metapost-mode message "Type `M-x exit-recursive-edit' to get back" recursive-edit context-mode] 2 (#$ . 17793)]) #@75 Takes current environment and does something on it (todo: documentation). (defalias 'ConTeXt-work-on-environment #[nil "\302\303 \"A\304 !\205 )\207" [ConTeXt-environment-helper fun assoc ConTeXt-current-environment functionp] 3 (#$ . 18084) nil]) #@45 Return the name of the current environment. (defalias 'ConTeXt-current-environment #[nil "\301\212\302 \210`\303 G\\\304\\\305\225b\210\306\301w\210`{*\207" [beg nil ConTeXt-last-unended-start ConTeXt-environment-start-name 1 0 "a-zA-Z"] 2 (#$ . 18343)]) #@105 Leave point at the beginning of the last `\start...' that is unstopped looking from the current cursor. (defalias 'ConTeXt-last-unended-start #[nil "\300\301!\205\302\303!\205\304 \210\202\207" [re-search-backward "\\\\start[a-zA-Z]*\\|\\\\stop[a-zA-Z]*" looking-at "\\\\stop[a-zA-Z]*" ConTeXt-last-unended-start] 2 (#$ . 18608)]) #@182 Set mark to end of current environment (\start...-\stop...) and point to the matching begin. If optional INNER is not nil, include \start... and \stop, otherwise only the contents. (defalias 'ConTeXt-mark-environment #[(&optional inner) "`\302 !\210\303`!\210b\210\304 !\210\305 )\207" [cur inner ConTeXt-find-matching-stop set-mark ConTeXt-find-matching-start TeX-activate-region] 2 (#$ . 18952) nil]) #@157 Find end of current \start...\stop-Pair. If INNER is non-nil, go to the point just past before \stop... macro. Otherwise goto the point just past \stop... (defalias 'ConTeXt-find-matching-stop #[(&optional inner) "\305!\306\307 \310\311 \312\260\313\314\315\305!\307 P!\203\"\316 \314\317#\210\n\320V\203g\316 \314\317#\203g\313\224Sb\203g\315\305!\307 P!\203O\316 \314\317#\210\nT\211\202d\315\305!\311 P!\203g\316 \314\317#\210\nS\211\204\"\f\203p\321 \202s\322\314w+\207" [TeX-esc pos level regexp inner regexp-quote "\\(" ConTeXt-environment-start-name "\\|" ConTeXt-environment-stop-name "\\)" 1 nil looking-at re-search-forward t 0 beginning-of-line "a-zA-Z"] 6 (#$ . 19364) nil]) #@116 Find beginning of current \start...\stop-Pair. If INNER is non-nil, go to the point just past the \start... macro. (defalias 'ConTeXt-find-matching-start #[(&optional inner) "\305!\306\307 \310\311 \312\260\313\314\n\315V\203C\316 \314\317#\203C\320\305!\311 P!\2031\nT\211\202@\320\305!\307 P!\203C\nS\211\204\f\205v\321\314w\210\212\322\314w\210\323\313!\210\322\314w\210\320\324!\203g\325\313!\210`\202L) \203o b\210n?\205v\314y+\207" [TeX-esc pos level regexp inner regexp-quote "\\(" ConTeXt-environment-start-name "\\|" ConTeXt-environment-stop-name "\\)" 1 nil 0 re-search-backward t looking-at "\\\\a-zA-Z" " \n " forward-comment "\\s(" forward-list] 6 (#$ . 20079) nil]) #@20 Insert a new item. (defalias 'ConTeXt-insert-item #[nil "\300\301!\204 \302 \210\303\304!\210\305 \207" [TeX-looking-at-backward "^[ ]*" newline TeX-insert-macro "item" indent-according-to-mode] 2 (#$ . 20787) "*"]) #@43 Insert ARG surrounded by square brackets. (defalias 'ConTeXt-optional-argument-insert #[(arg &optional prefix) "c\210 c\210\nc\207" [ConTeXt-optop arg ConTeXt-optcl] 1 (#$ . 21011)]) #@40 Insert ARG surrounded by curly braces. (defalias 'ConTeXt-required-argument-insert #[(arg &optional prefix) "c\210 c\210\nc\207" [TeX-grop arg TeX-grcl] 1 (#$ . 21201)]) #@113 Insert ARG surrounded by curly braces. If OPTIONAL, only insert it if not empty, and then use square brackets. (defalias 'ConTeXt-argument-insert #[(arg optional &optional prefix) "\203 \303\230?\205\304 \n\"\207\305 \n\"\207" [optional arg prefix "" ConTeXt-optional-argument-insert ConTeXt-required-argument-insert] 3 (#$ . 21379)]) #@58 Prompt for a reference completing with known references. (defalias 'ConTeXt-arg-ref #[(optional &optional prompt definition) "\304\305 \306#\307 \" \203\n\310\230\204\311\n!\210\312\n\")\207" [optional prompt ref definition completing-read TeX-argument-prompt "ref" LaTeX-label-list "" LaTeX-add-labels ConTeXt-argument-insert] 5 (#$ . 21726)]) #@68 Prompt for an optional reference completing with known references. (defalias 'ConTeXt-arg-define-ref #[(&optional prompt) "\301\302\302#\207" [prompt ConTeXt-arg-ref t] 4 (#$ . 22084)]) #@29 Prompt for setup arguments. (defalias 'ConTeXt-arg-setup #[(optional &optional prompt) "\303\304 \305#!\306\n\307\")\207" [optional prompt setup read-from-minibuffer TeX-argument-prompt "Setup" ConTeXt-argument-insert t] 5 (#$ . 22277)]) #@35 List of macro's considered items. (defvar ConTeXt-item-list nil (#$ . 22523)) #@94 List of ConTeXt macros that should have their own line besides the section(-block) commands. (defvar ConTeXt-extra-paragraph-commands '("crlf" "par") (#$ . 22607)) #@66 Return a regexp matching macros that should have their own line. (defalias 'ConTeXt-paragraph-commands-regexp #[nil "\304!\305\306\307 \310\311 \310\312\313 \314#\314\312\315\n\314#\314\312\315 \314#\316\260 \207" [TeX-esc ConTeXt-section-list ConTeXt-extra-paragraph-commands ConTeXt-item-list regexp-quote "\\(" "[][]\\|" ConTeXt-environment-start-name "\\|" ConTeXt-environment-stop-name mapconcat car "\\b\\|" identity "\\b\\)"] 15 (#$ . 22777)]) #@78 Return the ConTeXt macro name that starts ENVIRONMENT. It is interface aware (defalias 'ConTeXt-environment-full-start-name #[(environment) "\301 P\207" [environment ConTeXt-environment-start-name] 2 (#$ . 23235)]) #@157 Return regexp for ConTeXt section blocks and sections. If optional argument ANYWHERE is not nil, do not require that the header is at the start of a line. (defalias 'ConTeXt-outline-regexp #[(&optional anywhere) "\203\305\202 \306\307\310 !\311\312\313\n\314#\314\312\315 \314#\316\f\203\"\314\202#\305\312\315\f\314#\314\317 \320\314\321 \320\260\207" [anywhere TeX-esc ConTeXt-section-block-list ConTeXt-section-list TeX-outline-extra "" "^" "[ ]*" regexp-quote "\\(" mapconcat ConTeXt-environment-full-start-name "\\|" car "\\)\\b" ConTeXt-header-end "\\b" ConTeXt-trailer-start] 16 (#$ . 23458)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-text default-boundp set-default "Name of ConTeXt macro that begins the text body."] 3) #@53 Default end of header marker for ConTeXt documents. (defalias 'ConTeXt-header-end #[nil "\302!\303 Q\207" [TeX-esc ConTeXt-text regexp-quote ConTeXt-environment-start-name] 3 (#$ . 24250)]) #@56 Default start of trailer marker for ConTeXt documents. (defalias 'ConTeXt-trailer-start #[nil "\302!\303 Q\207" [TeX-esc ConTeXt-text regexp-quote ConTeXt-environment-stop-name] 3 (#$ . 24448)]) #@70 Offset to add to `ConTeXt-section-list' levels to get outline level. (defalias 'ConTeXt-outline-offset #[nil "\300\301 Z\207" [4 ConTeXt-largest-level] 2 (#$ . 24651)]) #@80 Regular expression that matches a start of all environments mentioned in LIST. (defalias 'ConTeXt-start-environment-regexp #[(list) "\301\302\303\304#\305Q\207" [list "start\\(" mapconcat identity "\\|" "\\)\\b"] 5 (#$ . 24826)]) #@67 Find the level of current outline heading in an ConTeXt document. (defalias 'ConTeXt-outline-level #[nil "\303\304 \305P!\203 \306\207\303\307 \305P!\203\306\207\310!\203%\306\310!\311 \\]\207\212\312\313w\210\306u\210\303\314 !!\2039\306\202M\310\n!\203J\306\310\n!\311 \\]\202M\315\316!)\207" [TeX-outline-extra ConTeXt-section-block-list ConTeXt-section-list looking-at ConTeXt-header-end "\\b" 1 ConTeXt-trailer-start TeX-look-at ConTeXt-outline-offset " " nil ConTeXt-start-environment-regexp error "Unrecognized header"] 3 (#$ . 25063)]) #@395 List of fonts used by `TeX-font'. Each entry is a list. The first element is the key to activate the font. The second element is the string to insert before point, and the third element is the string to insert after point. If the fourth and fifth element are strings, they specify the prefix and suffix to be used in math mode. An optional fourth (or sixth) element means always replace if t. (custom-declare-variable 'ConTeXt-font-list ''((2 "{\\bf " "}") (3 "{\\sc " "}") (5 "{\\em " "}") (9 "{\\it " "}") (18 "{\\rm " "}") (19 "{\\sl " "}") (20 "{\\tt " "}") (4 "" "" t)) '(#$ . 25625) :group 'TeX-macro :type '(repeat (group :value (1 "" "") (character :tag "Key") (string :tag "Prefix") (string :tag "Suffix") (option (group :inline t (string :tag "Math Prefix") (string :tag "Math Suffix"))) (option (sexp :format "Replace\n" :value t))))) #@43 Guess a name for the current header line. (defalias 'ConTeXt-outline-name #[nil "\212\300\301\302 \303#\203\304\305!\202\306`\302 \")\207" [re-search-forward "{\\([^}]*\\)}" point-at-eol t match-string 1 buffer-substring-no-properties] 4 (#$ . 26478)]) #@37 Imenu support function for ConTeXt. (defalias 'ConTeXt-imenu-create-index-function #[nil "\306 \210\307\211\310 db\210\311\307\312#\203>\313 \314\315 S\316\"\211\211 Q\317 \211`\307\223\210\320\321\fG\307\f$\210\f B\nB,\202 \n+\207" [regexp level entries name label mark TeX-update-style nil ConTeXt-outline-regexp re-search-backward t ConTeXt-outline-name make-string ConTeXt-outline-level 32 make-marker set-text-properties 0] 6 (#$ . 26741)]) (byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\301B\303\301!\204-\304\301\307\"\210\310B\303\310!\204<\304\310 \"\210\311B\303\311!\204K\304\311\312\"\210\302\207" [current-load-list ConTeXt-indent-basic ConTeXt-indent-allhanging default-boundp set-default t ConTeXt-indent-arg 2 ConTeXt-indent-item ConTeXt-indent-item-re "\\\\item\\>"] 3) #@48 Syntax table used while computing indentation. (defvar ConTeXt-indent-syntax-table (make-syntax-table TeX-mode-syntax-table) (#$ . 27600)) (byte-code "\301\302\303#\210\301\304\303#\210\301\305\303#\207" [ConTeXt-indent-syntax-table modify-syntax-entry 36 "." 40 41] 4) (defalias 'ConTeXt-indent-line #[(&optional arg) "\304 p\305\216\306\n!\210\212\307 \210\310 )\211\311W\203\311i\312 X\203(\313 !\202-\212\313 !),\207" [#1=#:buffer #2=#:table ConTeXt-indent-syntax-table indent syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table beginning-of-line ConTeXt-find-indent 0 current-indentation indent-line-to] 3]) #@218 Find the proper indentation of text after point. VIRTUAL if non-nil indicates that we're only trying to find the indentation in order to determine the indentation of something else. There might be text before point. (defalias 'ConTeXt-find-indent #[(&optional virtual) "\212\306\307w\210\203\310 iY\203\310 \206\375\307fz\311=\203$\307\312\313\217\206\375`\307f\314\307\315\316 !\317 P!\203@\nZ\202L\315!\203L\n Z\320\321\322\217\210e\fU\203[\314\202\374 \250\203\210 b\210!\204z\f\323\324!\210\325d!\210`V\203zi\202\374 b\210\n\\\326\300!\\\202\374\204\223\307f\327=\204\231\ni\\\202\374\315!\203\251\ni\\ \\\202\374\315\316 !\330 P!\203\312\315\316 !\330 \"Q!\204\312\ni\\\\\202\374i# z\331=\204\333\n#\\\202\373\332\324!\210\333 \212\325d!\210`)W\203\366i$#\\^\202\373\334\335!\210i),)\207" [virtual up-list-pos indent char pos TeX-esc " " nil current-indentation 41 (byte-code "\212\300\301!\210\302\303!\210\304\305!)\207" [skip-syntax-forward " )" backward-sexp 1 ConTeXt-find-indent virtual] 2) ((error)) 0 looking-at regexp-quote ConTeXt-environment-stop-name err (byte-code "\300\301!\210i\302 V\203\300\301!\210\202\300\207" [backward-sexp 1 current-indentation] 2) ((scan-error (byte-code "\3028\302\207" [err up-list-pos 2] 2))) down-list 1 forward-comment ConTeXt-find-indent 92 ConTeXt-environment-start-name 40 forward-sexp line-end-position skip-syntax-forward " " ConTeXt-indent-basic ConTeXt-indent-item-re ConTeXt-indent-item ConTeXt-indent-allhanging ConTeXt-text col ConTeXt-indent-arg] 4 (#$ . 28281)]) #@67 Leave point at the beginning of the last `tag' that is unstopped. (defalias 'ConTeXt-last-unended-start-xml #[nil "\300\301!\205\302\303!\205\304 \210\202\207" [re-search-backward "<[_A-Za-z][-:._A-Za-z0-9]*\\([ \n]\\|[_A-Za-z][-:._A-Za-z0-9]*=\"[^\"]*\"\\)*>\\|" looking-at "" ConTeXt-last-unended-start-xml] 2 (#$ . 29875)]) #@69 Create an to match the last unclosed <...>. Not fool-proof. (defalias 'ConTeXt-close-xml-tag #[nil "n\303\211\212\303\304\305\217\210i\306\307!\210\310\224\310\225{)j\210\311 \312\261\210\n\205(\313c+\207" [indentation text new-line-needed nil (ConTeXt-last-unended-start-xml) ((error (error "Couldn't find unended XML tag"))) re-search-forward "<\\([_A-Za-z][-:._A-Za-z0-9]*\\)" 1 "" 10] 3 (#$ . 30271) "*"]) #@32 Keymap used in `ConTeXt-mode'. (defvar ConTeXt-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\317\320!\2042\304\320\316#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210)\207" [map TeX-mode-map make-sparse-keymap set-keymap-parent define-key "" ConTeXt-find-matching-start "" ConTeXt-find-matching-stop "!" ConTeXt-work-on-environment "" ConTeXt-environment "\n" ConTeXt-insert-item key-binding " " "]" ConTeXt-close-environment "" ConTeXt-section "/" ConTeXt-close-xml-tag] 4) (#$ . 30709)) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-environment-menu-name default-boundp set-default "Insert Environment (C-c C-e)"] 3) #@43 Create an entry for the environment menu. (defalias 'ConTeXt-environment-menu-entry #[(entry) "\301@\302@D\303#\207" [entry vector ConTeXt-environment-menu t] 4 (#$ . 31490)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-environment-modify-menu-name default-boundp set-default "Change Environment (C-u C-c C-e)"] 3) #@50 Create an entry for the change environment menu. (defalias 'ConTeXt-environment-modify-menu-entry #[(entry) "\301@\302@D\303#\207" [entry vector ConTeXt-modify-environment t] 4 (#$ . 31860)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-define-menu-name default-boundp set-default "Define"] 3) #@38 Create an entry for the define menu. (defalias 'ConTeXt-define-menu-entry #[(entry) "\301\302D\"\207" [entry vector ConTeXt-define-menu] 4 (#$ . 32206)]) #@26 Insert DEFINE from menu. (defalias 'ConTeXt-define-menu #[(define) "\301!\207" [define ConTeXt-insert-define] 2 (#$ . 32368)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-setup-menu-name default-boundp set-default "Setup"] 3) #@37 Create an entry for the setup menu. (defalias 'ConTeXt-setup-menu-entry #[(entry) "\301\302D\"\207" [entry vector ConTeXt-setup-menu] 4 (#$ . 32646)]) #@25 Insert SETUP from menu. (defalias 'ConTeXt-setup-menu #[(setup) "\301!\207" [setup ConTeXt-insert-setup] 2 (#$ . 32805)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-other-macro-menu-name default-boundp set-default "Other macro"] 3) #@43 Create an entry for the other macro menu. (defalias 'ConTeXt-other-macro-menu-entry #[(entry) "\301\302D\"\207" [entry vector ConTeXt-other-macro-menu] 4 (#$ . 33090)]) #@31 Insert OTHER MACRO from menu. (defalias 'ConTeXt-other-macro-menu #[(other-macro) "\301!\207" [other-macro ConTeXt-insert-other-macro] 2 (#$ . 33267)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-project-structure-menu-name default-boundp set-default "Project Structure"] 3) #@37 Insert project structure from menu. (defalias 'ConTeXt-project-structure-menu #[(project-structure) "\303\211G\n \235GZ)!\207" [ConTeXt-project-structure-list l project-structure ConTeXt-project-structure] 5 (#$ . 33594)]) #@49 Create an ENTRY for the project structure menu. (defalias 'ConTeXt-project-structure-menu-entry #[(entry) "\301\302D\"\207" [entry vector ConTeXt-project-structure-menu] 4 (#$ . 33825)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-section-block-menu-name default-boundp set-default "Section Block"] 3) #@33 Insert section block from menu. (defalias 'ConTeXt-section-block-menu #[(section-block) "\301!\207" [section-block ConTeXt-section-block] 2 (#$ . 34180)]) #@45 Create an ENTRY for the section block menu. (defalias 'ConTeXt-section-block-menu-entry #[(entry) "\301\302D\"\207" [entry vector ConTeXt-section-block-menu] 4 (#$ . 34342)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-section-menu-name default-boundp set-default "Section (C-c C-s)"] 3) #@54 Symbol used to enable section LEVEL in the menu bar. (defalias 'ConTeXt-section-enable-symbol #[(level) "\301\302\303!\304Q!\207" [level intern "ConTeXt-section-" int-to-string "-enable"] 4 (#$ . 34684)]) #@62 Enable or disable section ENTRY from `ConTeXt-section-list'. (defalias 'ConTeXt-section-enable #[(entry) "A@\303 ! \nYL)\207" [entry level ConTeXt-largest-level ConTeXt-section-enable-symbol] 3 (#$ . 34896)]) #@27 Insert section from menu. (defalias 'ConTeXt-section-menu #[(level) "\302\303\304!\"\305 !)\207" [ConTeXt-section-hook level delq ConTeXt-section-heading copy-sequence ConTeXt-section] 4 (#$ . 35113)]) #@39 Create an ENTRY for the section menu. (defalias 'ConTeXt-section-menu-entry #[(entry) "\302A@!\211\303L\210\304@\305A@D #)\207" [entry enable ConTeXt-section-enable-symbol t vector ConTeXt-section-menu] 5 (#$ . 35323)]) #@73 Call etexshow, if available, to show the definition of a ConText macro. (defalias 'ConTeXt-etexshow #[nil "\300\301!\203\302\301!\210\303K \207\304\305!\207" [fboundp etexshow require etexshow-cmd error "etexshow is not installed. Get it from http://levana.de/emacs/"] 2 (#$ . 35553) nil]) #@36 Command menu used in ConTeXt mode. (defvar ConTeXt-mode-command-menu nil (#$ . 35852)) (byte-code "\301\302\303\304\305!$\207" [ConTeXt-mode-map easy-menu-do-define ConTeXt-mode-command-menu "Command menu used in ConTeXt mode." TeX-mode-specific-command-menu context-mode] 6) #@28 Menu used in ConTeXt mode. (defvar ConTeXt-mode-menu nil (#$ . 36135)) (byte-code "\306\307\310\311 C\nC C\312\313\314\315\316\313\fC C\317CCC\313\320\321\322\313\323\324\313BBBBBBBBBBBBBBBBBBBBBBBBB$\207" [ConTeXt-mode-map ConTeXt-project-structure-menu-name ConTeXt-section-block-menu-name ConTeXt-section-menu-name ConTeXt-environment-menu-name ConTeXt-environment-modify-menu-name easy-menu-do-define ConTeXt-mode-menu "Menu used in ConTeXt mode." "ConTeXt" ["Add Table of Contents to Emacs Menu" (imenu-add-to-menubar "TOC") t] "-" ["Macro ..." TeX-insert-macro :help "Insert a macro and possibly arguments"] ["Complete" TeX-complete-symbol :help "Complete the current macro or environment name"] ["Show ConTeXt Macro Definition" ConTeXt-etexshow] ["Item" ConTeXt-insert-item :help "Insert a new \\item into current environment"] ("Insert Font" ["Emphasize" (TeX-font nil 5) :keys "C-c C-f C-e"] ["Bold" (TeX-font nil 2) :keys "C-c C-f C-b"] ["Typewriter" (TeX-font nil 20) :keys "C-c C-f C-t"] ["Small Caps" (TeX-font nil 3) :keys "C-c C-f C-c"] ["Sans Serif" (TeX-font nil 6) :keys "C-c C-f C-f"] ["Italic" (TeX-font nil 9) :keys "C-c C-f C-i"] ["Slanted" (TeX-font nil 19) :keys "C-c C-f C-s"] ["Roman" (TeX-font nil 18) :keys "C-c C-f C-r"] ["Calligraphic" (TeX-font nil 1) :keys "C-c C-f C-a"]) ("Replace Font" ["Emphasize" (TeX-font t 5) :keys "C-u C-c C-f C-e"] ["Bold" (TeX-font t 2) :keys "C-u C-c C-f C-b"] ["Typewriter" (TeX-font t 20) :keys "C-u C-c C-f C-t"] ["Small Caps" (TeX-font t 3) :keys "C-u C-c C-f C-c"] ["Sans Serif" (TeX-font t 6) :keys "C-u C-c C-f C-f"] ["Italic" (TeX-font t 9) :keys "C-u C-c C-f C-i"] ["Slanted" (TeX-font t 19) :keys "C-u C-c C-f C-s"] ["Roman" (TeX-font t 18) :keys "C-u C-c C-f C-r"] ["Calligraphic" (TeX-font t 1) :keys "C-u C-c C-f C-a"]) ["Delete Font" (TeX-font t 4) :keys "C-c C-f C-d"] ["Comment or Uncomment Region" TeX-comment-or-uncomment-region :help "Make the selected region outcommented or active again"] ["Comment or Uncomment Paragraph" TeX-comment-or-uncomment-paragraph :help "Make the current paragraph outcommented or active again"] ConTeXt-define-menu-name ConTeXt-setup-menu-name ConTeXt-other-macro-menu-name TeX-fold-menu TeX-common-menu-entries] 30) #@32 Update entries on AUCTeX menu. (defalias 'ConTeXt-menu-update #[(&optional menu) "\306>?\206\264 ?\206\264\307\310!?\206\264\311 \210\312\313\314!\210\315\316\n\"\210\313\317!\210\310\320 \321\315\322\323 \"!#\210\313\324!\210\310\325\f\321\315\326\323 \"!#\210\313\327!\210\310\330 \321\315\331*\"!#\210\313\332!\210\310\333+\321\315\334,\"!#\210\313\335!\210\310\336-\321\315\337.\"!#\210\313\340!\210\310\341/\321\315\3420\"!#\210\313\343!\210\310\3441\321\315\3452\"!#\210\313\314!\210\310\3463\321\315\347\n\"!#\210\313\350!\2104\205\264\35154\"\207" [major-mode ConTeXt-menu-changed ConTeXt-section-list ConTeXt-environment-menu-name ConTeXt-environment-modify-menu-name ConTeXt-define-menu-name (context-mode) fboundp easy-menu-change TeX-update-style nil message "Updating section menu..." mapcar ConTeXt-section-enable "Updating environment menu..." ("ConTeXt") LaTeX-split-long-menu ConTeXt-environment-menu-entry ConTeXt-environment-list "Updating modify environment menu..." ("ConTeXt") ConTeXt-environment-modify-menu-entry "Updating define menu..." ("ConTeXt") ConTeXt-define-menu-entry "Updating setup menu..." ("ConTeXt") ConTeXt-setup-menu-entry "Updating other macro's menu..." ("ConTeXt") ConTeXt-other-macro-menu-entry "Updating project structure menu..." ("ConTeXt") ConTeXt-project-structure-menu-entry "Updating section block menu..." ("ConTeXt") ConTeXt-section-block-menu-entry ("ConTeXt") ConTeXt-section-menu-entry "Updating...done" easy-menu-return-item ConTeXt-define-list ConTeXt-setup-menu-name ConTeXt-setup-list ConTeXt-other-macro-menu-name ConTeXt-other-macro-list ConTeXt-project-structure-menu-name ConTeXt-project-structure-list ConTeXt-section-block-menu-name ConTeXt-section-block-list ConTeXt-section-menu-name menu ConTeXt-mode-menu] 7 (#$ . 38379)]) #@53 Command line option for texexec to use nonstopmode. (defvar ConTeXt-texexec-option-nonstop "--nonstop " (#$ . 40197)) #@37 Expand options for texexec command. (defalias 'ConTeXt-expand-options #[nil "\205\306 \203\n\205\307\310\n\"\202 \205\307\310 \"\f\311=?\205'\307\312\f\" \2050\307\313\f\" ?\2058\260\207" [TeX-PDF-mode TeX-Omega-mode ConTeXt-Omega-engine ConTeXt-engine ConTeXt-current-interface TeX-source-specials-mode "--pdf " format "--tex=%s " "en" "--interface=%s " "--passon=\"%s\" " TeX-source-specials-tex-flags TeX-interactive-mode ConTeXt-texexec-option-nonstop] 6 (#$ . 40321)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ConTeXt-language-variable-list default-boundp set-default (ConTeXt-define-list ConTeXt-setup-list ConTeXt-other-macro-list ConTeXt-project-structure-list ConTeXt-section-block-list ConTeXt-section-list ConTeXt-text ConTeXt-item-list)] 3) #@201 List of regexps matching suffixes of files to be deleted. The regexps will be anchored at the end of the file name to be matched, i.e. you do _not_ have to cater for this yourself by adding \\' or $. (custom-declare-variable 'ConTeXt-clean-intermediate-suffixes ''("\\.tui" "\\.tup" "\\.ted" "\\.tes" "\\.top" "\\.log" "\\.tmp" "\\.run" "\\.bck" "\\.rlg" "\\.mpt" "\\.mpx" "\\.mpd" "\\.mpo" "\\.tuo" "\\.tub" "\\.top" "-mpgraph\\.mp" "-mpgraph\\.mpd" "-mpgraph\\.mpo" "-mpgraph\\.mpy" "-mprun\\.mp" "-mprun\\.mpd" "-mprun\\.mpo" "-mprun\\.mpy") '(#$ . 41140) :type '(repeat regexp) :group 'TeX-command) #@201 List of regexps matching suffixes of files to be deleted. The regexps will be anchored at the end of the file name to be matched, i.e. you do _not_ have to cater for this yourself by adding \\' or $. (custom-declare-variable 'ConTeXt-clean-output-suffixes ''("\\.dvi" "\\.pdf" "\\.ps") '(#$ . 41750) :type '(repeat regexp) :group 'TeX-command) #@64 Initialization code that is common for all ConTeXt interfaces. (defalias 'ConTeXt-mode-common-initialization #[nil "\306 \307 \210)\310 \306\211\203\" @\311\f!\210 A\211\204*\312\313\314 P!!\210 \306\2118\203M8@\211\313\315\f!\316 Q!JL\2108A\2118\2044*9\204V\3179\320:!\210\321\322!\210\323\321\324!\210\325\321\326!\210\306\321\327!\210\330 \321\331!\210\325\321\332!\210\333\321\334!\210\306\335\330 \336\337\340\260;\341<\320:!\210\342=:\"\210\342>:\"\210\325?@\343U\203\273\344\345!\210\346\345\347\306\325$\210\312\350!\210\321\351!\210\352)\321\353!\210\354\325!+\355 A\356 B\321\357!\210C/\321\360!\210\3610\362D\363E\364\365\366\367#\207" [save-ConTeXt-current-interface ConTeXt-current-interface major-mode ConTeXt-language-variable-list symbol #1=#:--cl-dolist-temp-- nil plain-TeX-common-initialization context-mode make-variable-buffer-local require intern "context-" symbol-name "-" 2 use-local-map make-local-variable indent-line-function ConTeXt-indent-line fill-indent-according-to-mode t LaTeX-syntactic-comments LaTeX-paragraph-commands-regexp ConTeXt-paragraph-commands-regexp paragraph-ignore-fill-prefix fill-paragraph-function LaTeX-fill-paragraph adaptive-fill-mode "[ ]*\\(" "\\|" "\\$\\$\\|" "$\\)" "[ ]*\\(\\$\\$\\|$\\)" easy-menu-add 20 make-local-hook activate-menubar-hook add-hook ConTeXt-menu-update outline outline-level ConTeXt-outline-level outline-regexp ConTeXt-outline-regexp ConTeXt-header-end ConTeXt-trailer-start TeX-font-list imenu-create-index-function ConTeXt-imenu-create-index-function "ConTeXt" TeX-ConTeXt-sentinel TeX-run-mode-hooks text-mode-hook TeX-mode-hook ConTeXt-mode-hook #2=#:--cl-dolist-temp-- ConTeXt-largest-level ConTeXt-mode-map paragraph-start paragraph-separate ConTeXt-mode-menu ConTeXt-mode-command-menu ConTeXt-menu-changed emacs-major-version TeX-header-end TeX-trailer-start ConTeXt-font-list TeX-command-default TeX-sentinel-default-function] 6 (#$ . 42100)]) #@59 Guess what ConTeXt interface the current buffer is using. (defalias 'context-guess-current-interface #[nil "\212eb\210\302\303`\304\\\305#\203\306\202=\302\307`\304\\\305#\203 \310\202=\302\311`\312\\\305#\203.\306\202=\302\313`\312\\\305#\203<\310\202=\211)\207" [ConTeXt-default-interface ConTeXt-current-interface re-search-forward "%.*?interface=en" 512 t "en" "%.*?interface=nl" "nl" "\\\\starttext" 1024 "\\\\starttekst"] 4 (#$ . 44097) nil]) (defalias 'ConTeXt-mode 'context-mode) #@226 Major mode in AUCTeX for editing ConTeXt files. Special commands: \{ConTeXt-mode-map} Entering `context-mode' calls the value of `text-mode-hook', then the value of `TeX-mode-hook', and then the value of context-mode-hook. (defalias 'context-mode #[nil "\301 \210\302\303\304P!!\210\303\304\305Q! \207" [ConTeXt-current-interface context-guess-current-interface require intern "context-" "-mode"] 4 (#$ . 44603) nil]) (provide 'context)