;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314\313\315& \207" [require tex-buf tex latex plain-tex custom-declare-group ConTeXt-macro nil "Special support for ConTeXt macros in AUCTeX." :prefix "TeX-" :group ConTeXt TeX-macro] 10) (defvar ConTeXt-known-interfaces '("cz" "de" "en" "it" "nl" "ro" "uk")) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable ConTeXt-default-interface funcall function #[0 "\300\207" [#1="en"] 1 #1#] "Default interface to be used when running ConTeXt." :group ConTeXt :type string] 8) #@60 Interface to be used for inserting macros and ConTeXt run. (defvar ConTeXt-current-interface "en" (#$ . 687)) (make-variable-buffer-local 'ConTeXt-current-interface) (defvar ConTeXt-menu-changed nil) (make-variable-buffer-local 'ConTeXt-menu-changed) #@51 Largest sectioning level within current document. (defvar ConTeXt-largest-level nil (#$ . 944)) (make-variable-buffer-local 'ConTeXt-largest-level) (defalias 'ConTeXt-largest-level #[0 "\301 \210\207" [ConTeXt-largest-level TeX-update-style] 1]) #@50 The ConTeXt optional argument opening character. (defvar ConTeXt-optop "[" (#$ . 1197)) #@50 The ConTeXt optional argument closing character. (defvar ConTeXt-optcl "]" (#$ . 1291)) #@65 Calls ConTeXt-XX-define-list where XX is the current interface. (defvar ConTeXt-define-list nil (#$ . 1385)) #@46 The ConTeXt macro to define WHAT. (fn WHAT) (defalias 'ConTeXt-define-command #[257 "\301\302P!!\207" [ConTeXt-current-interface intern "ConTeXt-define-command-"] 4 (#$ . 1500)]) #@54 Insert the ConTeXt define macro DEFINE. (fn DEFINE) (defalias 'ConTeXt-insert-define #[257 "\301!\261\210\302 \210\303 \210\304\305!\207" [TeX-esc ConTeXt-define-command newline indent-according-to-mode ConTeXt-arg-setup nil] 4 (#$ . 1688)]) #@64 Calls ConTeXt-XX-setup-list where XX is the current interface. (defvar ConTeXt-setup-list nil (#$ . 1940)) #@45 The ConTeXt macro to setup WHAT. (fn WHAT) (defalias 'ConTeXt-setup-command #[257 "\301\302P!!\207" [ConTeXt-current-interface intern "ConTeXt-setup-command-"] 4 (#$ . 2053)]) #@51 Insert the ConTeXt setup macro SETUP. (fn SETUP) (defalias 'ConTeXt-insert-setup #[257 "\301!\261\210\302 \210\303 \210\304\305!\207" [TeX-esc ConTeXt-setup-command newline indent-according-to-mode ConTeXt-arg-setup nil] 4 (#$ . 2238)]) #@70 Calls ConTeXt-XX-other-macro-list where XX is the current interface. (defvar ConTeXt-referencing-list nil (#$ . 2485)) #@83 The ConTeXt macro to call WHAT is itself, no interface specific calls. (fn WHAT) (defalias 'ConTeXt-referencing-command #[257 "\207" [] 2 (#$ . 2610)]) #@50 Insert the ConTeXt referencing SETUP. (fn WHAT) (defalias 'ConTeXt-insert-referencing #[257 "\301!\261\210\302 \210\303 \210\304\305!\207" [TeX-esc ConTeXt-referencing-command newline indent-according-to-mode ConTeXt-arg-setup nil] 4 (#$ . 2769)]) #@70 Calls ConTeXt-XX-other-macro-list where XX is the current interface. (defvar ConTeXt-other-macro-list nil (#$ . 3027)) #@83 The ConTeXt macro to call WHAT is itself, no interface specific calls. (fn WHAT) (defalias 'ConTeXt-other-macro-command #[257 "\207" [] 2 (#$ . 3152)]) #@65 Insert the ConTeXt other macro's macro SETUP. (fn OTHER-MACRO) (defalias 'ConTeXt-insert-other-macro #[257 "\301!\261\210\302 \210\303 \210\304\305!\207" [TeX-esc ConTeXt-other-macro-command newline indent-according-to-mode ConTeXt-arg-setup nil] 4 (#$ . 3311)]) #@71 Calls ConTeXt-XX-project-structure where XX is the current interface. (defvar ConTeXt-project-structure-list nil (#$ . 3584)) #@103 Insert a ConTeXt project structure where N is in index into `ConTeXt-project-structure-list'. (fn N) (defalias 'ConTeXt-project-structure #[257 "\301\3028\303Q! \207" [ConTeXt-project-structure-list intern "ConTeXt-project-" "-insert"] 5 (#$ . 3717)]) #@52 Insert a basic template for a new ConTeXt project. (defalias 'ConTeXt-project-project-insert #[0 "\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 (#$ . 3978)]) #@67 Insert a basic template for the environment of a ConTeXt project. (defalias 'ConTeXt-project-environment-insert #[0 "\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 (#$ . 4475)]) #@61 Insert a basic template for a product of a ConTeXt project. (defalias 'ConTeXt-project-product-insert #[0 "\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 (#$ . 5009)]) #@63 Insert a basic template for a component of a ConTeXt project. (defalias 'ConTeXt-project-component-insert #[0 "\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 (#$ . 5620)]) #@66 Calls ConTeXt-XX-section-list where XX is the current interface. (defvar ConTeXt-section-block-list nil (#$ . 6124)) #@69 Insert the ConTeXt section block SECTION-BLOCK. (fn SECTION-BLOCK) (defalias 'ConTeXt-section-block #[257 "\300!\207" [ConTeXt-environment-menu] 3 (#$ . 6247)]) #@41 Dynamically bound by `ConTeXt-section'. (defvar ConTeXt-title nil (#$ . 6416)) #@41 Dynamically bound by `ConTeXt-section'. (defvar ConTeXt-name nil (#$ . 6501)) #@41 Dynamically bound by `ConTeXt-section'. (defvar ConTeXt-level nil (#$ . 6585)) #@41 Dynamically bound by `ConTeXt-section'. (defvar ConTeXt-done-mark nil (#$ . 6670)) #@41 Dynamically bound by `ConTeXt-section'. (defvar ConTeXt-reference nil (#$ . 6759)) #@752 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-numbered-section-hook' Hooks to run when inserting a section. `ConTeXt-section-ref' Prefix to all section references. (fn ARG) (defalias 'ConTeXt-section #[257 "\305!\204\f\306 \202$<\203\307 \202$\211\310W\203#\311[!\202$\211\312!\313\314\315 \316 \210\317\320!\210\316 \210\321\f!\203E\321\f!b\210\f\314\211\223-\207" [ConTeXt-level ConTeXt-name ConTeXt-title ConTeXt-reference ConTeXt-done-mark prefix-numeric-value ConTeXt-current-section ConTeXt-down-section 0 ConTeXt-up-section ConTeXt-numbered-section-name "" nil make-marker newline run-hooks ConTeXt-numbered-section-hook marker-position] 5 (#$ . 6849) "*P"]) #@107 Return the level of the section that contain point. See also `ConTeXt-section' for description of levels. (defalias 'ConTeXt-current-section #[0 "\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 (#$ . 8118)]) #@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 #[0 "\212\301 \302\303\302\304#\204T\266\203\202Q\204N\301 =\203?\305\302\304#\2038\301 \211\262X\203T\262\202T\262\202\303\302\304#\204T\262\202\266\203)\207" [outline-regexp ConTeXt-current-section nil re-search-backward t re-search-forward] 7 (#$ . 8456)]) #@70 Return the value of the section ARG levels above this one. (fn ARG) (defalias 'ConTeXt-up-section #[257 "\212\211\301U\203\f\302 \202#\302 \302 Y\203\303\304\305#\204\306S!\262)\207" [outline-regexp 0 ConTeXt-current-section re-search-backward nil t ConTeXt-up-section] 6 (#$ . 8990)]) #@60 ConTeXt-XX-section-list where XX is the current interface. (defvar ConTeXt-numbered-section-list nil (#$ . 9293)) #@60 ConTeXt-XX-section-list where XX is the current interface. (defvar ConTeXt-unnumbered-section-list nil (#$ . 9413)) (defvar ConTeXt-section-list (append ConTeXt-numbered-section-list ConTeXt-unnumbered-section-list)) #@68 Return the name of the section corresponding to LEVEL. (fn LEVEL) (defalias 'ConTeXt-numbered-section-name #[257 "\301\302#\211\205 \211@\207" [ConTeXt-numbered-section-list TeX-member #[514 "A@\232\207" [] 4 "\n\n(fn A B)"]] 5 (#$ . 9636)]) #@68 Return the name of the section corresponding to LEVEL. (fn LEVEL) (defalias 'ConTeXt-unnumbered-section-name #[257 "\301\302#\211\205 \211@\207" [ConTeXt-unnumbered-section-list TeX-member #[514 "A@\232\207" [] 4 "\n\n(fn A B)"]] 5 (#$ . 9890)]) #@50 Return the level of the section NAME. (fn NAME) (defalias 'ConTeXt-numbered-section-level #[257 "\301\302#\211\205\f\211A@\207" [ConTeXt-numbered-section-list TeX-member #[514 "@\232\207" [] 4 "\n\n(fn A B)"]] 5 (#$ . 10148)]) #@50 Return the level of the section NAME. (fn NAME) (defalias 'ConTeXt-unnumbered-section-level #[257 "\301\302#\211\205\f\211A@\207" [ConTeXt-numbered-section-list TeX-member #[514 "@\232\207" [] 4 "\n\n(fn A B)"]] 5 (#$ . 10387)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\317& \210\300\320\302\303\321DD\322\310\323\306\324&\210\325\320!\210\326\320\327\330#\207" [custom-declare-variable ConTeXt-numbered-section-hook funcall function #[0 "\300\207" [(ConTeXt-numbered-section-heading ConTeXt-section-title ConTeXt-section-ref ConTeXt-section-section)] 1] "List of hooks to run when a new section is inserted.\n\nThe following variables are set before the hooks are run\n\n`ConTeXt-level' - numeric section level, see the documentation of\n `ConTeXt-section'.\n`ConTeXt-name' - name of the sectioning command, derived from\n `level'.\n`ConTeXt-title' - The title of the section, default to an empty\n string.\n`ConTeXt-done-mark' - Position of point afterwards, default nil\n (meaning end).\n\nThe following standard hook exist -\n\nConTeXt-numbered-section-heading: Query the user about the name\nof the sectioning command. Modifies `ConTeXt-level' and\n`ConTeXt-name'.\n\nConTeXt-section-title: Query the user about the title of the\nsection. Modifies `ConTeXt-title'.\n\nConTeXt-section-section: Insert ConTeXt section command according\nto `ConTeXt-name', `ConTeXt-title', and `ConTeXt-reference'. If\n`ConTeXt-title' is an empty string, `ConTeXt-done-mark' will be\nplaced at the point they should be inserted.\n\nConTeXt-section-ref: Insert a reference for this section command.\n\nTo get a full featured `ConTeXt-section' command, insert\n\n (setq ConTeXt-numbered-section-hook\n '(ConTeXt-numbered-section-heading\n ConTeXt-section-title\n ConTeXt-section-section\n ConTeXt-section-ref))\n\nin your .emacs file." :group ConTeXt-macro :type hook :options (ConTeXt-numbered-section-heading ConTeXt-section-title ConTeXt-section-ref ConTeXt-section-section) ConTeXt-unnumbered-section-hook #[0 "\300\207" [(ConTeXt-unnumbered-section-heading ConTeXt-section-title ConTeXt-section-ref ConTeXt-section-section)] 1] "List of hooks to run when a new section is inserted.\n\nThe following variables are set before the hooks are run\n\n`ConTeXt-level' - numeric section level, see the documentation of\n `ConTeXt-section'.\n`ConTeXt-name' - name of the sectioning command, derived from\n `ConTeXt-level'.\n`ConTeXt-title' - The title of the section, default to an empty\n string.\n`ConTeXt-done-mark' - Position of point afterwards, default nil\n (meaning end).\n\nThe following standard hook exist -\n\nConTeXt-unnumbered-section-heading: Query the user about the name\nof the sectioning command. Modifies `ConTeXt-level' and\n`ConTeXt-name'.\n\nConTeXt-section-title: Query the user about the title of the\nsection. Modifies `ConTeXt-title'.\n\nConTeXt-section-section: Insert ConTeXt section command according\nto `ConTeXt-name', `ConTeXt-title', and `ConTeXt-reference'. If\n`ConTeXt-title' is an empty string, `ConTeXt-done-mark' will be\nplaced at the point they should be inserted.\n\nConTeXt-section-ref: Insert a reference for this section command.\n\nTo get a full featured `ConTeXt-section' command, insert\n\n (setq ConTeXt-unnumbered-section-hook\n '(ConTeXt-unnumbered-section-heading\n ConTeXt-section-title\n ConTeXt-section-section\n ConTeXt-section-ref))\n\nin your .emacs file." (ConTeXt-unnumbered-section-heading ConTeXt-section-title ConTeXt-section-ref ConTeXt-section-section) ConTeXt-Mark-version #[0 "\300\207" [#1="II"] 1 #1#] "ConTeXt Mark version used for running ConTeXt." string TeX-command make-variable-buffer-local put safe-local-variable stringp] 10) #@195 Hook to prompt for ConTeXt section name. Insert this hook into `ConTeXt-numbered-section-hook' to allow the user to change the name of the sectioning command inserted with `\[ConTeXt-section]'. (defalias 'ConTeXt-numbered-section-heading #[0 "\302\303\304Q \305\211\211%\211G\306U?\205\211\211\207" [ConTeXt-name ConTeXt-numbered-section-list completing-read "Select level (default " "): " nil 0] 6 (#$ . 14599)]) #@197 Hook to prompt for ConTeXt section name. Insert this hook into `ConTeXt-unnumbered-section-hook' to allow the user to change the name of the sectioning command inserted with `\[ConTeXt-section]'. (defalias 'ConTeXt-unnumbered-section-heading #[0 "\302\303\304Q \305\211\211%\211G\306U?\205\211\211\207" [ConTeXt-name ConTeXt-unnumbered-section-list completing-read "Select level (default " "): " nil 0] 6 (#$ . 15024)]) #@189 Hook to prompt for ConTeXt section title. Insert this hook into `ConTeXt-(un)numbered-section-hook' to allow the user to change the title of the section inserted with `\[ConTeXt-section]. (defalias 'ConTeXt-section-title #[0 "\301\302!\211\207" [ConTeXt-title TeX-read-string "What title: "] 2 (#$ . 15455)]) #@280 Hook to insert ConTeXt section command into the file. Insert this hook into `ConTeXt-numbered-section-hook' after those hooks which sets the `ConTeXt-name', `ConTeXt-title', and `ConTeXt-reference' variables, but before those hooks which assumes the section already is inserted. (defalias 'ConTeXt-section-section #[0 " \261\210\n\203$\nG\306U\203 c\210\f`\307\223\210 c\210\202$ \n \261\210 c\210\fG\306U\2035\f`\307\223\210\f \261\210\310 \210\311\312!\205H\312K \207" [TeX-esc ConTeXt-name ConTeXt-reference ConTeXt-optop ConTeXt-done-mark ConTeXt-optcl 0 nil newline fboundp reftex-notice-new-section TeX-grop ConTeXt-title TeX-grcl] 3 (#$ . 15772)]) #@179 Hook to insert a reference after the sectioning command. Insert this hook into `ConTeXt-numbered-section-hook' to prompt for a label to be inserted after the sectioning command. (defalias 'ConTeXt-section-ref #[0 "\301\302\303\304\305#\306 \304\211$\211\307\230\205\304\211\207" [ConTeXt-reference completing-read TeX-argument-prompt t nil "Comma separated list of references" LaTeX-label-list ""] 6 (#$ . 16448)]) #@69 Cleanup TeX output buffer after running ConTeXt. (fn PROCESS NAME) (defalias 'TeX-ConTeXt-sentinel #[514 "rq\210 \306\230)\2034\307\"\204\210\310\311\312\313#\203'\314\315\316 Q!\210\n\202\210\314\317\316 Q!\210\f\202\210\307\"\204\210\212db\210\320\321\312\313#\210\310\322\312\313#)\203Z\314\323\316 P!\210\n\202\210\310\324\312\313#\203i\314\325!\210\202\210\310\326\312\313#\203~\314\317\316 Q!\210\f\202\210\314\315\316 Q!\210\n ?\205\233\327\330rq\210\331\332\333 !!)\"\207" [TeX-command-buffer ConTeXt-Mark-version TeX-command-default TeX-command-next TeX-command-Show TeX-error-list "IV" TeX-TeX-sentinel-check re-search-forward "fatal error: " nil t message ": problems after " TeX-current-pages ": successfully formatted " re-search-backward "TeXUtil " "another run needed" "You should run ConTeXt again to get references right, " "removed files :" "sucessfully cleaned up" "^ ?TeX\\(Exec\\|Util\\)" run-hook-with-args TeX-after-compilation-finished-functions expand-file-name TeX-active-master TeX-output-extension] 7 (#$ . 16873)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\210\316\307!\207" [custom-declare-group ConTeXt-environment nil "Environments in ConTeXt." :group ConTeXt-macro custom-declare-variable ConTeXt-default-environment funcall function #[0 "\300\207" [#1="itemize"] 1 #1#] "The default environment when creating new ones with `ConTeXt-environment'." :type string make-variable-buffer-local] 8) #@89 Information about environments in the current buffer. Generated by `TeX-auto-add-type'. (defvar ConTeXt-auto-environment nil (#$ . 18377)) #@89 Information about environments in the current buffer. Generated by `TeX-auto-add-type'. (defvar ConTeXt-environment-list nil (#$ . 18522)) (make-variable-buffer-local 'ConTeXt-environment-list) #@89 Information about environments in the current buffer. Generated by `TeX-auto-add-type'. (defvar ConTeXt-environment-changed nil (#$ . 18722)) (make-variable-buffer-local 'ConTeXt-environment-changed) #@118 Add information about ENVIRONMENTS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest ENVIRONMENTS) (defalias 'ConTeXt-add-environments #[128 "\300\301\"\207" [TeX-auto-add-information "environment"] 4 (#$ . 18929)]) #@86 List of environments active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'ConTeXt-environment-list #[0 "\300\301!\207" [TeX-auto-list-information "environment"] 2 (#$ . 19170)]) (byte-code "\300\301\302\303#\210\304\305\306\"\210\307\310!\203\310\311\312\313#\210\202&\314\311\315\316\317$\210\320\311\317\"\210\317\207" [add-to-list TeX-auto-parser ("environment" ConTeXt-auto-environment ConTeXt-add-environments ConTeXt-environment-list ConTeXt-environment-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [ConTeXt-environment-list nil] 2] fboundp advice-add ConTeXt-add-environments :after ConTeXt--invalidate-menu ad-add-advice (ConTeXt-invalidate-menu nil t (advice lambda (&rest environments) (ConTeXt--invalidate-menu))) after nil ad-activate] 5) #@60 Mark the menu as being in need of a refresh. (fn &rest _) (defalias 'ConTeXt--invalidate-menu #[128 "\301\211\207" [ConTeXt-menu-changed t] 3 (#$ . 19969)]) (defvar ConTeXt-environment-history nil) #@68 Return the \start translated to the language in current interface. (defalias 'ConTeXt-environment-start-name #[0 "\302\232\203\303\207 \235\203\304\207\305\306\"\207" [ConTeXt-current-interface ConTeXt-known-interfaces "it" "inizia" "start" error "Unknown interface: %s"] 3 (#$ . 20175)]) #@67 Return the \stop translated to the language in current interface. (defalias 'ConTeXt-environment-stop-name #[0 "\302\232\203\303\207 \235\203\304\207\305\306\"\207" [ConTeXt-current-interface ConTeXt-known-interfaces "it" "termina" "stop" error "Unknown interface: %s"] 3 (#$ . 20477)]) #@110 Make ConTeXt environment (\start...-\stop... pair). With optional ARG, modify current environment. (fn ARG) (defalias 'ConTeXt-environment #[257 "\302 \203 \303\202\n\304\305\306Q \307\211\211\310&\211\232\204 \211\311 \"\211\204-\312C!\210\2035\313!\207\314!\207" [ConTeXt-default-environment ConTeXt-environment-list TeX-near-bobp "text" completing-read "Environment type (default " "): " nil ConTeXt-environment-history assoc ConTeXt-add-environments ConTeXt-modify-environment ConTeXt-environment-menu] 10 (#$ . 20778) "*P"]) #@47 Modify current environment. (fn ENVIRONMENT) (defalias 'ConTeXt-modify-environment #[257 "\212\301 \210\302\303!\304 \305Q\212\306\307!\210`)\"\210\310\304 Q\311\211#\210\306\307!\210\312 \210\313\303!\314 \305Q\212\307\210`)\"\210\310\314 Q\311\211#)\207" [TeX-esc 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] 5 (#$ . 21332)]) #@62 Insert ENVIRONMENT around point or region. (fn ENVIRONMENT) (defalias 'ConTeXt-environment-menu #[257 "\303\"\211\203\211A@\204\304!\207\211A@\247\2035\211A@\305\306V\2030\211 \nQ\262S\262\202\304\"\207\211A@;\203[\211A\305\203V\211 \307@\310P!\nR\262A\262\202?\304\"\207\311A@AA#\207" [ConTeXt-environment-list TeX-grop TeX-grcl assoc ConTeXt-insert-environment "" 0 read-from-minibuffer ": " apply] 9 (#$ . 21852)]) #@51 Insert \stop... to match the current environment. (defalias 'ConTeXt-close-environment #[0 "\301 \210\302\303!\304\210\211\204\305 \210\210\306 \307 \261\210\304\210\305 \207" [TeX-esc beginning-of-line looking-at "[ ]*$" nil newline ConTeXt-environment-stop-name ConTeXt-current-environment] 3 (#$ . 22307) "*"]) #@85 Insert ENVIRONMENT, with optional argument EXTRA. (fn ENVIRONMENT &optional EXTRA) (defalias 'ConTeXt-insert-environment #[513 "\301 \203L\302 `=\204L\212\302 `W\203\303 \210\304 \261\210\305 \210\306y\210\307 \210\211\203.\211c\210\302 b\210\310\311!\204;\305 \210\312 \261\210\305 \210\306y\210\307 )\207\310\311!\204U\305 \210\304 \261\210\307 \210\211\203f\211c\210\313\210\314 \210\305 \210\312 \261\210\315\316!\204\201\212\314 \210)\307 \210\317\207" [TeX-esc 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] 5 (#$ . 22634)]) #@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)) (#$ . 23370)) #@33 Edit region in `metapost-mode'. (defalias 'ConTeXt-mp-region #[0 "\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 (#$ . 23603)]) #@75 Takes current environment and does something on it (todo: documentation). (defalias 'ConTeXt-work-on-environment #[0 "\301\302 \"A\303!\205\211 \207" [ConTeXt-environment-helper assoc ConTeXt-current-environment functionp] 3 (#$ . 23892) nil]) #@45 Return the name of the current environment. (defalias 'ConTeXt-current-environment #[0 "\300\212\301 \210`\302 G\\T\262\303\225b\210\304\300w\210\211`{)\207" [nil ConTeXt-last-unended-start ConTeXt-environment-start-name 0 "a-zA-Z"] 3 (#$ . 24146)]) #@105 Leave point at the beginning of the last `\start...' that is unstopped looking from the current cursor. (defalias 'ConTeXt-last-unended-start #[0 "\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 (#$ . 24404)]) #@204 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. (fn &optional INNER) (defalias 'ConTeXt-mark-environment #[256 "`\300!\210\301`!\210\211b\210\302!\210\303 \207" [ConTeXt-find-matching-stop push-mark ConTeXt-find-matching-start TeX-activate-region] 4 (#$ . 24746) nil]) #@179 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... (fn &optional INNER) (defalias 'ConTeXt-find-matching-stop #[256 "\301!\302\303 \304\305 \306\260\307\310\301!\303 P!\203\311\312\313#\210\211\314V\203e\311\312\313#\203e\307\224Sb\203e\310\301!\303 P!\203L\311\312\313#\210\211T\211\262\202b\310\301!\305 P!\203e\311\312\313#\210\211S\211\262\204\203l\315 \207\316\312w\207" [TeX-esc regexp-quote "\\(" ConTeXt-environment-start-name "\\|" ConTeXt-environment-stop-name "\\)" 1 looking-at re-search-forward nil t 0 beginning-of-line "a-zA-Z"] 7 (#$ . 25158) nil]) #@138 Find beginning of current \start...\stop-Pair. If INNER is non-nil, go to the point just past the \start... macro. (fn &optional INNER) (defalias 'ConTeXt-find-matching-start #[256 "\301!\302\303 \304\305 \306\260\307\310\311V\203B\312\310\313#\203B\314\301!\305 P!\203/T\211\262\202?\314\301!\303 P!\203BS\211\262\204\205v\315\310w\210\212\316\310w\210\317\307!\210\316\310w\210\314\320!\203g\321\307!\210`\262\202K)\211\203o\211b\210n?\205v\310y\207" [TeX-esc 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] 8 (#$ . 25859) nil]) #@20 Insert a new item. (defalias 'ConTeXt-insert-item #[0 "\300\301!\204 \302 \210\303\304!\210\305 \207" [TeX-looking-at-backward "^[ ]*" newline TeX-insert-macro "item" indent-according-to-mode] 2 (#$ . 26562) "*"]) #@70 Insert ARG surrounded by square brackets. (fn ARG &optional PREFIX) (defalias 'ConTeXt-optional-argument-insert #[513 "c\210c\210 c\207" [ConTeXt-optop ConTeXt-optcl] 3 (#$ . 26784)]) #@67 Insert ARG surrounded by curly braces. (fn ARG &optional PREFIX) (defalias 'ConTeXt-required-argument-insert #[513 "c\210c\210 c\207" [TeX-grop TeX-grcl] 3 (#$ . 26977)]) #@149 Insert ARG surrounded by curly braces. If OPTIONAL, only insert it if not empty, and then use square brackets. (fn ARG OPTIONAL &optional PREFIX) (defalias 'ConTeXt-argument-insert #[770 "\203\300\230?\205\301\"\207\302\"\207" ["" ConTeXt-optional-argument-insert ConTeXt-required-argument-insert] 6 (#$ . 27158)]) #@101 Prompt for a reference completing with known references. (fn OPTIONAL &optional PROMPT DEFINITION) (defalias 'ConTeXt-arg-ref #[769 "\300\301\302#\303 \"\203\211\304\230\204\305!\210\306\"\207" [completing-read TeX-argument-prompt "ref" LaTeX-label-list "" LaTeX-add-labels ConTeXt-argument-insert] 8 (#$ . 27492)]) #@91 Prompt for an optional reference completing with known references. (fn &optional PROMPT) (defalias 'ConTeXt-arg-define-ref #[256 "\300\301\301#\207" [ConTeXt-arg-ref t] 5 (#$ . 27825)]) #@61 Prompt for setup arguments. (fn OPTIONAL &optional PROMPT) (defalias 'ConTeXt-arg-setup #[513 "\300\301\302#!\303\304\"\207" [read-from-minibuffer TeX-argument-prompt "Setup" ConTeXt-argument-insert t] 7 (#$ . 28019)]) #@35 List of macro's considered items. (defvar ConTeXt-item-list nil (#$ . 28248)) #@66 Return a regexp matching macros that should have their own line. (defalias 'ConTeXt-paragraph-commands-regexp #[0 "\305!\306\307 \310\311 \310\312\313 \314#\314\312\313\n\314#\314\312\315 \314#\314\312\315\f\314#\316\260\207" [TeX-esc ConTeXt-numbered-section-list ConTeXt-unnumbered-section-list ConTeXt-extra-paragraph-commands ConTeXt-item-list regexp-quote "\\([][]\\|" ConTeXt-environment-start-name "\\|" ConTeXt-environment-stop-name mapconcat car "\\b\\|" identity "\\b\\)"] 16 (#$ . 28332)]) #@96 Return the ConTeXt macro name that starts ENVIRONMENT. It is interface aware (fn ENVIRONMENT) (defalias 'ConTeXt-environment-full-start-name #[257 "\300 P\207" [ConTeXt-environment-start-name] 3 (#$ . 28841)]) #@182 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. (fn &optional ANYWHERE) (defalias 'ConTeXt-outline-regexp #[256 "\211\203\305\202 \306\307\310!\311\312\313 \314#\314\312\315\n\314#\314\312\315 \314#\316\f\203(\314\202)\305\312\315\f\314#\314\317 \320\321 \322\260\207" [TeX-esc ConTeXt-section-block-list ConTeXt-numbered-section-list ConTeXt-unnumbered-section-list TeX-outline-extra "" "^" "[ ]*" regexp-quote "\\(" mapconcat ConTeXt-environment-full-start-name "\\|" car "\\)\\b" ConTeXt-header-end "\\b\\|" ConTeXt-trailer-start "\\b"] 18 (#$ . 29060)]) (defvar ConTeXt-text "Name of ConTeXt macro that begins the text body.") #@53 Default end of header marker for ConTeXt documents. (defalias 'ConTeXt-header-end #[0 "\302!\303 Q\207" [TeX-esc ConTeXt-text regexp-quote ConTeXt-environment-start-name] 3 (#$ . 29814)]) #@56 Default start of trailer marker for ConTeXt documents. (defalias 'ConTeXt-trailer-start #[0 "\302!\303 Q\207" [TeX-esc ConTeXt-text regexp-quote ConTeXt-environment-stop-name] 3 (#$ . 30010)]) #@70 Offset to add to `ConTeXt-section-list' levels to get outline level. (defalias 'ConTeXt-outline-offset #[0 "\300\301 Z\207" [4 ConTeXt-largest-level] 2 (#$ . 30211)]) #@91 Regular expression that matches a start of all environments mentioned in LIST. (fn LIST) (defalias 'ConTeXt-start-environment-regexp #[257 "\300\301\302\303#\304Q\207" ["start\\(" mapconcat identity "\\|" "\\)\\b"] 6 (#$ . 30384)]) #@67 Find the level of current outline heading in an ConTeXt document. (defalias 'ConTeXt-outline-level #[0 "\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 (#$ . 30624)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable ConTeXt-font-list funcall function #[0 "\300\207" [((2 "{\\bf " "}") (3 "{\\sc " "}") (5 "{\\em " "}") (9 "{\\it " "}") (18 "{\\rm " "}") (19 "{\\sl " "}") (20 "{\\tt " "}") (4 #1="" #1# t))] 1] "List of fonts used by `TeX-font'.\n\nEach entry is a list.\nThe first element is the key to activate the font.\nThe second element is the string to insert before point, and the third\nelement is the string to insert after point.\nIf the fourth and fifth element are strings, they specify the prefix and\nsuffix to be used in math mode.\nAn optional fourth (or sixth) element means always replace if t." :group TeX-macro :type (repeat (group :value (1 #1# #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))))] 8) #@43 Guess a name for the current header line. (defalias 'ConTeXt-outline-name #[0 "\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 (#$ . 32129)]) #@37 Imenu support function for ConTeXt. (defalias 'ConTeXt-imenu-create-index-function #[0 "\300 \210\301\302 db\210\303\301\304#\2039\305 \306\307 S\310\"\211Q\311 \211`\301\223\210\312\313G\301$\210BB\262\266\202 \207" [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] 11 (#$ . 32390)]) (defvar ConTeXt-indent-allhanging t) (defvar ConTeXt-indent-arg 2) (defvar ConTeXt-indent-basic 2) (defvar ConTeXt-indent-item ConTeXt-indent-basic) (defvar ConTeXt-indent-item-re "\\\\\\(item\\|sym\\)\\>") #@48 Syntax table used while computing indentation. (defvar ConTeXt-indent-syntax-table (make-syntax-table TeX-mode-syntax-table) (#$ . 33011)) (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) #@22 (fn &optional ARG) (defalias 'ConTeXt-indent-line #[256 "\301 p\302\303#\216\304!\210\212\305 \210\306 )\211\307W\203\307\262i\310 X\203*\311!\202/\212\311!)\262)\207" [ConTeXt-indent-syntax-table syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table beginning-of-line ConTeXt-find-indent 0 current-indentation indent-line-to] 7 (#$ . 33290)]) #@242 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. (fn &optional VIRTUAL) (defalias 'ConTeXt-find-indent #[256 "\212\306\307w\210\211\203\310 iY\203\310 \206:\31112\307fz\312=\205.\212\313\314!\210\315\316!\210\317\320!)0\2026\210\2029\206:`\307f\321\307\322\323!\324 P!\203Q\321 Z\262\202\\\322\n!\203\\ Z\262\3251\315\316!\210i\310 V\204s\322\323\f!!\205z\315\316!\210\202d0\210\202\205\3268\211\266\203eU\203\221\266\321\202:\211\250\203\300\211b\210 \204\261\327\316!\210\330d!\210`V\203\261i\266\204\202:\211b\210 \\\317\320!\\\266\204\202:\204\313\307f\331=\204\323i\\\266\204\202:\322\n!\203\343i\\ \\\266\204\202:\322\323!\332 P!\203\322\323!\332 Q!\204i\\ \\\266\204\202:i\203z\333=\204\\\2026\334\316!\210\335 \212\330d!\210`)W\2031i \\^\2026\313\336!\210i\262\266\204)\207" [TeX-esc ConTeXt-indent-basic ConTeXt-indent-item-re ConTeXt-indent-item ConTeXt-optop ConTeXt-indent-allhanging " " nil current-indentation (error) 41 skip-syntax-forward " )" backward-sexp 1 ConTeXt-find-indent virtual 0 looking-at regexp-quote ConTeXt-environment-stop-name (scan-error) 2 down-list forward-comment 92 ConTeXt-environment-start-name 40 forward-sexp line-end-position " " ConTeXt-text ConTeXt-indent-arg] 9 (#$ . 33702)]) #@67 Leave point at the beginning of the last `tag' that is unstopped. (defalias 'ConTeXt-last-unended-start-xml #[0 "\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 (#$ . 35168)]) #@69 Create an to match the last unclosed <...>. Not fool-proof. (defalias 'ConTeXt-close-xml-tag #[0 "n\300\211\212\3011\302 0\210\202\210\303\304!\210i\262\305\306!\210\307\224\307\225{\262)\211j\210\310\311\261\210\2052\312c\207" [nil (error) ConTeXt-last-unended-start-xml error "Couldn't find unended XML tag" re-search-forward "<\\([_A-Za-z][-:._A-Za-z0-9]*\\)" 1 "" 10] 6 (#$ . 35562) "*"]) #@32 Keymap used in `ConTeXt-mode'. (defvar ConTeXt-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\316\317!\2041\303\317\315#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\207" [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] 5) (#$ . 35985)) (defvar ConTeXt-environment-menu-name "Insert Environment (C-c C-e)") #@55 Create an entry for the environment menu. (fn ENTRY) (defalias 'ConTeXt-environment-menu-entry #[257 "\300@\301@D\302#\207" [vector ConTeXt-environment-menu t] 5 (#$ . 36656)]) (defvar ConTeXt-environment-modify-menu-name "Change Environment (C-u C-c C-e)") #@62 Create an entry for the change environment menu. (fn ENTRY) (defalias 'ConTeXt-environment-modify-menu-entry #[257 "\300@\301@D\302#\207" [vector ConTeXt-modify-environment t] 5 (#$ . 36925)]) (defvar ConTeXt-define-menu-name "Define") #@50 Create an entry for the define menu. (fn ENTRY) (defalias 'ConTeXt-define-menu-entry #[257 "\300\301D\"\207" [vector ConTeXt-define-menu] 5 (#$ . 37170)]) #@39 Insert DEFINE from menu. (fn DEFINE) (defalias 'ConTeXt-define-menu #[257 "\300!\207" [ConTeXt-insert-define] 3 (#$ . 37334)]) (defvar ConTeXt-setup-menu-name "Setup") #@49 Create an entry for the setup menu. (fn ENTRY) (defalias 'ConTeXt-setup-menu-entry #[257 "\300\301D\"\207" [vector ConTeXt-setup-menu] 5 (#$ . 37510)]) #@37 Insert SETUP from menu. (fn SETUP) (defalias 'ConTeXt-setup-menu #[257 "\300!\207" [ConTeXt-insert-setup] 3 (#$ . 37671)]) (defvar ConTeXt-referencing-menu-name "Referencing") #@55 Create an entry for the referencing menu. (fn ENTRY) (defalias 'ConTeXt-referencing-menu-entry #[257 "\300\301D\"\207" [vector ConTeXt-referencing-menu] 5 (#$ . 37855)]) #@49 Insert REFERENCING from menu. (fn REFERENCING) (defalias 'ConTeXt-referencing-menu #[257 "\300!\207" [ConTeXt-insert-referencing] 3 (#$ . 38034)]) (defvar ConTeXt-other-macro-menu-name "Other macro") #@55 Create an entry for the other macro menu. (fn ENTRY) (defalias 'ConTeXt-other-macro-menu-entry #[257 "\300\301D\"\207" [vector ConTeXt-other-macro-menu] 5 (#$ . 38242)]) #@49 Insert OTHER MACRO from menu. (fn OTHER-MACRO) (defalias 'ConTeXt-other-macro-menu #[257 "\300!\207" [ConTeXt-insert-other-macro] 3 (#$ . 38421)]) (defvar ConTeXt-project-structure-menu-name "Project Structure") #@61 Insert project structure from menu. (fn PROJECT-STRUCTURE) (defalias 'ConTeXt-project-structure-menu #[257 "\301\211G\235GZ\262!\207" [ConTeXt-project-structure-list ConTeXt-project-structure] 6 (#$ . 38641)]) #@61 Create an ENTRY for the project structure menu. (fn ENTRY) (defalias 'ConTeXt-project-structure-menu-entry #[257 "\300\301D\"\207" [vector ConTeXt-project-structure-menu] 5 (#$ . 38862)]) (defvar ConTeXt-section-block-menu-name "Section Block") #@53 Insert section block from menu. (fn SECTION-BLOCK) (defalias 'ConTeXt-section-block-menu #[257 "\300!\207" [ConTeXt-section-block] 3 (#$ . 39116)]) #@57 Create an ENTRY for the section block menu. (fn ENTRY) (defalias 'ConTeXt-section-block-menu-entry #[257 "\300\301D\"\207" [vector ConTeXt-section-block-menu] 5 (#$ . 39272)]) (defvar ConTeXt-numbered-section-menu-name "Numbered section (C-c C-s)") (defvar ConTeXt-unnumbered-section-menu-name "Unnumbered section") #@66 Symbol used to enable section LEVEL in the menu bar. (fn LEVEL) (defalias 'ConTeXt-section-enable-symbol #[257 "\300\301\302!\303Q!\207" [intern "ConTeXt-section-" int-to-string "-enable"] 5 (#$ . 39598)]) #@74 Enable or disable section ENTRY from `ConTeXt-section-list'. (fn ENTRY) (defalias 'ConTeXt-section-enable #[257 "\211A@\301!YL\207" [ConTeXt-largest-level ConTeXt-section-enable-symbol] 5 (#$ . 39812)]) #@48 Insert numbered section from menu. (fn LEVEL) (defalias 'ConTeXt-numbered-section-menu #[257 "\301\302\303!\"\304!)\207" [ConTeXt-numbered-section-hook delq ConTeXt-numbered-section-heading copy-sequence ConTeXt-section] 5 (#$ . 40025)]) #@50 Insert unnumbered section from menu. (fn LEVEL) (defalias 'ConTeXt-unnumbered-section-menu #[257 "\301\302\303!\"\304!)\207" [ConTeXt-unnumbered-section-hook delq ConTeXt-unnumbered-section-heading copy-sequence ConTeXt-section] 5 (#$ . 40273)]) #@60 Create an ENTRY for the numbered section menu. (fn ENTRY) (defalias 'ConTeXt-numbered-section-menu-entry #[257 "\300A@!\211\301L\210\302@\303A@D#\207" [ConTeXt-section-enable-symbol t vector ConTeXt-numbered-section-menu] 6 (#$ . 40529)]) #@62 Create an ENTRY for the unnumbered section menu. (fn ENTRY) (defalias 'ConTeXt-unnumbered-section-menu-entry #[257 "\300A@!\211\301L\210\302@\303A@D#\207" [ConTeXt-section-enable-symbol t vector ConTeXt-unnumbered-section-menu] 6 (#$ . 40779)]) #@73 Call etexshow, if available, to show the definition of a ConText macro. (defalias 'ConTeXt-etexshow #[0 "\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 (#$ . 41035) nil]) #@36 Command menu used in ConTeXt mode. (defvar ConTeXt-mode-command-menu nil (#$ . 41332)) (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 (#$ . 41615)) (byte-code "\306\307\310\311 C\nC C\fC\312\313\314\315\316\313 CC\317CCC\313\320\321\322\313\323\324\313BBBBBBBBBBBBBBBBBBBBBBBBBB$\207" [ConTeXt-mode-map ConTeXt-project-structure-menu-name ConTeXt-section-block-menu-name ConTeXt-numbered-section-menu-name ConTeXt-unnumbered-section-menu-name ConTeXt-environment-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" 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-environment-modify-menu-name ConTeXt-define-menu-name ConTeXt-setup-menu-name ConTeXt-other-macro-menu-name TeX-fold-menu TeX-common-menu-entries] 31) #@53 Update entries on AUCTeX menu. (fn &optional MENU) (defalias 'ConTeXt-menu-update #[256 "\306=\205\307?\206\362 ?\206\362\310 \210\311\312\313!\210\314\315\n\"\210\312\316!\210\312\317!\210\320\321 \322\323\324\325 \"!#\210\312\326!\210\312\327!\210\320\330\f\322\323\331\325 \"!#\210\312\332!\210\312\333!\210\320\334 \322\323\3358\"!#\210\312\336!\210\312\337!\210\320\3409\322\323\341:\"!#\210\312\342!\210\312\343!\210\320\344;\322\323\345<\"!#\210\312\346!\210\312\347!\210\320\350=\322\323\351>\"!#\210\312\352!\210\312\353!\210\320\354?\322\323\355@\"!#\210\312\356!\210\312\357!\210\320\360A\322\323\361B\"!#\210\312\362!\210\312\313!\210\320\363C\322\323\364D\"!#\210\320\365E\322\323\366F\"!#\210\312\316!\210\211\205\362\367G\"\207" [major-mode ConTeXt-menu-changed ConTeXt-section-list ConTeXt-environment-menu-name ConTeXt-environment-modify-menu-name ConTeXt-define-menu-name context-mode (context-mode) TeX-update-style nil message "Updating section menu..." mapc ConTeXt-section-enable "Updating section menu...done" "Updating environment menu..." easy-menu-change ("ConTeXt") LaTeX-split-long-menu mapcar ConTeXt-environment-menu-entry ConTeXt-environment-list "Updating environment menu...done" "Updating modify environment menu..." ("ConTeXt") ConTeXt-environment-modify-menu-entry "Updating modify environment menu...done" "Updating define menu..." ("ConTeXt") ConTeXt-define-menu-entry "Updating define menu...done" "Updating setup menu..." ("ConTeXt") ConTeXt-setup-menu-entry "Updating setup menu...done" "Updating referencing menu..." ("ConTeXt") ConTeXt-referencing-menu-entry "Updating referencing menu...done" "Updating other macro's menu..." ("ConTeXt") ConTeXt-other-macro-menu-entry "Updating other macro's menu...done" "Updating project structure menu..." ("ConTeXt") ConTeXt-project-structure-menu-entry "Updating project structure menu...done" "Updating section block menu..." ("ConTeXt") ConTeXt-section-block-menu-entry "Updating section block menu...done" ("ConTeXt") ConTeXt-numbered-section-menu-entry ("ConTeXt") ConTeXt-unnumbered-section-menu-entry easy-menu-return-item ConTeXt-define-list ConTeXt-setup-menu-name ConTeXt-setup-list ConTeXt-referencing-menu-name ConTeXt-referencing-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-numbered-section-menu-name ConTeXt-numbered-section-list ConTeXt-unnumbered-section-menu-name ConTeXt-unnumbered-section-list ConTeXt-mode-menu] 8 (#$ . 43905)]) #@53 Command line option for texexec to use nonstopmode. (defvar ConTeXt-texexec-option-nonstop "--nonstop " (#$ . 46517)) #@75 Expand ConTeXt command. Use `ConTeXt-Mark-version' to choose the command. (defalias 'ConTeXt-expand-command #[0 "\301\230\203\302\207\303\207" [ConTeXt-Mark-version "IV" "context" "texexec"] 2 (#$ . 46641)]) #@37 Expand options for context command. (defalias 'ConTeXt-expand-options #[0 "\306\230\203 \205 \307\n?\205 P\207\310\311\312\f!8\313\"\211\205#\314\315\"\262 \316=?\2050\314\317 \" \205E\314\320\321 \322=\203B\202D\"\n?\205K R\207" [ConTeXt-Mark-version TeX-source-correlate-mode TeX-interactive-mode ConTeXt-texexec-option-nonstop TeX-engine ConTeXt-current-interface "IV" "--synctex=1 " eval 4 TeX-engine-in-engine-alist t format "--engine=%s " "en" "--interface=%s " "--passon=\"%s\" " TeX-source-correlate-method-active synctex TeX-synctex-tex-flags TeX-source-specials-tex-flags] 6 (#$ . 46858)]) #@59 List of variables to be set from languages specific ones. (defvar ConTeXt-language-variable-list '(ConTeXt-define-list ConTeXt-setup-list ConTeXt-referencing-list ConTeXt-other-macro-list ConTeXt-project-structure-list ConTeXt-section-block-list ConTeXt-numbered-section-list ConTeXt-unnumbered-section-list ConTeXt-section-list ConTeXt-text ConTeXt-item-list ConTeXt-extra-paragraph-commands ConTeXt-environment-list) (#$ . 47482)) #@203 Default dialect for use with function `TeX-add-style-hook' for argument DIALECT-EXPR when the hook is to be run only on ConTeXt file, or any mode derived thereof. See variable `TeX-style-hook-dialect'. (defconst ConTeXt-dialect :context (#$ . 47922)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\305\306\314\310\311&\207" [custom-declare-variable ConTeXt-clean-intermediate-suffixes funcall function #[0 "\300\207" [("\\.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")] 1] "List of regexps matching suffixes of files to be deleted.\nThe regexps will be anchored at the end of the file name to be matched,\ni.e. you do _not_ have to cater for this yourself by adding \\\\' or $." :type (repeat regexp) :group TeX-command ConTeXt-clean-output-suffixes #[0 "\300\207" [("\\.dvi" "\\.pdf" "\\.ps")] 1] (repeat regexp)] 8) #@32 Abbrev table for ConTeXt mode. (defvar context-mode-abbrev-table nil (#$ . 49013)) (byte-code "\302\300\303\"\210\304\305 C#\207" [context-mode-abbrev-table text-mode-abbrev-table define-abbrev-table nil abbrev-table-put :parents] 4) #@64 Initialization code that is common for all ConTeXt interfaces. (defalias 'ConTeXt-mode-common-initialization #[0 "\306\262\307 \210\310\n\311\305!\210\f8\211\203%\211@\312!\210A\266\202\202\210\313\314\315P!!\2108\211\203I\211@\211\314\316!\317Q!JL\210A\266\202\2020\210\320\321\3229\323#\324Q:;\204]\325;\326\326" 2 use-local-map 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 "[ ]*\\(" "\\|\\$\\$\\|$\\)" "[ ]*\\(\\$\\$\\|$\\)" add-hook activate-menubar-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 run-mode-hooks text-mode-hook TeX-mode-hook ConTeXt-mode-hook ConTeXt-language-variable-list ConTeXt-item-list ConTeXt-indent-item-re ConTeXt-largest-level ConTeXt-mode-map paragraph-start paragraph-separate ConTeXt-menu-changed TeX-header-end TeX-trailer-start ConTeXt-font-list TeX-command-default TeX-sentinel-default-function] 7 (#$ . 49254)]) #@59 Guess what ConTeXt interface the current buffer is using. (defalias 'context-guess-current-interface #[0 "\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 (#$ . 51201) 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 #[0 "\301 \210\302\303\304P!!\210\303\304\305Q! \207" [ConTeXt-current-interface context-guess-current-interface require intern "context-" "-mode"] 4 (#$ . 51705) nil]) (provide 'context)