;ELC ;;; Compiled by nelhage@mit.edu on Wed Mar 21 17:22:34 2007 ;;; from file /home/nelhage/tmp/auctex-11.84/tex.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 "`tex.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301W\203\n\302\303!\210\304\305!\210\304\306!\210\307\310\311\312\313\314\315\316\315\317\320\321\322\323& \210\307\324\311\325\322\310%\210\307\326\311\327\322\310%\210\307\330\311\331\313\332\322\310\320\333& \210\307\334\311\335\322\310%\207" [emacs-major-version 21 error "AUCTeX requires Emacs 21 or later" require custom tex-site custom-declare-group AUCTeX nil "A (La)TeX environment." :tag "AUCTeX" :link (custom-manual "(auctex)Top") (url-link :tag "Home Page" "http://www.gnu.org/software/auctex/") :prefix "TeX-" :group tex TeX-file "Files used by AUCTeX." TeX-command "Calling external commands from AUCTeX." LaTeX "LaTeX support in AUCTeX." "LaTeX" "LaTeX-" TeX-misc "Various AUCTeX settings."] 14) #@199 *Command used to print a file. First `%p' is expanded to the printer name, then ordinary expansion is performed as specified in `TeX-expand-list'. If it is `nil', then customization is requested. (custom-declare-variable 'TeX-print-command '"%(o?)dvips -P%p %r %s" '(#$ . -1301) :group 'TeX-command :type '(choice (string :tag "Print command") (const :tag "No print command customized" nil))) #@27 Command to run plain TeX. (custom-declare-variable 'TeX-command '"tex" '(#$ . 1702) :group 'TeX-command :type 'string) #@36 Command to run plain TeX on Omega. (custom-declare-variable 'TeX-Omega-command '"omega" '(#$ . 1827) :group 'TeX-command :type 'string) #@23 Command to run LaTeX. (custom-declare-variable 'LaTeX-command '"latex" '(#$ . 1969) :group 'TeX-command :type 'string) #@32 Command to run LaTeX on Omega. (custom-declare-variable 'LaTeX-Omega-command '"lambda" '(#$ . 2094) :group 'TeX-command :type 'string) #@76 Engine to use for --tex in the texexec command. If nil, none is specified. (custom-declare-variable 'ConTeXt-engine 'nil '(#$ . 2235) :group 'TeX-command :type '(choice (const :tag "Unspecified" nil) string)) #@90 Engine to use for --tex in the texexec command in Omega mode. If nil, none is specified. (custom-declare-variable 'ConTeXt-Omega-engine 'TeX-Omega-command '(#$ . 2450) :group 'TeX-command :type '(choice (const :tag "Unspecified" nil) string)) #@232 *Command used to show the status of a printer queue. First `%p' is expanded to the printer name, then ordinary expansion is performed as specified in `TeX-expand-list'. If this is `nil', the printer has no corresponding command. (custom-declare-variable 'TeX-queue-command '"lpq -P%p" '(#$ . -2700) :group 'TeX-command :type '(choice (string :tag "Queue check command") (const :tag "No such command" nil))) #@33 A hook run in TeX mode buffers. (custom-declare-variable 'TeX-mode-hook 'nil '(#$ . 3115) :type 'hook :group 'TeX-misc) #@37 A hook run in AmS-TeX mode buffers. (custom-declare-variable 'AmS-TeX-mode-hook 'nil '(#$ . 3241) :type 'hook :group 'TeX-misc) #@2055 List of commands to execute on the current document. Each element is a list, whose first element is the name of the command as it will be presented to the user. The second element is the string handed to the shell after being expanded. The expansion is done using the information found in `TeX-expand-list'. The third element is the function which actually start the process. Several such hooks has been defined: TeX-run-command: Start up the process and show the output in a separate buffer. Check that there is not two commands running for the same file. Return the process object. TeX-run-format: As `TeX-run-command', but assume the output is created by a TeX macro package. Return the process object. TeX-run-TeX: For TeX output. TeX-run-interactive: Run TeX or LaTeX interactively. TeX-run-BibTeX: For BibTeX output. TeX-run-compile: Use `compile' to run the process. TeX-run-shell: Use `shell-command' to run the process. TeX-run-discard: Start the process in the background, discarding its output. TeX-run-background: Start the process in the background, show output in other window. TeX-run-silent: Start the process in the background. TeX-run-discard-foreground: Start the process in the foreground, discarding its output. TeX-run-function: Execute the Lisp function or function call specified by the string in the second element. Consequently, this hook does not start a process. To create your own hook, define a function taking three arguments: The name of the command, the command string, and the name of the file to process. It might be useful to use `TeX-run-command' in order to create an asynchronous process. If the fourth element is non-nil, the user will get a chance to modify the expanded string. The fifth element indicates in which mode(s) the command should be present in the Command menu. Use t if it should be active in any mode. If it should only be present in some modes, specify a list with the respective mode names. Any additional elements get just transferred to the respective menu entries.  (custom-declare-variable 'TeX-command-list '`(("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (plain-tex-mode ams-tex-mode texinfo-mode) :help "Run plain TeX") ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX") ("Makeinfo" "makeinfo %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with Info output") ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with HTML output") ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX") ("ConTeXt" "texexec --once --texutil %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt once") ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt until completion") ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX") ,(if (or window-system (getenv "DISPLAY")) '("View" "%V" TeX-run-discard t t :help "Run Viewer") '("View" "dvi2tty -q -w 132 %s" TeX-run-command t t :help "Run Text viewer")) ("Print" "%p" TeX-run-command t t :help "Print the file") ("Queue" "%q" TeX-run-background nil t :help "View the printer queue" :visible TeX-queue-command) ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help "Generate PostScript file") ("Index" "makeindex %s" TeX-run-command nil t :help "Create index file") ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for correctness") ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document") ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files") ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files") ("Other" "" TeX-run-command t t :help "Run an arbitrary command")) '(#$ . 3377) :group 'TeX-command :type '(repeat (group :value ("" "" TeX-run-command nil t) (string :tag "Name") (string :tag "Command") (choice :tag "How" :value TeX-run-command (function-item TeX-run-command) (function-item TeX-run-format) (function-item TeX-run-TeX) (function-item TeX-run-interactive) (function-item TeX-run-BibTeX) (function-item TeX-run-compile) (function-item TeX-run-shell) (function-item TeX-run-discard) (function-item TeX-run-background) (function-item TeX-run-silent) (function-item TeX-run-discard-foreground) (function-item TeX-run-function) (function :tag "Other")) (boolean :tag "Prompt") (choice :tag "Modes" (const :tag "All" t) (set (const :tag "Plain TeX" plain-tex-mode) (const :tag "LaTeX" latex-mode) (const :tag "DocTeX" doctex-mode) (const :tag "ConTeXt" context-mode) (const :tag "Texinfo" texinfo-mode) (const :tag "AmSTeX" ams-tex-mode))) (repeat :tag "Menu elements" :inline t sexp)))) #@809 List of regexps and file extensions. Each element is a list, whose first element is a regular expression to match against the name of the command that will be used to process the TeX file. The second element is either a string or a list with a string as element. If it is a string this is the default file extension that will be expected for output files that are produced by commands that match the first element. The real file extension will be obtained from the logging output if possible, defaulting to the given string. If it is a list, the element of the list will be the fixed extension used without looking at the logging output. If this list does not yield an extension, the default is either "dvi" or "pdf", depending on the setting of `TeX-PDF-mode'. Extensions must be given without the ".". (custom-declare-variable 'TeX-command-output-list ''nil '(#$ . 8174) :group 'TeX-command :type '(repeat (group (regexp :tag "Command Regexp") (choice (string :tag "Default Extension") (group (string :tag "Fixed Extension")))))) #@63 Default LaTeX version. Currently recognized is "2" and "2e". (custom-declare-variable 'LaTeX-version '"2e" '(#$ . 9216) :group 'LaTeX :type '(radio (const :format "%v\n%h" :doc "The executable `latex' is LaTeX version 2." "2") (const :format "%v\n%h" :doc "The executable `latex' is LaTeX version 2e." "2e") (string :tag "Other"))) #@333 List of style options and LaTeX commands. If the first element (a regular expresion) matches the name of one of the style files, any occurrence of the string `%l' in a command in `TeX-command-list' will be replaced with the second element. The first match is used, if no match is found the `%l' is replaced with the empty string. (custom-declare-variable 'LaTeX-command-style ''(("" "%(PDF)%(latex) %S%(PDFout)")) '(#$ . 9556) :group 'TeX-command :type '(repeat (group :value ("" "") regexp (string :tag "Style")))) #@629 List of available printers. The first element of each entry is the printer name. The second element is the command used to print to this printer. It defaults to the value of `TeX-print-command' when `nil'. The third element is the command used to examine the print queue for this printer. It defaults to the value of `TeX-queue-command' similarly. Any occurrence of `%p' in the second or third element is expanded to the printer name given in the first element, then ordinary expansion is performed as specified in `TeX-expand-list'. If this list is empty, only `TeX-print-command' and `TeX-queue-command' get consulted. (custom-declare-variable 'TeX-printer-list ''(("Default" "%(o?)dvips -f %s | lpr" "lpq")) '(#$ . 10081) :group 'TeX-command :type '(repeat (group (string :tag "Name") (option (group :inline t :extra-offset -4 (choice :tag "Print" (const :tag "default") (string :format "%v")) (option (choice :tag "Queue" (const :tag "default") (string :format "%v")))))))) #@45 *Default printer to use with `TeX-command'. (custom-declare-variable 'TeX-printer-default '(or (getenv "PRINTER") (and TeX-printer-list (car (car TeX-printer-list))) "lp") '(#$ . -11072) :group 'TeX-command :type 'string) #@750 List of style options and view options. If the first element (a regular expresion) matches the name of one of the style files, any occurrence of the string `%v' in a command in `TeX-command-list' will be replaced with the second element. The first match is used, if no match is found the `%v' is replaced with the empty string. As a default, the "View" command in `TeX-command-list' is set to `%V'. This means that `TeX-output-view-style' will be consulted before `TeX-view-style'. Only if no match is found in `TeX-output-view-style' the settings in `TeX-view-style' will be considered. If you want to bypass `TeX-output-view-style', which is not recommended because it is more powerful than `TeX-view-style', use `%v' in the "View" command. (custom-declare-variable 'TeX-view-style '`((,(concat "^" (regexp-opt '("a4paper" "a4dutch" "a4wide" "sem-a4")) "$") "%(o?)xdvi %dS -paper a4 %d") (,(concat "^" (regexp-opt '("a5paper" "a5comb")) "$") "%(o?)xdvi %dS -paper a5 %d") ("^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^landscape$" "%(o?)xdvi %dS -paper a4r -s 0 %d") ("." "%(o?)xdvi %dS %d")) '(#$ . 11301) :group 'TeX-command :type '(repeat (group regexp (string :tag "Command")))) #@689 List of output file extensions and view options. If the first element (a regular expresion) matches the output file extension, and the second element (a regular expression) matches the name of one of the style options, any occurrence of the string `%V' in a command in `TeX-command-list' will be replaced with the third element. The first match is used; if no match is found the `%V' is replaced with `%v'. The outcome of `%v' is determined by the settings in `TeX-view-style' which therefore serves as a fallback for `TeX-output-view-style'. The second element may also be a list of regular expressions, in which case all the regular expressions must match for the element to apply. (custom-declare-variable 'TeX-output-view-style '`(("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" (,(concat "^" (regexp-opt '("a4paper" "a4dutch" "a4wide" "sem-a4")) "$") "^landscape$") "%(o?)xdvi %dS -paper a4r -s 0 %d") ("^dvi$" ,(concat "^" (regexp-opt '("a4paper" "a4dutch" "a4wide" "sem-a4")) "$") "%(o?)xdvi %dS -paper a4 %d") ("^dvi$" (,(concat "^" (regexp-opt '("a5paper" "a5comb")) "$") "^landscape$") "%(o?)xdvi %dS -paper a5r -s 0 %d") ("^dvi$" ,(concat "^" (regexp-opt '("a5paper" "a5comb")) "$") "%(o?)xdvi %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)xdvi %dS %d") ("^pdf$" "." "xpdf -remote %s -raise %o %(outpage)") ("^html?$" "." "netscape %o")) '(#$ . 12653) :group 'TeX-command :type '(repeat (group (regexp :tag "Extension") (choice regexp (repeat :tag "List" regexp)) (string :tag "Command")))) #@332 List of style options and print options. If the first element (a regular expresion) matches the name of one of the style files, any occurrence of the string `%r' in a command in `TeX-command-list' will be replaced with the second element. The first match is used, if no match is found the `%r' is replaced with the empty string. (custom-declare-variable 'TeX-print-style ''(("^landscape$" "-t landscape")) '(#$ . 14518) :group 'TeX-command :type '(repeat (group regexp (string :tag "Command")))) #@390 List of expansion strings for TeX command names. Each entry is a list with two or more elements. The first element is the string to be expanded. The second element is the name of a function returning the expanded string when called with the remaining elements as arguments. The special value `file' will be expanded to the name of the file being processed, with an optional extension. (custom-declare-variable 'TeX-expand-list ''(("%p" TeX-printer-query) ("%q" (lambda nil (TeX-printer-query t))) ("%V" (lambda nil (TeX-output-style-check TeX-output-view-style))) ("%v" (lambda nil (TeX-style-check TeX-view-style))) ("%r" (lambda nil (TeX-style-check TeX-print-style))) ("%l" (lambda nil (TeX-style-check LaTeX-command-style))) ("%(PDF)" (lambda nil (if (and (not TeX-Omega-mode) (or TeX-PDF-mode TeX-DVI-via-PDFTeX)) "pdf" ""))) ("%(PDFout)" (lambda nil (if (and (not TeX-Omega-mode) (not TeX-PDF-mode) TeX-DVI-via-PDFTeX) " \"\\pdfoutput=0 \"" ""))) ("%(mode)" (lambda nil (if TeX-interactive-mode "" " -interaction=nonstopmode"))) ("%(o?)" (lambda nil (if TeX-Omega-mode "o" ""))) ("%(tex)" (lambda nil (if TeX-Omega-mode TeX-Omega-command TeX-command))) ("%(latex)" (lambda nil (if TeX-Omega-mode LaTeX-Omega-command LaTeX-command))) ("%(execopts)" ConTeXt-expand-options) ("%S" TeX-source-specials-expand-options) ("%dS" TeX-source-specials-view-expand-options) ("%cS" TeX-source-specials-view-expand-client) ("%(outpage)" (lambda nil (if TeX-sync-output-page-function (funcall TeX-sync-output-page-function) ""))) ("%s" file nil t) ("%t" file t t) ("%`" (lambda nil (setq TeX-command-pos t TeX-command-text ""))) (" \"\\" (lambda nil (if (eq TeX-command-pos t) (setq TeX-command-pos pos pos (+ 3 pos)) (setq pos (1+ pos))))) ("\"" (lambda nil (if (numberp TeX-command-pos) (setq TeX-command-text (concat TeX-command-text (substring command TeX-command-pos (1+ pos))) command (concat (substring command 0 TeX-command-pos) (substring command (1+ pos))) pos TeX-command-pos TeX-command-pos t) (setq pos (1+ pos))))) ("%'" (lambda nil (prog1 (if (stringp TeX-command-text) (progn (setq pos (+ (length TeX-command-text) 9) TeX-command-pos (and (string-match " " (funcall file t t)) "\"")) (concat TeX-command-text " \"\\input\"")) (setq TeX-command-pos nil) "") (setq TeX-command-text nil)))) ("%n" TeX-current-line) ("%d" file "dvi" t) ("%f" file "ps" t) ("%o" (lambda nil (funcall file (TeX-output-extension) t))) ("%b" TeX-current-file-name-master-relative) ("%m" preview-create-subdirectory)) '(#$ . 15023) :group 'TeX-command :type '(repeat (group (string :tag "Key") (sexp :tag "Expander") (repeat :inline t :tag "Arguments" (sexp :format "%v"))))) (byte-code "\300\301\302\303\211$\210\300\304\302\303\305$\210\300\306\302\303\305$\210\300\307\302\303\305$\210\300\310\302\303\305$\210\300\311\302\303\305$\210\300\312\302\303\305$\210\300\313\302\303\211$\210\300\314\302\303\305$\210\300\315\302\303\305$\210\300\316\302\303\305$\210\300\317\302\303\211$\210\300\320\302\303\211$\210\300\321\302\303\211$\210\300\322\302\303\305$\210\323\324!\210\325\326\327\"\207" [autoload TeX-region-create "tex-buf" nil TeX-save-document t TeX-home-buffer TeX-pin-region TeX-command-region TeX-command-buffer TeX-command-master TeX-command TeX-kill-job TeX-recenter-output-buffer TeX-next-error TeX-region-file TeX-current-offset TeX-process-set-variable TeX-view require easymenu defalias TeX-maybe-remove-help #[(menu) "\207" [menu] 1 "Compatibility function that would remove :help entries if on XEmacs,\nbut does nothing in Emacs."]] 5) #@85 Compatibility macro that removes :help entries if on XEmacs. Also does other stuff. (defalias 'TeX-menu-with-help '(macro . #[(menu) "\301!\207" [menu TeX-maybe-remove-help] 2 (#$ . 18574)])) (byte-code "\303B\304 !\210\305\306\307\217\210\310B\311\n!\210\305\312\313\217\210\314\315\316\"\210\317\320\321\322\305$\210\323\320\305\"\207" [current-load-list AUCTeX-version AUCTeX-date AUC-TeX-version (lambda (#1=#:defconst-tmp-var) (defconst AUC-TeX-version #1#)) nil (byte-code "\300\301\302\303#\207" [make-obsolete-variable AUC-TeX-version AUCTeX-version "11.50"] 4) ((wrong-number-of-arguments (byte-code "\300\301\302\"\207" [make-obsolete-variable AUC-TeX-version AUCTeX-version] 3))) AUC-TeX-date (lambda (#2=#:defconst-tmp-var) (defconst AUC-TeX-date #2#)) (byte-code "\300\301\302\303#\207" [make-obsolete-variable AUC-TeX-date AUCTeX-date "11.50"] 4) ((wrong-number-of-arguments (byte-code "\300\301\302\"\207" [make-obsolete-variable AUC-TeX-date AUCTeX-date] 3))) eval-after-load info (dolist (elt '("TeX" "LaTeX" "ConTeXt" "Texinfo" "docTeX")) (add-to-list 'Info-file-list-for-emacs (cons elt "AUCTeX"))) ad-add-advice hack-one-local-variable (TeX-hack-one-local-variable-after nil t (advice lambda nil "Call minor mode function if minor mode variable is found." (let ((var (ad-get-arg 0)) (val (ad-get-arg 1))) (when (memq var '(TeX-PDF-mode TeX-source-specials-mode TeX-interactive-mode TeX-Omega-mode TeX-fold-mode LaTeX-math-mode)) (if (symbol-value val) (funcall var 1) (funcall var 0)))))) after ad-activate] 5) #@163 Numerical difference of priorities between nested overlays. The step should be big enough to allow setting a priority for new overlays between two existing ones. (defvar TeX-overlay-priority-step 16 (#$ . 20117)) (byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\305!\203!\302\306\305\"\210\202&\302\306\307\"\210\302\310\311\"\210\302\312\313\"\210\302\314\315\"\210\302\316\317\"\207" [fboundp completing-read-multiple defalias TeX-completing-read-multiple #[(prompt table &optional predicate require-match initial-input hist def inherit-input-method) "\306\307\310 \n \f &\207" [prompt table predicate require-match initial-input hist multi-prompt "," nil] 9 "Poor mans implementation of Emacs' `completing-read-multiple' for XEmacs.\nThe XEmacs package edit-utils-2.32 includes `crm.el'."] line-number-at-pos TeX-line-number-at-pos #[(&optional pos) "\206`\303\212eb\210`\nb\210\304y\210\305 `\"T+\207" [pos start opoint nil 0 count-lines] 3 "Return (narrowed) buffer line number at position POS.\nIf POS is nil, use current buffer location."] TeX-mark-active #[nil "\207" [mark-active] 1] TeX-active-mark #[nil "\205 \207" [transient-mark-mode mark-active] 1] TeX-activate-region #[nil "\300\207" [nil] 1] TeX-overlay-prioritize #[(start end) "\306\211\211\307 \f\"\306\211\203O@\310 \311\"\312=\204&\310 \313\"\203F\310 \314\"\315 ! Y\203> \2069]\202F\n\206D^A\211\204* \203_\n\204_ \\\202\201 \204m\n\203m\n\316\245\202\201 \203\n\203\n Z\316\245 \\\202\201+\207" [ov-priority inner-priority outer-priority start end ov nil overlays-in overlay-get category TeX-fold preview-state priority overlay-start 2 #:--cl-dolist-temp-- TeX-overlay-priority-step] 4 "Calculate a priority for an overlay extending from START to END.\nThe calculated priority is lower than the minimum of priorities\nof surrounding overlays and higher than the maximum of enclosed\noverlays."]] 3) #@122 Return a list of all elements in ALIST, but each car only once. Elements of KEEP-LIST are not removed even if duplicate. (defalias 'TeX-delete-dups-by-car #[(alist &optional keep-list) "\305\306!\307\"\305\306 !\310\"\211\311\211\203Y \211@@)\203/@\n\231\203/A\211\204!\203:\n@\230\204R\n \211A@)@\230\203R \211\211AA)\241\210\202: A\211\204* \207" [keep-list alist elt new x sort copy-sequence string< #[(a b) "@ @\231\207" [a b] 2] nil] 4 (#$ . 22081)]) #@59 Return a list of all strings in LIST, but each only once. (defalias 'TeX-delete-duplicate-strings #[(list) "\304!\211\305\211\203-\n@ \n\211A@)\230\203&\n\211\211AA)\241\210\202\nA\211\204\f*\207" [list elt new x TeX-sort-strings nil] 3 (#$ . 22570)]) #@44 Return sorted list of all strings in LIST. (defalias 'TeX-sort-strings #[(list) "\301\302!\303\"\207" [list sort copy-sequence string<] 3 (#$ . 22842)]) (custom-declare-group 'TeX-output nil "Parsing TeX output." :prefix "TeX-" :group 'AUCTeX) #@80 *Non-nil means popup help when stepping through errors with \[TeX-next-error]. (custom-declare-variable 'TeX-display-help 't '(#$ . -23093) :group 'TeX-output :type 'boolean) #@81 Non-nil means also find overfull/underfull box warnings with \[TeX-next-error]. (custom-declare-variable 'TeX-debug-bad-boxes 'nil '(#$ . 23274) :group 'TeX-output :type 'boolean) #@75 Non-nil means also find LaTeX or package warnings with \[TeX-next-error]. (custom-declare-variable 'TeX-debug-warnings 'nil '(#$ . 23460) :group 'TeX-output :type 'boolean) #@56 Toggle if the debugger should display "bad boxes" too. (defalias 'TeX-toggle-debug-bad-boxes #[nil "?\301\302\203 \303\202\304P!\207" [TeX-debug-bad-boxes message "TeX-debug-bad-boxes: " "on" "off"] 3 (#$ . 23639) nil]) #@53 Toggle if the debugger should display warnings too. (defalias 'TeX-toggle-debug-warnings #[nil "?\301\302\203 \303\202\304P!\207" [TeX-debug-warnings message "TeX-debug-warnings: " "on" "off"] 3 (#$ . 23871) nil]) #@20 Base name of mode. (defvar TeX-base-mode-name nil (#$ . 24097)) (make-variable-buffer-local 'TeX-base-mode-name) #@556 Build and set the mode name. The base mode name will be concatenated with indicators for helper modes where appropriate. If CHANGED is non-nil, it indicates which global mode may have changed so that all corresponding buffers without a local value might get their name updated. A value ot `t' will thus update all buffer names. If LOCAL is non-nil and CHANGED is buffer-local, only a local change has been performed and only the local name is to be updated. If RESET is non-nil, `TeX-command-next' is reset to `TeX-command-default' in updated buffers. (defalias 'TeX-set-mode-name #[(&optional changed local reset) "\203> \203\306p\"\204>\307 \310\211\203; @\306\305\n\"\2034\306\n\"\2044r\nq\210\311\310\211\f#\210) A\211\204*\310\207 \205\240\205H\312\313\314!\205T\f\205T\315\313\316!\205`\205`\317\205f\320\205l\321\260\205v\322 G\323V\205\204\324PQ!\f\203\233\325\326 \327\"#\210\325\330 \327\"#\210\331\332 !)\207" [changed local buffer #1=#:--cl-dolist-temp-- reset TeX-mode-p local-variable-p buffer-list nil TeX-set-mode-name "O" boundp TeX-fold-mode "F" LaTeX-math-mode "M" "I" "S" "PDF" 0 "/" TeX-process-set-variable TeX-master-file TeX-command-next TeX-region-file set-buffer-modified-p buffer-modified-p TeX-Omega-mode TeX-interactive-mode TeX-source-specials-mode trailing-flags TeX-PDF-mode TeX-base-mode-name mode-name TeX-command-default] 5 (#$ . 24217)]) (custom-declare-group 'TeX-source-specials nil "Controlling source specials in AUCTeX." :group 'TeX-command) #@87 Keymap for `TeX-source-specials-mode'. You could use this for unusual mouse bindings. (defvar TeX-source-specials-map (make-sparse-keymap) (#$ . 25758)) #@293 Non-nil if Tex-Source-Specials mode is enabled. See the command `TeX-source-specials-mode' for a description of this minor-mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `TeX-source-specials-mode'. (custom-declare-variable 'TeX-source-specials-mode 'nil '(#$ . 25918) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'TeX-source-specials :type 'boolean) #@358 Minor mode for generating and using LaTeX source specials. If enabled, an option that inserts source specials into the DVI file is added to the LaTeX commmand line and the DVI viewer is called with an appropriate option, so that it shows the the point in the DVI file corresponding to the point in the Emacs buffer. See the the AUCTeX manual for details. (defalias 'TeX-source-specials-mode #[(&optional arg) "\304=\203 ?\202%\203\305!\306V\202% \204\307\202%\310\311\301\"\210\312\313\n \205- \"\210\314\301\307\211#\210\315\316 \203?\317\202@\320\"\210\321 \203X\322\301!\210\310\323 \203U\324\202V\325\"\210\326 \210 \207" [arg TeX-source-specials-mode TeX-mode-map TeX-source-specials-map toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil set-keymap-parent TeX-set-mode-name run-hooks TeX-source-specials-mode-hook TeX-source-specials-mode-on-hook TeX-source-specials-mode-off-hook called-interactively-p customize-mark-as-set "Tex-Source-Specials mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 26398) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\305!\205 \305J#\210\306\307\302\"\210\310\302\311\312#\210\313\302\236\"\303\207" [minor-mode-map-alist add-minor-mode TeX-source-specials-mode nil boundp TeX-source-specials-mode-map defalias tex-source-specials-mode put safe-local-variable TeX-booleanp delq] 5) #@66 Extra flags to pass to TeX commands to generate source specials. (custom-declare-variable 'TeX-source-specials-tex-flags '"-src-specials" '(#$ . 27826) :group 'TeX-source-specials :type '(choice string (repeat string))) #@99 List of places where to insert source specials into the DVI file. If nil, use (La)TeX's defaults. (custom-declare-variable 'TeX-source-specials-places 'nil '(#$ . 28052) :group 'TeX-source-specials :type '(list (set :inline t (const "cr") (const "display") (const "hbox") (const "math") (const "par") (const "parend") (const "vbox")) (repeat :inline t :tag "Other options" (string)))) #@181 Return source specials command line option for TeX commands. The return value depends on the value of `TeX-source-specials-mode'. If this is nil, an empty string will be returned. (defalias 'TeX-source-specials-expand-options #[nil "\203 \n\205\303\304\305\n\306#PP\207\307\207" [TeX-source-specials-mode TeX-source-specials-tex-flags TeX-source-specials-places "=" mapconcat identity "," ""] 6 (#$ . 28444)]) #@67 Determine if server should be started upon starting a DVI viewer. (custom-declare-variable 'TeX-source-specials-view-start-server ''ask '(#$ . 28865) :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask)) :group 'TeX-source-specials) #@74 Flags to pass to the DVI viewer commands for the position in the source. (custom-declare-variable 'TeX-source-specials-view-position-flags '"-sourceposition \"%n %b\"" '(#$ . 29138) :group 'TeX-source-specials :type 'string) #@58 Flags to pass to DVI viewer commands for inverse search. (custom-declare-variable 'TeX-source-specials-view-editor-flags '"-editor \"%cS\"" '(#$ . 29369) :group 'TeX-source-specials :type 'string) #@48 Flags to pass to gnuclient for inverse search. (custom-declare-variable 'TeX-source-specials-view-gnuclient-flags '"-q +%%l %%f" '(#$ . 29572) :group 'TeX-source-specials :type 'string) #@42 Flags to emacsclient for inverse search. (custom-declare-variable 'TeX-source-specials-view-emacsclient-flags '"--no-wait +%%l %%f" '(#$ . 29764) :group 'TeX-source-specials :type 'string) #@73 Keep track if question about server start for inverse search was asked. (defvar TeX-source-specials-view-start-server-asked nil (#$ . 29959)) #@50 Guess whether to use gnuserv for inverse search. (defalias 'TeX-source-specials-view-gnuserv-p #[nil "\302\300!\203\f\303!\206\302\301!\205\303 !\205\304\207" [gnuserv-process server-process boundp processp nil] 2 (#$ . 30107)]) #@109 Return gnuclient or emacslient executable with options. Return the full path to the executable if possible. (defalias 'TeX-source-specials-view-expand-client #[nil "\306 \211\203 \307\202\f\310\n\205\311 \n\"\203\f\202 \f \2033\312 !\2033 \313\fQ\2028 \313\fQ,\207" [gnuserv-p client-base invocation-directory client-full TeX-source-specials-view-gnuclient-flags TeX-source-specials-view-emacsclient-flags TeX-source-specials-view-gnuserv-p "gnuclient" "emacsclient" expand-file-name file-executable-p " " options] 4 (#$ . 30351)]) #@183 Return source specials command line option for viewer command. The return value depends on the value of `TeX-source-specials-mode'. If this is nil, an empty string will be returned. (defalias 'TeX-source-specials-view-expand-options #[(&optional viewer) "\203g\306 \211\203\307\202\310 \203\311\202\312\313\n!\203(\314\nJ!\206W\f\315=\2035 \210\315\202W\f\316=\205W ?\205W\317\320\321 \203K\322\202L\323\"!\315\205W \210\315\205d\324PP,\207\325\207" [TeX-source-specials-mode gnuserv-p process start TeX-source-specials-view-start-server TeX-source-specials-view-start-server-asked TeX-source-specials-view-gnuserv-p gnuserv-process server-process gnuserv-start server-start boundp processp t ask y-or-n-p format "Start %s for inverse search in viewer? " "gnuserv" "Emacs server" " " "" server-enabled TeX-source-specials-view-position-flags TeX-source-specials-view-editor-flags] 5 (#$ . 30908)]) #@151 Symbol of function returning an output page relating to buffer position. The function should take no arguments and return the page numer as a string. (defvar TeX-sync-output-page-function nil (#$ . 31847)) (make-variable-buffer-local 'TeX-sync-output-page-function) #@41 This indicates a TeX mode being active. (defvar TeX-mode-p nil (#$ . 32119)) (make-variable-buffer-local 'TeX-mode-p) (defalias 'TeX-mode-set #[(var value) "\302 \"\210\303\304\305#\207" [var value set-default TeX-set-mode-name nil t] 4]) (custom-declare-variable 'TeX-PDF-mode 'nil nil :group 'TeX-command :set 'TeX-mode-set :type 'boolean) (put 'TeX-PDF-mode 'safe-local-variable 'TeX-booleanp) #@93 Non-nil if Tex-Pdf mode is enabled. Use the command `TeX-PDF-mode' to change this variable. (defvar TeX-PDF-mode nil (#$ . 32524)) (make-variable-buffer-local 'TeX-PDF-mode) #@204 Minor mode for using PDFTeX. If enabled, PDFTeX will be used as an executable by default. You can customize an initial value, and you can use the function `TeX-global-PDF-mode' for toggling this value. (defalias 'TeX-PDF-mode #[(&optional arg) "\305=\203 ?\202%\203\306!\307V\202% \204\310\202%\311\312\301\"\210\313\n\203,\313\313\314\313\211\310#\210 \203<\315\202=\316\317\320 \203H\321\202I\322\"\210\323 \203]\311\324 \203Z\325\202[\326\"\210\327 \210 \207" [arg TeX-PDF-mode TeX-Omega-mode TeX-PDF-mode-parsed TeX-output-extension toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil TeX-set-mode-name "pdf" "dvi" run-hooks TeX-PDF-mode-hook TeX-PDF-mode-on-hook TeX-PDF-mode-off-hook called-interactively-p "Tex-Pdf mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 32705) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode TeX-PDF-mode nil boundp TeX-PDF-mode-map] 5) #@36 Toggle default for `TeX-PDF-mode'. (defalias 'TeX-global-PDF-mode #[(&optional arg) "\301\302\203\303!\304V\202\305\302!?\"\306\302\307\310#\210\207" [arg set-default TeX-PDF-mode prefix-numeric-value 0 default-value TeX-set-mode-name nil t] 5 (#$ . 33720) "P"]) (defalias 'tex-pdf-mode 'TeX-PDF-mode) #@50 Set if `TeX-PDF-mode' has come about by parsing. (defvar TeX-PDF-mode-parsed nil (#$ . 34034)) (make-variable-buffer-local 'TeX-PDF-mode-parsed) #@186 Change `TeX-PDF-mode' to ARG based on parsing. If this conflicts with previous parsed settings, just use the default. If an explicit setting is already established, don't do anything. (defalias 'TeX-PDF-mode-parsed #[(arg) "\203 \n=?\2050\301\303\301!\203\304\202\305!\207\306\301p\"?\2050\301\n\203*\304\202+\305!\210\307\211\207" [TeX-PDF-mode-parsed TeX-PDF-mode arg default-value 1 0 local-variable-p t] 3 (#$ . 34186)]) #@33 Use only from parsing routines. (defalias 'TeX-PDF-mode-on #[nil "\300\301!\207" [TeX-PDF-mode-parsed t] 2 (#$ . 34630)]) #@33 Use only from parsing routines. (defalias 'TeX-PDF-mode-off #[nil "\300\301!\207" [TeX-PDF-mode-parsed nil] 2 (#$ . 34758)]) #@53 Whether to use PDFTeX also for producing DVI files. (custom-declare-variable 'TeX-DVI-via-PDFTeX 'nil '(#$ . 34889) :group 'TeX-command :type 'boolean) #@109 Non-nil if Tex-Interactive mode is enabled. Use the command `TeX-interactive-mode' to change this variable. (defvar TeX-interactive-mode nil (#$ . 35048)) (make-variable-buffer-local 'TeX-interactive-mode) #@41 Minor mode for interactive runs of TeX. (defalias 'TeX-interactive-mode #[(&optional arg) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\311\301\305\211#\210\312\313 \2036\314\2027\315\"\210\316 \203K\306\317 \203H\320\202I\321\"\210\322 \210 \207" [arg TeX-interactive-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil TeX-set-mode-name run-hooks TeX-interactive-mode-hook TeX-interactive-mode-on-hook TeX-interactive-mode-off-hook called-interactively-p "Tex-Interactive mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 35260) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306\301\"\207" [add-minor-mode TeX-interactive-mode nil boundp TeX-interactive-mode-map defalias tex-interactive-mode] 5) (custom-declare-variable 'TeX-Omega-mode 'nil nil :group 'TeX-command :set 'TeX-mode-set :type 'boolean) #@97 Non-nil if Tex-Omega mode is enabled. Use the command `TeX-Omega-mode' to change this variable. (defvar TeX-Omega-mode nil (#$ . 36221)) (make-variable-buffer-local 'TeX-Omega-mode) #@40 Minor mode for using the Omega engine. (defalias 'TeX-Omega-mode #[(&optional arg) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\211\203.\311\304!\210\312\301\305\211#\210\313\314 \203>\315\202?\316\"\210\317 \203S\306\320 \203P\321\202Q\322\"\210\323 \210 \207" [arg TeX-Omega-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil TeX-PDF-mode TeX-set-mode-name run-hooks TeX-Omega-mode-hook TeX-Omega-mode-on-hook TeX-Omega-mode-off-hook called-interactively-p "Tex-Omega mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 36409) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306\301\"\210\307\310\302\311\312\313%\207" [add-minor-mode TeX-Omega-mode nil boundp TeX-Omega-mode-map defalias tex-omega-mode custom-declare-group TeX-command-name "Names for external commands in AUCTeX." :group TeX-command] 6) #@54 *The name of the BibTeX entry in `TeX-command-list'. (custom-declare-variable 'TeX-command-BibTeX '"BibTeX" '(#$ . -37373) :group 'TeX-command-name :type 'string) (make-variable-buffer-local 'TeX-command-BibTeX) #@109 *The default command to show (view or print) a TeX file. Must be the car of an entry in `TeX-command-list'. (custom-declare-variable 'TeX-command-Show '"View" '(#$ . -37592) :group 'TeX-command-name :type 'string) (make-variable-buffer-local 'TeX-command-Show) #@53 The name of the Print entry in `TeX-command-Print'. (custom-declare-variable 'TeX-command-Print '"Print" '(#$ . 37859) :group 'TeX-command-name :type 'string) #@53 The name of the Queue entry in `TeX-command-Queue'. (custom-declare-variable 'TeX-command-Queue '"Queue" '(#$ . 38024) :group 'TeX-command-name :type 'string) #@63 Regular expression delimiting start of trailer in a TeX file. (defvar TeX-trailer-start nil (#$ . 38189)) (make-variable-buffer-local 'TeX-trailer-start) #@60 Regular expression delimiting end of header in a TeX file. (defvar TeX-header-end nil (#$ . 38349)) (make-variable-buffer-local 'TeX-header-end) #@66 The default command for `TeX-command' in the current major mode. (defvar TeX-command-default nil (#$ . 38500)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local TeX-command-default put safe-local-variable stringp] 4) #@108 List of regexps matching suffixes of files to be cleaned. Used as a default in TeX, LaTeX and docTeX mode. (defvar TeX-clean-default-intermediate-suffixes '("\\.aux" "\\.bbl" "\\.blg" "\\.brf" "\\.fot" "\\.glo" "\\.gls" "\\.idx" "\\.ilg" "\\.ind" "\\.lof" "\\.log" "\\.lot" "\\.out" "\\.toc" "\\.url") (#$ . 38750)) #@108 List of regexps matching suffixes of files to be cleaned. Used as a default in TeX, LaTeX and docTeX mode. (defvar TeX-clean-default-output-suffixes '("\\.dvi" "\\.pdf" "\\.ps") (#$ . 39073)) #@40 If non-nil, ask before deleting files. (custom-declare-variable 'TeX-clean-confirm 't '(#$ . 39271) :type 'boolean :group 'TeX-command) (autoload 'dired-mark-pop-up "dired") #@151 Delete generated files associated with current master and region files. If prefix ARG is non-nil, not only remove intermediate but also output files. (defalias 'TeX-clean #[(&optional arg) "\306\307\"A\310\311 \312P!J\n\205\311 \313P!J\"\314 \315\f!\316\317\f!\320\321\322\323\"\324\316\325\326 \320#\327\320\321\323\211\"\260\n\211#\205H\330 \206D\331\322##\211$\203\222%\203m\332\333\334$G\335V\203c$\202g\323$B\336\337%\205\225$\322&\211'\203\215'@&\340 &P!\210'A\211'\204x*\322\202\225\341\342!.\207" [major-mode mode-prefix arg suffixes master master-dir assoc ((plain-tex-mode . "plain-TeX") (latex-mode . "LaTeX") (doctex-mode . "docTeX") (texinfo-mode . "Texinfo") (context-mode . "ConTeXt")) append intern "-clean-intermediate-suffixes" "-clean-output-suffixes" TeX-active-master file-name-directory "\\(" file-name-nondirectory "\\|" TeX-region-file nil t "\\)" mapconcat identity "\\)\\'" directory-files "." dired-mark-pop-up " *Deletions*" delete 1 y-or-n-p "Delete files? " delete-file message "No files to be deleted" regexp files TeX-clean-confirm file #1=#:--cl-dolist-temp--] 13 (#$ . 39452) "P"]) #@421 *Regular expression matching ordinary TeX files. You should set this variable to match the name of all files, where automatically adding a file variable with the name of the master file is a good idea. When AUCTeX adds the name of the master file as a file variable, it does not need to ask next time you edit the file. If you dislike AUCTeX automatically modifying your files, you can set this variable to "". (custom-declare-variable 'TeX-one-master '"\\.\\(texi?\\|dtx\\)$" '(#$ . -40608) :group 'TeX-command :type 'regexp) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list TeX-transient-master default-boundp set-default nil] 3) #@29 Find a likely `TeX-master'. (defalias 'TeX-dwim-master #[nil "\302\303\215)\207" [default-directory dir --cl-block-nil-- (byte-code "\305 \306\211\203- @rq\210\n \232\205\f;)\203&\307\310rq\210\f)\"\210 A\211\204 *\306\207" [buf #1=#:--cl-dolist-temp-- dir default-directory TeX-master buffer-list nil throw --cl-block-nil--] 4)] 2 (#$ . 41287)]) #@64 Ask for master file, set `TeX-master' and add local variables. (defalias 'TeX-master-file-ask #[nil "\305 \203 \306\307!\207\310  \311=\203\206\312\313\314\217\211\315\230\203'\316\211\202[\n\230\2034\317 \202[\320\n!\321 \230\204I\n \230\204I\n\322\230\203P\316\317 \202[\323\324\n!\fC\325#\317 *\207" [default TeX-master name default-directory TeX-default-extension TeX-local-master-p error "Master file already set" TeX-dwim-master dwim nil (byte-code "\301\302\303\206\304\"\305#\207" [default read-file-name format "Master file: (default %s) " "this file" nil] 4) ((quit "")) "" t TeX-add-local-master expand-file-name buffer-file-name "" TeX-strip-extension file-relative-name path] 5 (#$ . 41653) nil]) #@541 Set and return the name of the master file for the current document. If optional argument EXTENSION is non-nil, add that file extension to the name. Special value t means use `TeX-default-extension'. If optional second argument NONDIRECTORY is non-nil, do not include the directory. If optional third argument ASK is non-nil, ask the user for the name of master file if it cannot be determined otherwise. Currently it will check for the presence of a ``Master:'' line in the beginning of the file, but that feature will be phased out. (defalias 'TeX-master-file #[(&optional extension nondirectory ask) "\306=\203 \307 \203\310\311 C\306#\202\312\212\214~\210eb\210 \2032\f\203-\f\313=\2032 \202\311\f\n\232\203=\306\202\311\f\313=\203\220 \203\220\314  \315\316\317 \206T\320\"\311 #\211! \230\203g \202\213\321!!\307 \230\204\200!\"\230\204\200!\322\230\203\204\306\202\213\310! C\323#*\202\311\f\306=\204\233\f;\203\240\f\210\202\311\324\325\326\306#\203\302\310\327\330! C\"#\203\311\331 \210\332\330!\210\333 \210\202\311 \203\311\334 \210*\f;\203\323\f\202\324\n!\335!!\203\356 \232\203\350\311\202\356\310!!!$\203\371\336!!!\203!\337Q\202!*\207" [extension TeX-default-extension my-name TeX-transient-master TeX-master ask t buffer-file-name TeX-strip-extension nil "" shared TeX-dwim-master read-file-name format "Master file: (default %s) " "this file" expand-file-name "" path re-search-forward "^%% *[Mm]aster:?[ ]*\\([^ \n]+\\)" 500 TeX-match-buffer 1 beginning-of-line kill-line TeX-add-local-master TeX-master-file-ask TeX-match-extension file-name-nondirectory "." default name default-directory TeX-convert-master nondirectory] 5 (#$ . 42408) nil]) #@27 Directory of master file. (defalias 'TeX-master-directory #[nil "\302\303\304\305\306\307 !\211\203\310!\202\311) \205\306 !\"!!!\207" [dir buffer-file-name file-name-as-directory abbreviate-file-name substitute-in-file-name expand-file-name file-name-directory TeX-master-file directory-file-name "."] 8 (#$ . 44163)]) #@745 *The master file associated with the current buffer. If the file being edited is actually included from another file, you can tell AUCTeX the name of the master file by setting this variable. If there are multiple levels of nesting, specify the top level file. If this variable is nil, AUCTeX will query you for the name. If the variable is t, AUCTeX will assume the file is a master file itself. If the variable is 'shared, AUCTeX will query for the name, but not change the file. If the variable is 'dwim, AUCTeX will try to avoid querying by attempting to `do what I mean'; and then change the file. It is suggested that you use the File Variables (see the info node in the Emacs manual) to set this variable permanently for each file. (custom-declare-variable 'TeX-master 't '(#$ . -44498) :group 'TeX-command :group 'TeX-parse :type '(choice (const :tag "Query" nil) (const :tag "This file" t) (const :tag "Shared" shared) (const :tag "Dwim" dwim) (string :format "%v"))) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local TeX-master put safe-local-variable (lambda (x) (or (stringp x) (member x '(t nil shared dwim))))] 4) #@137 *If not nil, automatically convert ``Master:'' lines to file variables. This will be done when AUCTeX first try to use the master file. (defvar TeX-convert-master t (#$ . -45664)) #@38 Add local variable for `TeX-master'. (defalias 'TeX-add-local-master #[nil "\306 \205\216\307\310\306 !\"\205\216 ?\205\216db\210\311\312d\313Z\314#\203;\315\316!\317\320\n\321P!!\210\322\316!\210\n\323\324 !\325\261)\207\f\326=\203E\327\202P\f\330=\203O\331\202P\332\333\305!\205[ \205[\334\335\f!\336\337OP&'\340 \210\f\330=\203w'(\341\261\210'\342\343'\344&\325'\323\324 !\325'\345\261 *\207" [TeX-one-master buffer-read-only prefix TeX-master major-mode japanese-TeX-mode buffer-file-name string-match file-name-nondirectory re-search-backward "^\\([^\n]+\\)Local Variables:" 3000 t TeX-match-buffer 1 re-search-forward regexp-quote "End:" beginning-of-line "TeX-master: " prin1-to-string "\n" texinfo-mode "@c " doctex-mode "% " "%%% " boundp "japanese-" symbol-name 0 -5 newline "endinput\n" "Local " "Variables: \n" "mode: " "End: \n" mode comment-prefix TeX-esc] 13 (#$ . 45850)]) #@96 Return non-nil if there is a `TeX-master' entry in local variables spec. Return nil otherwise. (defalias 'TeX-local-master-p #[nil "\212db\210\300\301d\302Ze]\303#\210\304\305\306\307#)\207" [search-backward "\n\f" 3000 move re-search-forward "^%+ *TeX-master:" nil t] 4 (#$ . 46769)]) #@118 *Directory containing hand generated TeX information. These correspond to TeX macros shared by all users of a site. (custom-declare-variable 'TeX-style-global '(expand-file-name "style" TeX-data-directory) '(#$ . -47062) :group 'TeX-file :type 'directory) #@157 *Directory containing automatically generated TeX information. This correspond to TeX macros found in the current directory, and must be relative to that. (custom-declare-variable 'TeX-auto-local '"auto" '(#$ . -47326) :group 'TeX-file :type 'string) #@149 *Directory containing hand generated TeX information. These correspond to TeX macros found in the current directory, and must be relative to that. (custom-declare-variable 'TeX-style-local '"style" '(#$ . -47585) :group 'TeX-file :type 'string) #@360 Return a list of strings. Given REGEXP the STRING is split into sections which in string was seperated by REGEXP. Examples: (TeX-split-string ":" "abc:def:ghi") -> ("abc" "def" "ghi") (TeX-split-string " +" "dvips -Plw -p3 -c4 testfile.dvi") -> ("dvips" "-Plw" "-p3" "-c4" "testfile.dvi") If REGEXP is nil, or "", an error will occur. (defalias 'TeX-split-string #[(regexp string) "\305\306\211\307 \f\n#\211\203\f\nO B\305\225\202\f\n\306O B\211\237+\207" [match result start regexp string 0 nil string-match] 5 (#$ . 47838)]) #@77 Return a list if private TeX directories found in environment variable ENV. (defalias 'TeX-parse-path #[(env) "\306!\211\205\307\310\311 \"\203\311\202\312 \"\313\211\n\203O\n@\nA\314\310\315 \"\2036 \316\211\224O\2027 !\317 !\203 \320\321 \"\235\204 \fB\202\f,\207" [env value entries entry answers TeX-macro-global getenv TeX-split-string string-match ";" ":" nil file-name-as-directory "/?/?\\'" 0 file-name-absolute-p append ("/" "\\")] 5 (#$ . 48408)]) #@69 Return directories containing the site's TeX macro and style files. (defalias 'TeX-macro-global #[nil "\300\301\302\303#\207" [TeX-macro-global-internal "latex" ("/tex/" "/bibtex/bst/") ("/usr/share/texmf/tex/" "/usr/share/texmf/bibtex/bst/")] 4 (#$ . 48896)]) #@162 Return directories containing the site's TeX macro and style files. LATEX: latex command SEARCH: search path under system texmf tree DEFAULT: fallback path list (defalias 'TeX-macro-global-internal #[(latex search default) "\306\307\211\211\211\307\310\311\217\210 \307\211\203\240@\312\313 \"\203'\314\202(\315\307\316\317\217\307\211\203\226@\312\320\"\203N\321\225GO\312\322\"\203^\321\211\224O\307\211\203\214@\323\324P!!\203\203\325\300P\"\210A\211\204i*A\211\2047+A\211\204*\206\247-\207" [input-dir-list exit-status path path-list tree-list elt ("$SYSTEXMF" "$TEXMFLOCAL" "$TEXMFMAIN" "$TEXMFDIST") nil (byte-code "\300\301\215\207" [success (byte-code "\306!\307 \nW\203\205\310\311\312!!\211\313\314\315 \315D\315\316\f\317 8&)r q\210\320 \321\315!\210*\322 !\203L\323\324\"\210\322 !\203~\325\326\315\"\210\202~\310\311\312!!\211\313\314\315 \315D\315\316\f\327 8&)r q\210\320 \321\315!\210*\322 !\203~\323\324\"\210 T\211\202*\315\207" [tree-list i #1=#:--cl-dotimes-temp-- standard-output latex exit-status safe-length 0 get-buffer-create generate-new-buffer-name " *string-output*" call-process "kpsewhich" nil "--progname" "--expand-braces" buffer-string kill-buffer zerop add-to-list path-list throw success "--expand-path" path] 11)] 2) ((error)) string-match "^[A-Za-z]:" "[\n ;]" "[\n :]" (split-string elt separators t) ((error (byte-code "\302\303\304 \"\"\207" [elt separators delete "" split-string] 5))) "^!+" 0 "/+$" file-exists-p file-name-as-directory add-to-list #2=#:--cl-dolist-temp-- separators item #3=#:--cl-dolist-temp-- search subdir #4=#:--cl-dolist-temp-- default] 7 (#$ . 49164)]) #@62 Directories containing the site's TeX macro and style files. (custom-declare-variable 'TeX-macro-global '(TeX-macro-global) '(#$ . 50899) :group 'TeX-file :type '(repeat (directory :format "%v"))) #@55 Directories where you store your personal TeX macros. (custom-declare-variable 'TeX-macro-private '(append (TeX-parse-path "TEXINPUTS") (TeX-parse-path "BIBINPUTS")) '(#$ . 51102) :group 'TeX-file :type '(repeat (file :format "%v"))) #@138 List of directories containing automatically generated information. Must end with a slash. These correspond to the personal TeX macros. (custom-declare-variable 'TeX-auto-private '(mapcar (lambda (entry) (expand-file-name TeX-auto-local entry)) TeX-macro-private) '(#$ . 51343) :group 'TeX-file :type '(repeat (file :format "%v"))) (byte-code ";\203C\301\207" [TeX-auto-private nil] 1) #@106 List of directories containing hand generated information. These correspond to the personal TeX macros. (custom-declare-variable 'TeX-style-private '(mapcar (lambda (entry) (expand-file-name TeX-style-local entry)) TeX-macro-private) '(#$ . 51742) :group 'TeX-file :type '(repeat (file :format "%v"))) (byte-code ";\203C\301\207" [TeX-style-private nil] 1) #@55 List of directories to search for AUCTeX style files. (custom-declare-variable 'TeX-style-path '(let ((path)) (mapcar (lambda (file) (if file (setq path (cons file path)))) (append (list TeX-auto-global TeX-style-global) TeX-auto-private TeX-style-private (list TeX-auto-local TeX-style-local))) path) '(#$ . 52111) :group 'TeX-file :type '(repeat (file :format "%v"))) #@128 Directory path to search for dependencies. If nil, just check the current file. Used when checking if any files have changed. (custom-declare-variable 'TeX-check-path '(append (list ".") TeX-macro-private TeX-macro-global) '(#$ . 52488) :group 'TeX-file :type '(repeat (file :format "%v"))) #@189 List of TeX style hooks currently loaded. Each entry is a list where the first element is the name of the style, and the remaining elements are hooks to be run when that style is active. (defvar TeX-style-hook-list nil (#$ . 52787)) #@63 *Not nil means try to byte compile auto files before loading. (custom-declare-variable 'TeX-byte-compile 'nil '(#$ . -53027) :group 'TeX-parse :type 'boolean) #@68 Search for and load each definition for STYLE in `TeX-style-path'. (defalias 'TeX-load-style #[(style) "\306 \"\206q\307\310\"\203I\311\224\311\225O\312\224\312\225O ;\203)\313\314 !!\202*\315\316\317 \n\"\317 \f\"\317\n\"\317\f\"F\"\320!,\207C B\321\211\203o@\322\317\"!\210A\211\204Y*\321\207" [style TeX-style-hook-list dir TeX-master master-dir TeX-auto-local assoc string-match "\\`\\(.+[/\\]\\)\\([^/\\]*\\)\\'" 1 2 file-name-directory file-relative-name "./" append expand-file-name TeX-load-style nil TeX-load-style-file TeX-style-local TeX-style-path name #1=#:--cl-dolist-temp--] 7 (#$ . 53192)]) #@43 Load FILE checking for a Lisp extensions. (defalias 'TeX-load-style-file #[(file) "\304P\305P\306\n \"\2039\307\n!\205N \2033\310 !\2033\212\311\n!)\2033\307 !\2033\312 !\202N\312\n!\202N\307 !\203E\312 !\202N\307\n!\205N\312\n!*\207" [file elc el TeX-byte-compile ".el" ".elc" file-newer-than-file-p file-readable-p file-writable-p byte-compile-file load-file] 3 (#$ . 53846)]) #@37 Give STYLE yet another HOOK to run. (defalias 'TeX-add-style-hook #[(style hook) "\304 \"\211\204 D B\211\202# \n\235\203\305\202#\n \nAB\241)\207" [style TeX-style-hook-list entry hook assoc nil] 4 (#$ . 54246)]) #@35 Forget that we once loaded STYLE. (defalias 'TeX-unload-style #[(style) "\303 \"?\206- @@\232\203 A\211\207 \211A@@\232\204'\nA\211\202\n\211AA\241)\207" [style TeX-style-hook-list entry assoc] 4 (#$ . 54476)]) #@26 Style all documents use. (custom-declare-variable 'TeX-virgin-style '(if (and TeX-auto-global (file-directory-p TeX-auto-global)) "virtex" "NoVirtexSymbols") '(#$ . 54705) :group 'TeX-parse :type 'string) #@50 List of styles currently active in the document. (defvar TeX-active-styles nil (#$ . 54916)) (make-variable-buffer-local 'TeX-active-styles) #@33 Run the TeX style hooks STYLES. (defalias 'TeX-run-style-hooks #[(&rest styles) "\301\302\"\207" [styles mapcar #[(style) "\304 \305#?\2050 B\306!\210\n\307\310\"\203'\311\312!!\313\224\313\225O\314\315\316 \"\243\")\207" [style TeX-active-styles default-directory TeX-style-hook-list TeX-member string-equal TeX-load-style string-match "\\`\\(.+[/\\]\\)\\([^/\\]*\\)\\'" expand-file-name file-name-directory 2 mapcar funcall assoc] 5]] 3 (#$ . 55063)]) #@63 Parse file after loading it if no style hook is found for it. (custom-declare-variable 'TeX-parse-self 'nil '(#$ . 55537) :group 'TeX-parse :type 'boolean) #@57 Nil, unless the style specific hooks have been applied. (defvar TeX-style-hook-applied-p nil (#$ . 55699)) (make-variable-buffer-local 'TeX-style-hook-applied-p) #@56 Hook run as soon as style specific hooks were applied. (defvar TeX-update-style-hook nil (#$ . 55867)) #@140 Run style specific hooks for the current document. Only do this if it has not been done before, or if optional argument FORCE is not nil. (defalias 'TeX-update-style #[(&optional force) "\306\300!\203\f\307=\206 ?\205\n?\205Y\310\311\312!\210\313\314\315\211\310#!\210 \316>\2039\317 \203>\320\f\321\317 !\"\203>\313\322 !\210 \203R\323\314\315\211\310#\"\243\204R\324 \210\325\326!\210\311\327!\207" [TeX-auto-update force TeX-style-hook-applied-p TeX-master TeX-one-master TeX-parse-self boundp BibTeX t message "Applying style hooks..." TeX-run-style-hooks TeX-strip-extension nil (nil t) buffer-file-name string-match file-name-nondirectory TeX-master-file assoc TeX-auto-apply run-hooks TeX-update-style-hook "Applying style hooks... done" TeX-style-hook-list] 5 (#$ . 55977)]) #@70 List of hooks to call when we remove the style specific information. (defvar TeX-remove-style-hook nil (#$ . 56782)) (make-variable-buffer-local 'TeX-remove-style-hook) #@40 Remove all style specific information. (defalias 'TeX-remove-style #[nil "\303\304\305!\210 C\211\207" [TeX-style-hook-applied-p TeX-virgin-style TeX-active-styles nil run-hooks TeX-remove-style-hook] 2 (#$ . 56957)]) #@70 Return a list of all styles (subfiles) used by the current document. (defalias 'TeX-style-list #[nil "\301 \210\207" [TeX-active-styles TeX-update-style] 1 (#$ . 57183)]) #@27 The TeX escape character. (defvar TeX-esc "\\" (#$ . 57361)) (make-variable-buffer-local 'TeX-esc) #@34 The TeX group opening character. (defvar TeX-grop "{" (#$ . 57466)) (make-variable-buffer-local 'TeX-grop) #@34 The TeX group closing character. (defvar TeX-grcl "}" (#$ . 57579)) (make-variable-buffer-local 'TeX-grcl) #@40 Enable TeX tool bar in plain TeX mode. (custom-declare-variable 'plain-TeX-enable-toolbar 't '(#$ . 57692) :group 'TeX-tool-bar :type 'boolean) #@119 Conditionally install tool bar buttons for plain TeX mode. Install tool bar if `plain-TeX-enable-toolbar' is non-nil. (defalias 'plain-TeX-maybe-install-toolbar #[nil "\205\301 \207" [plain-TeX-enable-toolbar TeX-install-toolbar] 1 (#$ . 57843)]) (custom-declare-group 'TeX-macro nil "Support for TeX macros in AUCTeX." :prefix "TeX-" :group 'AUCTeX) #@60 *Function to call for completing non-macros in `tex-mode'. (custom-declare-variable 'TeX-complete-word ''ispell-complete-word '(#$ . -58203) :group 'TeX-macro) #@414 List of ways to complete the preceding text. Each entry is a list with the following elements: 0. Regexp matching the preceding text. 1. A number indicating the subgroup in the regexp containing the text. 2. A function returning an alist of possible completions. 3. Text to append after a succesful completion. Or alternatively: 0. Regexp matching the preceding text. 1. Function to do the actual completion. (defvar TeX-complete-list nil (#$ . 58370)) #@57 Perform completion on TeX/LaTeX symbol preceding point. (defalias 'TeX-complete-symbol #[nil "\306\n\203\n@\nA\307 @\310\"\203\306\211\204 A@\247\203\266 A@\311 8 \224 \225\312\313! {\314 8 \315\n\"\211\316=\203a\f\205\261\317\320\f!!?\205\261\fc\202\261\204n\321\322\"\202\261\230\204\233 |\210c\210\f\205\261\315\n\"\316=\205\261\317\320\f!!?\205\261\fc\202\261\323\324!\210\325\n\306#\326\220\327\n!\221\210)\323\330!.\202\272 A@ *\207" [TeX-complete-list entry list sub close begin nil TeX-looking-at-backward 250 3 TeX-match-buffer 0 2 try-completion t looking-at regexp-quote error "Can't find completion for \"%s\"" message "Making completion list..." all-completions "*Completions*" display-completion-list "Making completion list...done" end pattern symbol completion] 5 (#$ . 58833) "*"]) #@68 *The default macro when creating new ones with `TeX-insert-macro'. (custom-declare-variable 'TeX-default-macro '"ref" '(#$ . -59697) :group 'TeX-macro :type 'string) (make-variable-buffer-local 'TeX-default-macro) #@69 *If non-nil, append a empty pair of braces after inserting a macro. (custom-declare-variable 'TeX-insert-braces 't '(#$ . -59917) :group 'TeX-macro :type 'boolean) #@463 Specifies whether `TeX-insert-macro' will ask for all optional arguments. If set to the symbol `show-optional-args', `TeX-insert-macro' asks for optional arguments of TeX marcos. If set to `mandatory-args-only', `TeX-insert-macro' asks only for mandatory argument. When `TeX-insert-macro' is called with \[universal-argument], it's the other way round. Note that for some macros, there are special mechanisms, see e.g. `LaTeX-includegraphics-options-alist'. (custom-declare-variable 'TeX-insert-macro-default-style ''show-optional-args '(#$ . 60088) :group 'TeX-macro :type '(choice (const mandatory-args-only) (const show-optional-args))) #@126 String used as an opening brace for argument insertion. The variable will be temporarily let-bound with the necessary value. (defvar TeX-arg-opening-brace nil (#$ . 60739)) #@125 String used as a closing brace for argument insertion. The variable will be temporarily let-bound with the necessary value. (defvar TeX-arg-closing-brace nil (#$ . 60919)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list TeX-macro-history default-boundp set-default nil] 3) #@234 Insert TeX macro SYMBOL with completion. AUCTeX knows of some macros and may query for extra arguments, depending on the value of `TeX-insert-macro-default-style' and whether `TeX-insert-macro' is called with \[universal-argument]. (defalias 'TeX-insert-macro #[(symbol) "\302\230\203 \202t\203\303\304\305 \"\243\"\207" [symbol TeX-default-macro "" TeX-parse-macro assoc TeX-symbol-list] 5 (#$ . 61232) (list (completing-read (concat "Macro (default " TeX-default-macro "): " TeX-esc) (TeX-symbol-list) nil nil nil 'TeX-macro-history))]) (byte-code "\303B\304\303!\204\305\303\306 \307 \n\"\210\310 \311\312#\210 )\"\210\303\207" [current-load-list map minibuffer-local-completion-map TeX-electric-macro-map default-boundp set-default make-sparse-keymap set-keymap-parent define-key " " minibuffer-complete-and-exit] 6) #@130 Insert TeX macro with completion. AUCTeX knows of some macros, and may query for extra arguments. Space will complete and exit. (defalias 'TeX-electric-macro #[nil "h\303=\203\n\304\305!\207h\306=\203\307\304\310!*\207\304\310!)\207" [TeX-electric-macro-map minibuffer-local-completion-map TeX-default-macro 92 call-interactively self-insert-command 46 " " TeX-insert-macro] 2 (#$ . 62078) nil]) #@1518 How to parse TeX macros which takes one or more arguments. First argument SYMBOL is the name of the macro. If called with no additional arguments, insert macro with point inside braces. Otherwise, each argument of this function should match an argument to the TeX macro. What is done depend on the type of ARGS: string: Use the string as a prompt to prompt for the argument. number: Insert that many braces, leave point inside the first. nil: Insert empty braces. t: Insert empty braces, leave point between the braces. other symbols: Call the symbol as a function. You can define your own hook, or use one of the predefined argument hooks. If you add new hooks, you can assume that point is placed directly after the previous argument, or after the macro name if this is the first argument. Please leave point located after the argument you are inserting. If you want point to be located somewhere else after all hooks have been processed, set the value of `exit-mark'. It will point nowhere, until the argument hook set it. By convention, these hooks all start with `TeX-arg-'. list: If the car is a string, insert it as a prompt and the next element as initial input. Otherwise, call the car of the list with the remaining elements as arguments. vector: Optional argument. If it has more than one element, parse it as a list, otherwise parse the only element as above. Use square brackets instead of curly braces, and is not inserted on empty user input. (defalias 'TeX-parse-macro #[(symbol args) "\306 \203`\307 V\203\310 \210 \261\210\311 `\312\f!\210\313 !\203/\313 !b\210 \314\211\223\202t \205t\315\f!\316U\205E\f@\247\205E\f@\317U?\205t\n`\232\205t\320\321 \"\205t\322 ?\205tc\210\306 \203n\310 \210c\202tc\210\323u*\207" [TeX-esc symbol position exit-mark args TeX-insert-braces TeX-active-mark mark exchange-point-and-mark make-marker TeX-parse-arguments marker-position nil safe-length 1 0 string-match "[a-zA-Z]+" texmathp -1 TeX-grop TeX-grcl] 3 (#$ . 62491)]) #@153 Prompt for a string. If OPTIONAL is not nil then the PROMPT will start with ``(Optional) ''. INITIAL-INPUT is a string to insert before reading input. (defalias 'TeX-arg-string #[(optional &optional prompt initial-input) "\304\204\305 \203`\306 {`\306 |\210 )\202!\307\310\n\311# \"\"\207" [optional TeX-argument prompt initial-input TeX-argument-insert TeX-active-mark mark read-string TeX-argument-prompt "Text"] 6 (#$ . 64558)]) #@69 Parse TeX macro arguments ARGS. See `TeX-parse-macro' for details. (defalias 'TeX-parse-arguments #[(args) "\306\211\n\307=\203 \310\232\204\n\311=\203) \312\232\204)\313\f@!\203)\fA\202\f\205t\313\f@!\203[ \204l \314\315\f@G\316\232\203P\f@\317H\202U\320\f@\306\"\"\210*\202l\306\314\306\f@\"\210*\fA\211\204-\306*\207" [skip-opt last-optional-rejected TeX-insert-macro-default-style current-prefix-arg args LaTeX-optop nil show-optional-args (4) mandatory-args-only (4) vectorp TeX-parse-argument t 1 0 append LaTeX-optcl TeX-arg-closing-brace TeX-arg-opening-brace TeX-grop TeX-grcl] 6 (#$ . 65006)]) #@209 Depending on OPTIONAL, insert TeX macro argument ARG. If OPTIONAL is set, only insert if there is anything to insert, and then use square brackets instead of curly braces. See `TeX-parse-macro' for details. (defalias 'TeX-parse-argument #[(optional arg) "\306 ;\203\307\n \"\210\310\202\276 \247\2033 \311W\204\276\312\n\310\"\210 \311V\203\276\312\n\306\"\210 S\211\202\" \204N c\210\n\204F\313 \203F\314 \210\fc\210\310\202\276 \310=\203s c\210\n\204f\313 \203f\314 \210\202k `\306\223\210\fc\210\310\202\276 9\203 \n!\210\202\276 <\203\267 @ A\211;\203\232\315\307\n #\210\202\2639\203\253\315\n#\210\202\263\316\317\320!\"\210*\202\276\316\321\320 !\"\210\205\345\n?\205\345\313 \205\345\322=\203\332\306\211\202\345\205\345\306\323\324!)\207" [insert-flag arg optional TeX-arg-opening-brace TeX-arg-closing-brace exit-mark nil TeX-arg-string t 1 TeX-parse-argument TeX-active-mark exchange-point-and-mark apply error "Unknown list argument type %s" prin1-to-string "Unknown argument type %s" lambda run-hooks deactivate-mark-hook tail head transient-mark-mode mark-active] 5 (#$ . 65653)]) #@157 Insert NAME surrounded by curly braces. If OPTIONAL, only insert it if not empty, and then use square brackets. If PREFIX is given, insert it before NAME. (defalias 'TeX-argument-insert #[(name optional &optional prefix) "\203 \306\230\203\307\211\207 c\210\f\203\fc\210 \306\230\203,\310 !\204, `\311\223\210\202/ c\210\nc\207" [optional name last-optional-rejected TeX-arg-opening-brace prefix exit-mark "" t marker-position nil TeX-arg-closing-brace] 3 (#$ . 66813)]) #@228 Return a argument prompt. If OPTIONAL is not nil then the prompt will start with ``(Optional) ''. PROMPT will be used if not nil, otherwise use DEFAULT. Unless optional argument COMPLETE is non-nil, ``: '' will be appended. (defalias 'TeX-argument-prompt #[(optional prompt default &optional complete) "\203\304\202 \305 \203 \202\n \203\305\202\306Q\207" [optional prompt default complete "(Optional) " "" ": "] 3 (#$ . 67304)]) #@77 Divide number and unit in STRING. Return the number as car and unit as cdr. (defalias 'TeX-string-divide-number-unit #[(string) "\301\302\"\203#\303\301\304\"O\301\304\"\203\301\304\"\202G\305OD\207\306D\207" [string string-match "[0-9]*\\.?[0-9]+" 0 "[^.0-9]" nil ""] 5 (#$ . 67755)]) #@48 Default unit when prompting for an image size. (custom-declare-variable 'TeX-default-unit-for-image '"cm" '(#$ . 68060) :group 'TeX-macro :type '(choice (const "cm") (const "in") (const "\\linewidth") (string :tag "Other"))) #@50 Evaluates FORM, if SYMBOL is an element of LIST. (defalias 'TeX-arg-maybe #[(symbol list form) " >\205 \303\n!\207" [symbol list form eval] 2 (#$ . 68291)]) #@63 Parse its arguments but use no braces when they are inserted. (defalias 'TeX-arg-free #[(optional &rest args) "\304\211\nG\305\232\203\306 \n@\"\202\306 \n\"*\207" [TeX-arg-closing-brace TeX-arg-opening-brace args optional "" 1 TeX-parse-argument] 3 (#$ . 68456)]) #@90 Insert its arguments ARGS into the buffer. Used for specifying extra syntax for a macro. (defalias 'TeX-arg-literal #[(optional &rest args) "\301\302\"\207" [args apply insert] 3 (#$ . 68733)]) #@126 Function to call to install font lock support. Choose `ignore' if you don't want AUCTeX to install support for font locking. (custom-declare-variable 'TeX-install-font-lock ''font-latex-setup '(#$ . 68935) :group 'TeX-misc :type '(radio (function-item font-latex-setup) (function-item tex-font-setup) (function-item ignore) (function :tag "Other"))) #@403 *List of format packages to consider when choosing a TeX mode. A list with an entry for each format package available at the site. Each entry is a list with three elements. 1. The name of the format package. 2. The name of the major mode. 3. A regexp typically matched in the beginning of the file. When entering `tex-mode', each regexp is tried in turn in order to find the major mode to be used. (defvar TeX-format-list '(("JLATEX" japanese-latex-mode "\\\\\\(documentstyle\\|documentclass\\)[^%\n]*{\\(j[s-]?\\|t\\)\\(article\\|report\\|book\\|slides\\)") ("JTEX" japanese-plain-tex-mode "-- string likely in Japanese TeX --") ("AMSTEX" ams-tex-mode "\\\\document\\b") ("CONTEXT" context-mode "\\\\\\(start\\(text\\|tekst\\|proje[ck]t\\|proiect\\|produ[ck]t\\|produs\\|environment\\|omgeving\\|umgebung\\|prostredi\\|mediu\\|component\\|onderdeel\\|komponent[ea]\\|componenta\\)\\|inizia\\(testo\\|progetto\\|prodotto\\|ambiente\\|componente\\)\\)\\|%.*?interface=") ("LATEX" latex-mode "\\\\\\(begin\\|section\\|chapter\\|documentstyle\\|documentclass\\)\\b") ("TEX" plain-tex-mode ".")) (#$ . -69292)) #@70 *Mode to enter for a new file when it can't be determined otherwise. (custom-declare-variable 'TeX-default-mode ''latex-mode '(#$ . -70409) :group 'TeX-misc :type '(radio (function-item latex-mode) (function-item plain-tex-mode) (function :tag "Other"))) #@69 *If set to nil, try to infer the mode of the file from its content. (custom-declare-variable 'TeX-force-default-mode 'nil '(#$ . -70670) :group 'TeX-misc :type 'boolean) #@401 Major mode in AUCTeX for editing TeX or LaTeX files. Tries to guess whether this file is for plain TeX or LaTeX. The algorithm is as follows: 1) if the file is empty or `TeX-force-default-mode' is not set to nil, `TeX-default-mode' is chosen 2) If \documentstyle or \begin{, \section{, \part{ or \chapter{ is found, `latex-mode' is selected. 3) Otherwise, use `plain-tex-mode' (defalias 'TeX-tex-mode #[nil "\306 \307\232\204 \203 \202S\212eb\210\310\311\n!\311\n!\312R \313 \203I\f\204I\314\315 @8\316\317#\203B\320 \204\" @A@\202\" A\211\204&\f\203Q\f\202R , \207" [TeX-force-default-mode TeX-default-mode TeX-esc TeX-format-list answer entry buffer-size 0 "\\(\\(^\\|[^\\\n]\\)\\(" regexp-quote "\\)*\\)\\(%+ *\\)" nil re-search-forward 2 10000 t TeX-in-comment comment-start-skip] 5 (#$ . 70847) nil]) #@31 Perform basic initialization. (defalias 'VirTeX-common-initialization #[nil "\306 \210\307 \203 \310\202\311 \312\313\314!\210\315\f\313\316!\210\307\313\317!\210\313\320!\210\313\321!\210\322\313\323!\210\324\325/!\325/!\326R\313\327!\210\330\313\331!\210\307\313\332!\210\333\313\334!\210\335\313\336!\210\312\313\337!\210\340\337!\204q\341\313\342!\210\312\"\313\343!\210\344\333\3450\205\205\346F\3471DD#2 \210\340\350!\203\237\351\350\352\"\210\202\244\351\353\352\"\210\313\354!\210\307,\351\355\356\312\307$\207" [TeX-mode-p TeX-PDF-mode TeX-output-extension text-mode-abbrev-table local-abbrev-table indent-tabs-mode kill-all-local-variables t "pdf" "dvi" nil make-local-variable ispell-parser tex ispell-tex-p paragraph-start paragraph-separate comment-start "%" comment-start-skip "\\(\\(^\\|[^\\\n]\\)\\(" regexp-quote "\\)*\\)\\(%+[ ]*\\)" comment-end-skip "[ ]*\\(\\s>\\|\n\\)" comment-use-syntax comment-padding 1 comment-indent-function TeX-comment-indent comment-multi-line compile-command boundp "make" words-include-escapes TeX-complete-list "\\\\\\([a-zA-Z]*\\)" TeX-symbol-list "{}" "" local-write-file-hooks add-hook TeX-safe-auto-write write-file-hooks TeX-auto-update find-file-hooks #[nil "\301\302 !\203 \303=\203\304\305\211\306#\210\307\306!\207" [TeX-master file-exists-p buffer-file-name shared TeX-master-file nil t TeX-update-style] 4] TeX-esc TeX-insert-braces TeX-complete-word TeX-install-font-lock] 5 (#$ . 71701)]) #@275 Major mode in AUCTeX for editing plain TeX files. See info under AUCTeX for documentation. Special commands: \{plain-TeX-mode-map} Entering `plain-tex-mode' calls the value of `text-mode-hook', then the value of `TeX-mode-hook', and then the value of plain-TeX-mode-hook. (defalias 'TeX-plain-tex-mode #[nil "\306 \210\307\310 !\210\311\n \"\210\311 \"\210\312\211\313\314\315\316\317\320$\210\321\322!\203/\203/\316 \210\323\324\325\326#\210\327 \207" [major-mode plain-TeX-mode-map plain-TeX-mode-menu plain-TeX-mode-command-menu TeX-base-mode-name TeX-command-default plain-TeX-common-initialization plain-tex-mode use-local-map easy-menu-add "TeX" TeX-TeX-sentinel add-hook tool-bar-mode-on-hook plain-TeX-maybe-install-toolbar nil t boundp tool-bar-mode TeX-run-mode-hooks text-mode-hook TeX-mode-hook plain-TeX-mode-hook TeX-set-mode-name TeX-sentinel-default-function] 6 (#$ . 73203) nil]) #@49 Common initialization for plain TeX like modes. (defalias 'plain-TeX-common-initialization #[nil "\306 \210\307!\210\310\311\312 !\313\314\312 !\315\316\317\320\321\322\323\311\324\323\260\315\312 !\313\325\314\312 !\315\326\317\320\327\312 !\323\211\260\330\312 \331P!\332\333!\207" [TeX-mode-syntax-table TeX-esc paragraph-start paragraph-separate TeX-header-end TeX-trailer-start VirTeX-common-initialization set-syntax-table "\\(^[ ]*$" "\\|" regexp-quote "par\\|" "^[ ]*" "\\(" "begin\\|end\\|part\\|chapter\\|" "section\\|subsection\\|subsubsection\\|" "paragraph\\|include\\|includeonly\\|" "tableofcontents\\|appendix\\|label\\|caption\\|" "\\[\\|\\]" "\\)" "^[ ]*\\$\\$" "^[ ]*$\\|" "begin\\|end\\|label\\|caption\\|part\\|chapter\\|" "tableofcontents\\|appendix\\|" "%\\*\\*end of header" "bye" TeX-run-style-hooks "TEX"] 16 (#$ . 74118)]) (byte-code "\304\300!\203!\305\236\243\306\236\243\211\203 \203 \307\310 BC\"*\311\312\313\314\315\316%\210\317 B\320\317!\2048\321\317\322\"\210\323 B\324\325!\210\326 B\327\330!\210\331 B\332\333!\210\334 B\335\336!\207" [hilit-patterns-alist plain-tex-patterns latex-patterns current-load-list boundp latex-mode plain-tex-mode append ams-tex-mode custom-declare-group TeX-parse nil "Parsing TeX files from AUCTeX." :group AUCTeX TeX-auto-parser default-boundp set-default ((styles TeX-auto-file TeX-run-style-hooks)) TeX-auto-parser-temporary (lambda (#1=#:defconst-tmp-var) (defconst TeX-auto-parser-temporary #1#)) 1 TeX-auto-parser-add (lambda (#2=#:defconst-tmp-var) (defconst TeX-auto-parser-add #2#)) 2 TeX-auto-parser-local (lambda (#3=#:defconst-tmp-var) (defconst TeX-auto-parser-local #3#)) 3 TeX-auto-parser-change (lambda (#4=#:defconst-tmp-var) (defconst TeX-auto-parser-change #4#)) 4] 7) #@257 Add information about NAME to the parser using PREFIX. Optional third argument PLURAL is the plural form of TYPE. By default just add an `s'. This function create a set of variables and functions to maintain a separate type of information in the parser. (defalias 'TeX-auto-add-type #[(name prefix &optional plural) "\206 \306P\307 \310 Q!\307 \311\nQ!\307 \312 \313R!\307 \312 \314R! \f \257B\315L\210\316!\210\315L\210\316!\210 \317\320\321 \226\322Q\323 \324BBFM\210\317\315\325\n\326Q\327 DFM\210\330\331\317\315\332\333!\334BBE\"-\207" [plural name names prefix tmp add "s" intern "-auto-" "-add-" "-" "-list" "-changed" nil make-variable-buffer-local lambda (&rest entries) "Add information about " " to the current buffer.\nGenerated by `TeX-auto-add-type'." TeX-auto-add-information (entries) "List of " " active in the current buffer.\nGenerated by `TeX-auto-add-type'." TeX-auto-list-information add-hook TeX-remove-style-hook setq symbol-name (nil) local change TeX-auto-parser] 7 (#$ . 75908)]) #@44 For NAME in `TeX-auto-parser' add ENTRIES. (defalias 'TeX-auto-add-information #[(name entries) "\306 \" \n8\211J\n8\211 J\n \203%  \nBL\2021\f\307L\210  \nDL-\207" [name TeX-auto-parser entry TeX-auto-parser-change change change-value assoc t TeX-auto-parser-local local local-value entries] 4 (#$ . 76954)]) #@53 Return information in `TeX-auto-parser' about NAME. (defalias 'TeX-auto-list-information #[(name) "\306 \210\307 \" \n8\211J\n8 \203{\f\310L\210\311\312\"\210\313\314\315\316\317J\"\"\320\"L\210\311\321!\210J\n\203v\nA\203v\n@\nA@\211@@\230\204[\nA\202rGGV\203lA\241\210\n\211AA\241\210*\202:)\311\322!\210J,\207" [name TeX-auto-parser entry TeX-auto-parser-change change change-value TeX-update-style assoc nil message "Sorting %s..." sort mapcar TeX-listify apply append TeX-car-string-lessp "Removing duplicates..." "Removing duplicates... done" TeX-auto-parser-local local next this] 8 (#$ . 77286)]) (TeX-auto-add-type "symbol" "TeX") #@66 Hook run when a buffer is parsed and the information is applied. (defvar TeX-auto-apply-hook nil (#$ . 77972)) #@56 Parse and apply TeX information in the current buffer. (defalias 'TeX-auto-apply #[nil "\301 \210\302\303!\210\304\305\"\207" [TeX-auto-parser TeX-auto-parse run-hooks TeX-auto-apply-hook mapcar TeX-auto-apply-entry] 3 (#$ . 78089)]) #@54 Apply the information in ENTRY in `TeX-auto-parser'. (defalias 'TeX-auto-apply-entry #[(entry) " 8J\n 8\211\205\305 \f\"*\207" [TeX-auto-parser-temporary entry TeX-auto-parser-add add value apply] 4 (#$ . 78330)]) #@31 Call `TeX-auto-write' safely. (defalias 'TeX-safe-auto-write #[nil "\300\301\302\217\210\303\207" [name (byte-code "\301\300!\203 \203 \302 \210\301\207" [TeX-auto-update boundp TeX-auto-write] 2) ((error)) nil] 3 (#$ . 78555)]) #@63 *Automatically save style information when saving the buffer. (custom-declare-variable 'TeX-auto-save 'nil '(#$ . -78793) :group 'TeX-parse :type 'boolean) #@49 *Automatically untabify when saving the buffer. (custom-declare-variable 'TeX-auto-untabify 'nil '(#$ . -78955) :group 'TeX-parse :type 'boolean) #@60 Save all relevant TeX information from the current buffer. (defalias 'TeX-auto-write #[nil "\203 \306ed\"\210 \205D\n\205D\307\310\n!\311\312 \313#\314Q\315 \"\316\f!\317 !\204/\320\321\322\217\210\323\f!\203@\212\324 \210\325\f!)\202C\326\327!*\207" [TeX-auto-untabify TeX-auto-save TeX-auto-local TeX-all-extensions file dir untabify expand-file-name file-name-as-directory TeX-strip-extension nil t ".el" TeX-master-directory file-name-directory file-exists-p name (make-directory dir) ((error)) file-writable-p TeX-update-style TeX-auto-store message "Can't write style information."] 6 (#$ . 79107)]) #@46 *Default directory to search for TeX macros. (custom-declare-variable 'TeX-macro-default '(car-safe TeX-macro-private) '(#$ . -79728) :group 'TeX-file :type 'directory) #@70 *Default directory to place automatically generated TeX information. (custom-declare-variable 'TeX-auto-default '(car-safe TeX-auto-private) '(#$ . -79903) :group 'TeX-file :type 'directory) #@127 Generate style file for TEX and store it in AUTO. If TEX is a directory, generate style files for all files in the directory. (defalias 'TeX-auto-generate #[(tex auto) "\306!?\206\200\307 \"\206\200\310!\203<\311\312!!\313\312!!\n9\203'\n\2023\314\n!\2031\315\2023\nS\316\317\f\"+\207\320\313 !\321\322#\323Q\"?\206\200\324\325\"\"\205\200\212\315\326!)q\210\327\330\"\210\331\313 !\321\322#\323Q!\210\332p!\210\327\333\")\207" [tex TeX-ignore-file TeX-file-recurse default-directory files auto file-readable-p string-match file-directory-p directory-files expand-file-name file-name-as-directory zerop nil mapcar #[(file) "\204 \303 !?\205\304 \n\"\207" [TeX-file-recurse file auto file-directory-p TeX-auto-generate] 3] file-newer-than-file-p TeX-strip-extension t ".el" TeX-match-extension append find-file-noselect message "Parsing %s..." TeX-auto-store kill-buffer "Parsing %s... done" TeX-all-extensions TeX-file-extensions BibTeX-file-extensions enable-local-eval] 7 (#$ . 80101) (list (setq TeX-macro-default (expand-file-name (read-file-name "TeX file or directory: " TeX-macro-default TeX-macro-default 'confirm))) (setq TeX-auto-default (expand-file-name (read-file-name "AUTO lisp directory: " TeX-auto-default TeX-auto-default 'confirm))))]) #@64 Create global auto directory for global TeX macro definitions. (defalias 'TeX-auto-generate-global #[nil "\304!\204\n\305!\210\306\307\310\311 \"\210*\312\313\"\207" [TeX-auto-global BibTeX-file-extensions TeX-file-extensions TeX-macro-global file-directory-p make-directory ("cls" "sty") nil mapcar #[(macro) "\302 \"\207" [macro TeX-auto-global TeX-auto-generate] 3] byte-recompile-directory 0] 3 (#$ . 81400) nil]) #@74 Extract information for AUCTeX from current buffer and store it in FILE. (defalias 'TeX-auto-store #[(file) "\304 \210\305\306\307\"\235\203;\310\305 \311#\312\n!\210\212\313 !q\210\314 \210\315\n\316\317\261\210\306\320\"\210\321c\210\322ed \305\323%\210\324p!*\207\325 \326P!\203I\327 \326P!\210\325 !\205R\327 !\207" [TeX-auto-parser TeX-all-extensions style file TeX-auto-parse nil mapcar TeX-auto-entry-clear-p TeX-strip-extension t TeX-unload-style generate-new-buffer erase-buffer "(TeX-add-style-hook \"" "\"\n" " (lambda ()" #[(el) "\302 \"\207" [el style TeX-auto-insert] 3] "))\n\n" write-region silent kill-buffer file-exists-p "c" delete-file] 6 (#$ . 81831)]) #@68 Check if the temporary for `TeX-auto-parser' entry ENTRY is clear. (defalias 'TeX-auto-entry-clear-p #[(entry) " 8J?\207" [TeX-auto-parser-temporary entry] 2 (#$ . 82519)]) #@106 Insert code to initialize ENTRY from `TeX-auto-parser'. If SKIP is not-nil, don't insert code for SKIP. (defalias 'TeX-auto-insert #[(entry &optional skip) "\306 8!\n 8J \205S\307\f\261\210 \310\211 \203P @\211;\2038 \230\2048\311c\210\312 !c\210\202G ;\204G\311c\210\313\312 !\261\210 A\211 \204*\314c*\207" [TeX-auto-parser-add entry TeX-auto-parser-temporary list name el symbol-name "\n (" nil "\n " prin1-to-string "'" ")" #1=#:--cl-dolist-temp-- skip] 4 (#$ . 82700)]) #@59 List of symbols to ignore when scanning a TeX style file. (defvar TeX-auto-ignore '("csname" "filedate" "fileversion" "docdate" "next" "labelitemi" "labelitemii" "labelitemiii" "labelitemiv" "labelitemv" "labelenumi" "labelenumii" "labelenumiii" "labelenumiv" "labelenumv" "theenumi" "theenumii" "theenumiii" "theenumiv" "theenumv" "document" "par" "do" "expandafter") (#$ . 83210)) #@63 Add REGEXP to `TeX-auto-regexp-list' if not already a member. (defalias 'TeX-auto-add-regexp #[(regexp) "9\203J >\206 B\211\207" [TeX-auto-regexp-list regexp] 2 (#$ . 83599)]) #@58 List of regular expressions guaranteed to match nothing. (defvar TeX-auto-empty-regexp-list '(("\\(\\'\\`\\)" 1 ignore)) (#$ . 83791)) #@228 Regexp matching a character in a TeX macro. Please use a shy group if you use a grouping construct, because the functions/variables which use `TeX-token-char' expect not to alter the numbering of any ordinary, non-shy groups. (defvar TeX-token-char (byte-code "\300\301!\203\302\207\303\207" [featurep mule "\\(?:[a-zA-Z]\\|\\cj\\)" "[a-zA-Z]"] 2) (#$ . 83945)) #@69 List of regular expression matching common LaTeX macro definitions. (defvar plain-TeX-auto-regexp-list (byte-code "\302 \303Q\304B\305 \303Q\306B\307 \303Q\310B\311 \303Q\312B\313 \303Q\314B\315 \316Q\317B\320 \321Q\322B\323\324 \303Q\325B\257 )\207" [TeX-token-char token "\\\\def\\\\\\(" "+\\)[^a-zA-Z@]" (1 TeX-auto-symbol-check) "\\\\let\\\\\\(" (1 TeX-auto-symbol-check) "\\\\font\\\\\\(" (1 TeX-auto-symbol) "\\\\chardef\\\\\\(" (1 TeX-auto-symbol) "\\\\new\\(?:count\\|dimen\\|muskip\\|skip\\)\\\\\\(" (1 TeX-auto-symbol) "\\\\newfont{?\\\\\\(" "+\\)}?" (1 TeX-auto-symbol) "\\\\typein\\[\\\\\\(" "+\\)\\]" (1 TeX-auto-symbol) ("\\\\input +\\(\\.*[^#%\\\\\\.\n ]+\\)\\(\\.[^#%\\\\\\.\n ]+\\)?" 1 TeX-auto-file) "\\\\mathchardef\\\\\\(" (1 TeX-auto-symbol)] 11) (#$ . 84316)) #@65 Full list of regular expression matching TeX macro definitions. (defvar TeX-auto-full-regexp-list plain-TeX-auto-regexp-list (#$ . 85106)) #@55 List of hooks to be called before parsing a TeX file. (defvar TeX-auto-prepare-hook nil (#$ . 85251)) #@54 List of hooks to be called after parsing a TeX file. (defvar TeX-auto-cleanup-hook nil (#$ . 85359)) #@65 Maximal length of TeX file (in characters) that will be parsed. (custom-declare-variable 'TeX-auto-parse-length '999999 '(#$ . 85466) :group 'TeX-parse :type 'integer) (make-variable-buffer-local 'TeX-auto-parse-length) #@162 Maximum length of TeX file that will be parsed additionally. Use `TeX-auto-x-regexp-list' for parsing the region between `TeX-auto-parse-length' and this value. (custom-declare-variable 'TeX-auto-x-parse-length '0 '(#$ . 85693) :group 'TeX-parse :type 'integer) (make-variable-buffer-local 'TeX-auto-x-parse-length) #@89 List of regular expressions used for additional parsing. See `TeX-auto-x-parse-length'. (custom-declare-variable 'TeX-auto-x-regexp-list ''LaTeX-auto-label-regexp-list '(#$ . 86015) :type '(radio (variable-item TeX-auto-empty-regexp-list) (variable-item TeX-auto-full-regexp-list) (variable-item plain-TeX-auto-regexp-list) (variable-item LaTeX-auto-minimal-regexp-list) (variable-item LaTeX-auto-label-regexp-list) (variable-item LaTeX-auto-regexp-list) (symbol :tag "Other") (repeat :tag "Specify" (group (regexp :tag "Match") (sexp :tag "Groups") symbol))) :group 'TeX-parse) (make-variable-buffer-local 'TeX-auto-x-regexp-list) #@126 Return number of groups in a regexp. This is not foolproof: you should not use something like `[\(]' for a character range. (defalias 'TeX-regexp-group-count #[(regexp) "\303\304\305\306\n #\203\304\225\307ZT\202*\207" [n start regexp nil 0 string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\\\([^?]" 2] 4 (#$ . 86654)]) #@69 Parse TeX information according to REGEXP-LIST between BEG and END. (defalias 'TeX-auto-parse-region #[(regexp-list beg end) "9\203\306!\205 J\205\355\307\310\311\312\313\314#\315Q\307\211\316#\2031#d^\2022db\210\317 $\320#\203\235\321\307 \322#A%\323%8&%A@'\324 \204\231\325%@!\210\326&!\203l&'!\210\202\231\327'<\203{\330\331'\"\202\331'!\nS\211&\f\236\206\226&\332\333\334\"B\fB\211@A#\210+\2024\316\f\307&\211(\203\352(@\211&@J \203\310\327 \211A@\nT\211&A#\210\202\262\335\336&A\"\210\337&A!\210&@\330\340\341 \342\"\"L\210(A\211(\204\251.\307\207" [regexp-list groups count regexp syms lst boundp nil 1 "\\(" mapconcat #[(x) " B\nB\303 @!\\\304\\ @\207" [count x groups TeX-regexp-group-count 1] 3] "\\)\\|\\(" "\\)" 0 re-search-backward t TeX-member #[(a b) "@\224\207" [b] 1] 2 TeX-in-comment looking-at fboundp puthash mapcar TeX-match-buffer make-hash-table :test equal maphash #[(key value) " B\nB\211\207" [value key lst] 2] clrhash cdr sort car-less-than-car end beg entry symbol match #1=#:--cl-dolist-temp--] 8 (#$ . 86989)]) #@165 Parse TeX information in current buffer. Call the functions in `TeX-auto-prepare-hook' before parsing, and the functions in `TeX-auto-cleanup-hook' after parsing. (defalias 'TeX-auto-parse #[nil "\306\307\310 \"\210\311\312!\210\212\n V\203d V\203\313\f \n#\210\313 \306 #\210) @\235\2037 A\211 \202' \203cA\203cA@\235\203Z\211AA\241\210\202;A\211\204@)\311\314!)\207" [case-fold-search TeX-auto-parser TeX-auto-x-parse-length TeX-auto-parse-length TeX-auto-x-regexp-list TeX-auto-regexp-list nil mapcar TeX-auto-clear-entry run-hooks TeX-auto-prepare-hook TeX-auto-parse-region TeX-auto-cleanup-hook TeX-auto-symbol TeX-auto-ignore list] 5 (#$ . 88109)]) #@45 Set the temporary variable in ENTRY to nil. (defalias 'TeX-auto-clear-entry #[(entry) " 8\302L\207" [TeX-auto-parser-temporary entry nil] 2 (#$ . 88806)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list LaTeX-auto-end-symbol default-boundp set-default nil] 3) #@72 Add MATCH to TeX-auto-symbols. Check for potential LaTeX environments. (defalias 'TeX-auto-symbol-check #[(match) "<\203\f\304\305\"\202\305!\211;\203(\306\307 \"\203(\310\311 \312\224\312\225O\"\202M <\203I \313\211\203D @\310\314\n\"\210 A\211\2045*\313\202M\310\314 \")\207" [match symbol elt #1=#:--cl-dolist-temp-- mapcar TeX-match-buffer string-match "^end\\(.+\\)$" add-to-list LaTeX-auto-end-symbol 1 nil TeX-auto-symbol] 6 (#$ . 89106)]) #@65 *List of regular expressions used for parsing the current file. (custom-declare-variable 'TeX-auto-regexp-list ''TeX-auto-full-regexp-list '(#$ . -89577) :type '(radio (variable-item TeX-auto-empty-regexp-list) (variable-item TeX-auto-full-regexp-list) (variable-item plain-TeX-auto-regexp-list) (variable-item LaTeX-auto-minimal-regexp-list) (variable-item LaTeX-auto-label-regexp-list) (variable-item LaTeX-auto-regexp-list) (symbol :tag "Other") (repeat :tag "Specify" (group (regexp :tag "Match") (sexp :tag "Groups") symbol))) :group 'TeX-parse) (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [make-variable-buffer-local TeX-auto-regexp-list custom-declare-group TeX-file-extension nil "File extensions recognized by AUCTeX." :group TeX-file] 6) #@56 *File extensions used by manually generated TeX files. (custom-declare-variable 'TeX-file-extensions ''("tex" "sty" "cls" "ltx" "texi" "texinfo" "dtx") '(#$ . -90343) :group 'TeX-file-extension :type '(repeat (string :format "%v"))) #@31 All possible file extensions. (custom-declare-variable 'TeX-all-extensions ''("[^.\n]+") '(#$ . 90582) :group 'TeX-file-extension :type '(repeat (regexp :format "%v"))) #@35 *Default extension for TeX files. (custom-declare-variable 'TeX-default-extension '"tex" '(#$ . -90757) :group 'TeX-file-extension :type 'string) (make-variable-buffer-local 'TeX-default-extension) #@38 *Default extension for docTeX files. (custom-declare-variable 'docTeX-default-extension '"dtx" '(#$ . -90961) :group 'TeX-file-extension :type 'string) #@221 Extension of TeX output file. This is either a string or a list with a string as element. Its value is obtained from `TeX-command-output-list'. Access to the value should be through the function `TeX-output-extension'. (defvar TeX-output-extension nil (#$ . 91120)) (make-variable-buffer-local 'TeX-output-extension) #@41 Valid file extensions for BibTeX files. (custom-declare-variable 'BibTeX-file-extensions ''("bib") '(#$ . 91444) :group 'TeX-file-extension :type '(repeat (string :format "%v"))) #@42 Valid file extensions for BibTeX styles. (custom-declare-variable 'BibTeX-style-extensions ''("bst") '(#$ . 91629) :group 'TeX-file-extension :type '(repeat (string :format "%v"))) #@147 Regular expression matching file names to ignore. These files or directories will not be considered when searching for TeX files in a directory. (custom-declare-variable 'TeX-ignore-file '"\\(^\\|[/\\]\\)\\(\\.\\|\\.\\.\\|RCS\\|SCCS\\|CVS\\|babel\\..*\\)$" '(#$ . 91817) :group 'TeX-parse :type 'regexp) #@175 *Whether to search TeX directories recursively. nil means do not recurse, a positive integer means go that far deep in the directory hierarchy, t means recurse indefinitely. (custom-declare-variable 'TeX-file-recurse 't '(#$ . -92129) :group 'TeX-parse :type '(choice (const :tag "On" t) (const :tag "Off" nil) (integer :tag "Depth" :value 1))) #@139 Return non-nil if FILE has one of EXTENSIONS. If EXTENSIONS is not specified or nil, the value of `TeX-file-extensions' is used instead. (defalias 'TeX-match-extension #[(file &optional extensions) "\204 \305\306\307\310#\311Q\312\313 \f\"*\207" [extensions TeX-file-extensions case-fold-search regexp file "\\.\\(" mapconcat identity "\\|" "\\)$" t string-match] 5 (#$ . 92481)]) #@401 Return STRING without any trailing extension in EXTENSIONS. If NODIR is t, also remove directory part of STRING. If NODIR is `path', remove directory part of STRING if it is equal to the current directory, `TeX-macro-private' or `TeX-macro-global'. If NOSTRIP is set, do not remove extension after all. STRING defaults to the name of the current buffer. EXTENSIONS defaults to `TeX-file-extensions'. (defalias 'TeX-strip-extension #[(&optional string extensions nodir nostrip) "\204 \306 \206\n\307 \204\n \204$\310 \"\203$\311\211\224O\202%\312\313\f!\206.\314!\315=\204M \312\314!\230\204M \235\204M \235\203S\316\f!\202T\f*\207" [string extensions TeX-file-extensions nostrip strip dir buffer-file-name "" TeX-match-extension 0 expand-file-name file-name-directory "./" t file-name-nondirectory nodir TeX-macro-global TeX-macro-private] 3 (#$ . 92877)]) #@89 Path delimiter for kpathsea output. t means autodetect, nil means kpathsea is disabled. (custom-declare-variable 'TeX-kpathsea-path-delimiter 't '(#$ . 93773) :group 'TeX-file :type '(choice (const ":") (const ";") (const :tag "Autodetect" t) (const :tag "Off" nil))) #@265 Formats to search for expansion using kpathsea. The key of the alist represents the name of the format. The first element of the cdr of the alist is string to expand by the respective kpathsea program and the second element is a list of file extensions to match. (custom-declare-variable 'TeX-kpathsea-format-alist ''(("tex" "${TEXINPUTS.latex}" TeX-file-extensions) ("sty" "${TEXINPUTS.latex}" '("sty")) ("dvi" "${TEXDOCS}" '("dvi" "pdf" "ps" "txt" "html" "dvi.gz" "pdf.gz" "ps.gz" "txt.gz" "html.gz" "dvi.bz2" "pdf.bz2" "ps.bz2" "txt.bz2" "html.bz2")) ("eps" "${TEXINPUTS}" LaTeX-includegraphics-extensions) ("pdf" "${TEXINPUTS}" LaTeX-includegraphics-extensions) ("png" "${TEXINPUTS}" LaTeX-includegraphics-extensions) ("jpg" "${TEXINPUTS}" LaTeX-includegraphics-extensions) ("jpeg" "${TEXINPUTS}" LaTeX-includegraphics-extensions) ("bib" "$BIBINPUTS" BibTeX-file-extensions) ("bst" "$BSTINPUTS" BibTeX-style-extensions)) '(#$ . 94048) :group 'TeX-file :type '(alist :key-type string :value-type (group string sexp))) #@164 The kpathsea-enabled version of `TeX-search-files'. Except for DIRECTORIES (a kpathsea string), the arguments for EXTENSIONS, NODIR and STRIP are explained there. (defalias 'TeX-search-files-kpathsea #[(extensions nodir strip) "\205\301\302\215\207" [TeX-kpathsea-path-delimiter no-kpathsea (byte-code "\306@ \"\307\310\311!!\211\312\313\314\315 \315D\315\316\nA@P%!\2044\f\317=\2030\320\321\315\211\"\210\2024\322\323!\210)r q\210\324 \325\315!\210*&\315'\f\317=\203a\326\327&\"\203W\327\202`\326\330&\"\205`\330\f\204j\320\321\315\"\210\331&\332\f\333Q\"&\334\335\336\337\n8!\317\"\340Q\341\342\343\344&\"\"'(\203\227\343\345'\"\202\231'+\207" [extensions TeX-kpathsea-format-alist format-spec standard-output TeX-kpathsea-path-delimiter kpathsea-path-delimiter assoc get-buffer-create generate-new-buffer-name " *string-output*" zerop call-process "kpsewhich" nil "-expand-path=" t throw no-kpathsea error "kpsewhich error" buffer-string kill-buffer string-match ";" ":" split-string "[\n " "]+" "\\." regexp-opt eval 2 "\\'" apply append mapcar #[(x) "\303 ?\n#\207" [x nodir extensions directory-files] 4] #[(x) "\302 \"\203 \303\211\224O\207 \207" [extensions x string-match 0] 3] dirs result strip] 9)] 2 (#$ . 95077)]) #@381 Return a list of all reachable files in DIRECTORIES ending with EXTENSIONS. If optional argument NODIR is set, remove directory part. If optional argument STRIP is set, remove file extension. If optional argument DIRECTORIES is set, search in those directories. Otherwise, search in all TeX macro directories. If optional argument EXTENSIONS is not set, use `TeX-file-extensions' (defalias 'TeX-search-files #[(&optional directories extensions nodir strip) "\204 \306\n #\206\274\f\204\307\310 \"B\3119\203&\2024\312!\2031\311\2024S\f\203\271\f@\211\205V\313!\205V\314!\205V\315!\fA\203\265@PA\316\"\204\261\313!\203\261\314!\203\234\203\261\310\317\320!C\n $\"\202\261\321\"\203\261\322\n ?$B)\202[*\2028*\207" [extensions TeX-file-extensions nodir strip directories TeX-macro-private TeX-search-files-kpathsea "./" append nil zerop file-readable-p file-directory-p directory-files string-match TeX-search-files file-name-as-directory TeX-match-extension TeX-strip-extension TeX-macro-global TeX-file-recurse match directory content file TeX-ignore-file] 8 (#$ . 96346)]) #@117 Compare the cars of S1 and S2 in lexicographic order. Return t if first is less than second in lexicographic order. (defalias 'TeX-car-string-lessp #[(s1 s2) "@ @\231\207" [s1 s2] 2 (#$ . 97518)]) #@85 Return a newly created list with element ELT. If ELT already is a list, return ELT. (defalias 'TeX-listify #[(elt) "<\203\207C\207" [elt] 1 (#$ . 97722)]) #@102 Return the member ELT in LIST. Comparison done with HOW. Return nil if ELT is not a member of LIST. (defalias 'TeX-member #[(elt list how) "\203 \n@\"\204A\211\204\242\207" [list how elt] 4 (#$ . 97889)]) #@59 Return non-nil if an element of ELTS is a member of LIST. (defalias 'TeX-elt-of-list-member #[(elts list) "\300\301\215\207" [found (byte-code "\304\211\203\n@\211 \235\203\305\306\307\"\210\nA\211\204*\304\207" [elts elt #1=#:--cl-dolist-temp-- list nil throw found t] 4)] 2 (#$ . 98112)]) #@105 Return non-nil if KEY is `equal' to the car of an element of LIST. Like assoc, except case insensitive. (defalias 'TeX-assoc #[(key list) "\303\304 \n\305#)\207" [case-fold-search key list t TeX-member #[(a b) "\302\303\304!\305Q @\"\207" [a b string-match "^" regexp-quote "$"] 4]] 4 (#$ . 98421)]) #@85 Return the substring corresponding to the N'th match. See `match-data' for details. (defalias 'TeX-match-buffer #[(n) "\224\203\f\301\224\225\"\207\302\207" [n buffer-substring-no-properties ""] 3 (#$ . 98729)]) #@50 Return non-nil if ARG is callable as a function. (defalias 'TeX-function-p #[(arg) "\301\302!\203\f\302!\206 <\203@\303=\206 9\205 \301!\207" [arg fboundp byte-code-function-p lambda] 2 (#$ . 98951)]) #@36 Return non-nil if ARG is t or nil. (defalias 'TeX-booleanp #[(arg) "\301>\207" [arg (t nil)] 2 (#$ . 99169)]) #@143 Return non-nil if the text before point matches REGEXP. Optional second argument LIMIT gives a max number of characters to look backward for. (defalias 'TeX-looking-at-backward #[(regexp &optional limit) "`\212\303 \n\205e`\nZ]\304#\205\305\225=*\207" [pos regexp limit re-search-backward t 0] 5 (#$ . 99287)]) #@26 The current line number. (defalias 'TeX-current-line #[nil "\300\301\302 T\"\207" [format "%d" TeX-current-offset] 3 (#$ . 99610)]) #@56 Return current filename, relative to master directory. (defalias 'TeX-current-file-name-master-relative #[nil "\300\301 \302 \"\207" [file-relative-name buffer-file-name TeX-master-directory] 3 (#$ . 99748)]) #@72 Return t iff there's nothing but whitespace between (bob) and (point). (defalias 'TeX-near-bobp #[nil "\212\300\301x\210o)\207" [" \n" nil] 2 (#$ . 99963)]) (byte-code "\300\301\302\303!\203\f\303\202 \304\"\207" [defalias TeX-run-mode-hooks fboundp run-mode-hooks run-hooks] 4) #@38 Syntax table used while in TeX mode. (defvar TeX-mode-syntax-table (make-syntax-table) (#$ . 100251)) (byte-code "\304\301!\210\305\306!\307 #\210\305\310\311 #\210\305\312\311 #\210\305\306\n!\313 P #\210\305\306 !\314\nP #\210\305\315\316 #\210\305\317\320 #\210\305\321\320 #\210\305\322\320 #\210\305\323\324 #\210\305\325\320 #\210\305\326\327 #\210\305\330\331 #\210\305\332\320 #\210\305\333\320 #\207" [TeX-esc TeX-mode-syntax-table TeX-grop TeX-grcl make-variable-buffer-local modify-syntax-entry string-to-char "\\" 12 ">" 10 "(" ")" 37 "<" 34 "." 38 95 64 "_" 126 36 "$" 39 "w" 171 187] 4) #@61 Specify whether to run command on master, buffer or region. (defvar TeX-command-current 'TeX-command-master (#$ . 100859)) #@61 Determine that the next command will be on the master file. (defalias 'TeX-command-select-master #[nil "\301\302!\210\303\211\207" [TeX-command-current message "Next command will be on the master file." TeX-command-master] 2 (#$ . 100988) nil]) #@56 Determine that the next command will be on the buffer. (defalias 'TeX-command-select-buffer #[nil "\301\302!\210\303\211\207" [TeX-command-current message "Next command will be on the buffer" TeX-command-buffer] 2 (#$ . 101240) nil]) #@56 Determine that the next command will be on the region. (defalias 'TeX-command-select-region #[nil "\301\302!\210\303\211\207" [TeX-command-current message "Next command will be on the region" TeX-command-region] 2 (#$ . 101481) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list TeX-command-force default-boundp set-default nil] 3) #@46 Execute `TeX-command-list' NAME from a menu. (defalias 'TeX-command-menu #[(name) "\n )\207" [name TeX-command-force TeX-command-current] 1 (#$ . 101856)]) #@52 Print on PRINTER using method COMMAND to run NAME. (defalias 'TeX-command-menu-print #[(printer command name) "\306\230?\205\306\230\205 \n\211\307!,\207" [printer TeX-printer-list command TeX-queue-command TeX-print-command TeX-printer-default "Other" TeX-command-menu name] 4 (#$ . 102020)]) #@49 Return `TeX-printer-list' ENTRY as a menu item. (defalias 'TeX-command-menu-printer-entry #[(entry lookup command name) "\304@\305@ 8\206 \n F\"\207" [entry lookup command name vector TeX-command-menu-print] 6 (#$ . 102333)]) #@49 Return `TeX-command-list' ENTRY as a menu item. (defalias 'TeX-command-menu-entry #[(entry) "@\211\n\230\203 \203\n\305\306\307 \310\"\"B\2029 \f\230\203/ \203/\f\305\311\307 \312\"\"B\2029\313 \314 DD\315\233\")\207" [entry name TeX-command-Print TeX-printer-list TeX-command-Queue mapcar #[(entry) "\303\304 \n$\207" [entry TeX-print-command name TeX-command-menu-printer-entry 1] 5] append (("Other")) #[(entry) "\303\304 \n$\207" [entry TeX-queue-command name TeX-command-menu-printer-entry 2] 5] (("Other")) vconcat TeX-command-menu 5] 7 (#$ . 102569)]) #@75 Name to be displayed for the command menu in all modes defined by AUCTeX. (defconst TeX-command-menu-name "Command" (#$ . 103147)) #@58 If non-nil, ``\'' will be bound to `TeX-electric-macro'. (custom-declare-variable 'TeX-electric-escape 'nil '(#$ . 103284) :group 'TeX-macro :type 'boolean) #@66 If non-nil, insert braces after typing `^' and `_' in math mode. (custom-declare-variable 'TeX-electric-sub-and-superscript 'nil '(#$ . 103447) :group 'TeX-macro :type 'boolean) #@44 Function to be called upon pressing `RET'. (custom-declare-variable 'TeX-newline-function ''newline '(#$ . 103631) :group 'TeX-indentation :type '(choice (const newline) (const newline-and-indent) (const reindent-then-newline-and-indent) (sexp :tag "Other"))) #@138 Either insert typed key ARG times or call `TeX-electric-macro'. `TeX-electric-macro' will be called if `TeX-electric-escape' is non-nil. (defalias 'TeX-insert-backslash #[(arg) "\203\302 \207\303 !\207" [TeX-electric-escape arg TeX-electric-macro self-insert-command] 2 (#$ . 103898) "*p"]) #@180 Insert typed key ARG times and possibly a pair of braces. Brace insertion is only done if point is in a math construct and `TeX-electric-sub-and-superscript' has a non-nil value. (defalias 'TeX-insert-sub-or-superscript #[(arg) "\304!\210 \205\305 \205\n Pc\210\306u\207" [arg TeX-electric-sub-and-superscript TeX-grop TeX-grcl self-insert-command texmathp -1] 2 (#$ . 104199) "*p"]) #@69 Call the function specified by the variable `TeX-newline-function'. (defalias 'TeX-newline #[nil " \207" [TeX-newline-function] 1 (#$ . 104594) nil]) #@43 Keymap for common TeX and LaTeX commands. (defvar TeX-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\333#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\342#\210\302\346\340#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\362#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\302\374\375#\210\302\376\377#\210\302\201@\201A#\210\302\201B\201C#\210\302\201D\201E#\210\302\201F\201G#\210\302\201H\201G#\210\302\201I\201J#\210\302\201K\201L#\210\302\201M\201N#\210)\207" [map make-sparse-keymap define-key "}" up-list "#" TeX-normal-mode "" "?" TeX-doc " " TeX-goto-info-page " " TeX-newline "\"" TeX-insert-quote "$" TeX-insert-dollar "{" TeX-insert-braces "" TeX-font " " TeX-insert-macro "\\" TeX-insert-backslash "^" TeX-insert-sub-or-superscript "_" " " TeX-complete-symbol "'" TeX-comment-or-uncomment-paragraph ":" TeX-comment-or-uncomment-region "\"" TeX-uncomment ";" "%" "" TeX-Omega-mode "" TeX-PDF-mode " " TeX-interactive-mode "" TeX-source-specials-mode "" TeX-pin-region "" TeX-toggle-debug-bad-boxes "" "" TeX-toggle-debug-warnings "" TeX-view "" TeX-save-document "" TeX-command-region "" TeX-command-buffer "" TeX-command-master " " TeX-kill-job "\f" TeX-recenter-output-buffer "^" TeX-home-buffer "`" TeX-next-error [remap next-error] [remap previous-error] TeX-previous-error "" TeX-fold-mode "_" TeX-master-file-ask] 4) (#$ . 104751)) #@32 Keymap used in plain TeX mode. (defvar plain-TeX-mode-map (byte-code "\302 \303 \"\210)\207" [map TeX-mode-map make-sparse-keymap set-keymap-parent] 3) (#$ . 106557)) #@51 Return a Command menu specific to the major MODE. (defalias 'TeX-mode-specific-command-menu #[(mode) "\303U\203\f \304\n!B\207 \305\306\307\304\310\nDDE\311F\207" [emacs-major-version TeX-command-menu-name mode 20 TeX-mode-specific-command-menu-entries :filter lambda (&rest ignored) quote "Bug."] 7 (#$ . 106733)]) #@67 Return the entries for a Command menu specific to the major MODE. (defalias 'TeX-mode-specific-command-menu-entries #[(mode) "\302\303\304\305\306\307\310\311\312 !\"\"!)\"\207" [file mode append ("Command on" ["Master File" TeX-command-select-master :keys "C-c C-c" :style radio :selected (eq TeX-command-current 'TeX-command-master) :help "Commands in this menu work on the Master File"] ["Buffer" TeX-command-select-buffer :keys "C-c C-b" :style radio :selected (eq TeX-command-current 'TeX-command-buffer) :help "Commands in this menu work on the current buffer"] ["Region" TeX-command-select-region :keys "C-c C-r" :style radio :selected (eq TeX-command-current 'TeX-command-region) :help "Commands in this menu work on the region"] ["Fix the Region" TeX-pin-region :active (or (if prefix-arg (<= (prefix-numeric-value prefix-arg) 0) (and (boundp 'TeX-command-region-begin) (markerp TeX-command-region-begin))) (TeX-mark-active)) :style toggle :selected (and (boundp 'TeX-command-region-begin) (markerp TeX-command-region-begin)) :help "Fix the region for \"Command on Region\""] "-" ["Recenter Output Buffer" TeX-recenter-output-buffer :help "Show the output of current TeX process"] ["Kill Job" TeX-kill-job :help "Kill the current TeX process"] ["Next Error" TeX-next-error :help "Jump to the next error of the last TeX run"] ["Quick View" TeX-view :help "Start a viewer without prompting"] "-" ("TeXing Options" ["Use Omega" TeX-Omega-mode :style toggle :selected TeX-Omega-mode :help "Use the Omega engine for compiling"] ["PDF Mode" TeX-PDF-mode :style toggle :selected TeX-PDF-mode :active (not TeX-Omega-mode) :help "Use PDFTeX to generate PDF instead of DVI"] ["Run Interactively" TeX-interactive-mode :style toggle :selected TeX-interactive-mode :keys "C-c C-t C-i" :help "Stop on errors in a TeX run"] ["Source Specials" TeX-source-specials-mode :style toggle :selected TeX-source-specials-mode :help "Enable forward and inverse search in the previewer"] ["Debug Bad Boxes" TeX-toggle-debug-bad-boxes :style toggle :selected TeX-debug-bad-boxes :keys "C-c C-t C-b" :help "Make \"Next Error\" show overfull and underfull boxes"] ["Debug Warnings" TeX-toggle-debug-warnings :style toggle :selected TeX-debug-warnings :help "Make \"Next Error\" show warnings"])) TeX-command-on-current TeX-maybe-remove-help delq nil mapcar TeX-command-menu-entry TeX-mode-specific-command-list] 9 (#$ . 107057)]) #@58 Return the list of commands available in the given MODE. (defalias 'TeX-mode-specific-command-list #[(mode) "\305\211 \211A@\211\203&\306 8:\203\f\306 8>\203 \nB\202\n\237+\207" [TeX-command-list entry out-list full-list mode nil 4] 3 (#$ . 109474)]) #@48 Menu definition for commands from tex-fold.el. (defvar TeX-fold-menu '("Show/Hide" ["Fold Mode" TeX-fold-mode :style toggle :selected (and (boundp 'TeX-fold-mode) TeX-fold-mode) :help "Toggle folding mode"] "-" ["Hide All in Current Buffer" TeX-fold-buffer :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-b" :help "Hide all configured TeX constructs in the current buffer"] ["Hide All in Current Region" TeX-fold-region :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-r" :help "Hide all configured TeX constructs in the marked region"] ["Hide All in Current Paragraph" TeX-fold-paragraph :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-p" :help "Hide all configured TeX constructs in the paragraph containing point"] ["Hide Current Macro" TeX-fold-macro :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-m" :help "Hide the macro containing point"] ["Hide Current Environment" TeX-fold-env :visible (not (eq major-mode 'plain-tex-mode)) :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-e" :help "Hide the environment containing point"] ["Hide Current Comment" TeX-fold-comment :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-c" :help "Hide the comment containing point"] "-" ["Show All in Current Buffer" TeX-fold-clearout-buffer :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o b" :help "Permanently show all folded content again"] ["Show All in Current Region" TeX-fold-clearout-region :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o r" :help "Permanently show all folded content in marked region"] ["Show All in Current Paragraph" TeX-fold-clearout-paragraph :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o p" :help "Permanently show all folded content in paragraph containing point"] ["Show Current Item" TeX-fold-clearout-item :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o i" :help "Permanently show the item containing point"] "-" ["Hide or Show Current Item" TeX-fold-dwim :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :keys "C-c C-o C-o" :help "Hide or show the item containing point"]) (#$ . 109745)) #@32 Command menu used in TeX mode. (defvar plain-TeX-mode-command-menu nil (#$ . 111966)) (byte-code "\305\306\307\310\311!$\210\312 B\313\312!\204\314\312\315\"\210\304 B\313\304!\2045\314\304\316\317\320\321\322\323\324\325\326\327\n\"$\257\"\210\330 B\313\330!\204Z\314\330\331\332\333\334\335\336\333\337\340 \333\fBBBBBBBBBBB\"\210\315\207" [plain-TeX-mode-map current-load-list AUCTeX-version TeX-fold-menu TeX-common-menu-entries easy-menu-do-define plain-TeX-mode-command-menu "Command menu used in TeX mode." TeX-mode-specific-command-menu plain-tex-mode TeX-customization-menu default-boundp set-default nil ("Multifile/Parsing" ["Switch to Master File" TeX-home-buffer :help "Switch to buffer of Master File, or buffer of last TeX command"] ["Save Document" TeX-save-document :help "Save all buffers associated with the current Master File"] ["Set Master File" TeX-master-file-ask :active (not (TeX-local-master-p)) :help "Set the main file to run TeX commands on"] ["Reset Buffer" TeX-normal-mode :help "Save and reparse the current buffer for style information"] ["Reset AUCTeX" (TeX-normal-mode t) :keys "C-u C-c C-n" :help "Reset buffer and reload AUCTeX style files"]) ["Find Documentation..." TeX-doc :help "Get help on commands, packages, or TeX-related topics in general"] ["Read the AUCTeX Manual" TeX-goto-info-page :help "Everything worth reading"] ("Customize AUCTeX" ["Browse Options" (customize-group 'AUCTeX) :help "Open the customization buffer for AUCTeX"] ["Extend this Menu" (progn (easy-menu-add-item nil (list TeX-base-mode-name) (or TeX-customization-menu (setq TeX-customization-menu (customize-menu-create 'AUCTeX "Customize AUCTeX"))))) :help "Make this menu a full-blown customization menu"]) vector "Report AUCTeX Bug" TeX-submit-bug-report :help format "Problems with AUCTeX %s? Mail us!" plain-TeX-menu-entries ["Macro..." TeX-insert-macro :help "Insert a macro and possibly arguments"] ["Complete" TeX-complete-symbol :help "Complete the current macro"] "-" ("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 "Comment or uncomment the currently selected region"] ["Comment or Uncomment Paragraph" TeX-comment-or-uncomment-paragraph :help "Comment or uncomment the paragraph containing point"]] 14) #@30 Menu used in plain TeX mode. (defvar plain-TeX-mode-menu nil (#$ . 115244)) (byte-code "\302\303\304\305 B$\207" [plain-TeX-mode-map plain-TeX-menu-entries easy-menu-do-define plain-TeX-mode-menu "Menu used in plain TeX mode." "TeX"] 6) #@31 Keymap used in `AmSTeX-mode'. (defvar AmSTeX-mode-map (byte-code "\302 \303 \"\210)\207" [map TeX-mode-map make-sparse-keymap set-keymap-parent] 3) (#$ . 115488)) #@35 Command menu used in AmsTeX mode. (defvar AmSTeX-mode-command-menu nil (#$ . 115660)) (byte-code "\301\302\303\304\305!$\207" [AmSTeX-mode-map easy-menu-do-define AmSTeX-mode-command-menu "Command menu used in AmsTeX mode." TeX-mode-specific-command-menu ams-tex-mode] 6) #@28 Menu used in AMS-TeX mode. (defvar AmSTeX-mode-menu nil (#$ . 115939)) (byte-code "\302\303\304\305 B$\207" [AmSTeX-mode-map plain-TeX-menu-entries easy-menu-do-define AmSTeX-mode-menu "Menu used in AMS-TeX mode." "AmS-TeX"] 6) #@266 Major mode in AUCTeX for editing AmS-TeX files. See info under AUCTeX for documentation. Special commands: \{AmSTeX-mode-map} Entering AmS-tex-mode calls the value of `text-mode-hook', then the value of `TeX-mode-hook', and then the value of `AmS-TeX-mode-hook'. (defalias 'ams-tex-mode #[nil "\306 \210\307\310 !\210\311\n \"\210\311 \"\210\312\313\314\315\316\317#\210\320 \207" [major-mode AmSTeX-mode-map AmSTeX-mode-menu AmSTeX-mode-command-menu TeX-base-mode-name TeX-command-default plain-TeX-common-initialization ams-tex-mode use-local-map easy-menu-add "AmS-TeX" "AmSTeX" TeX-run-mode-hooks text-mode-hook TeX-mode-hook AmS-TeX-mode-hook TeX-set-mode-name] 4 (#$ . 116175) nil]) #@178 Regular expression matching a comment starter. Unlike the variable `comment-start-skip' it should not match any whitespace after the comment starter or any character before it. (defvar TeX-comment-start-regexp "%" (#$ . 116877)) (make-variable-buffer-local 'TeX-comment-start-regexp) #@172 Comment each line in the region from BEG to END. Numeric prefix arg ARG means use ARG comment characters. If ARG is negative, delete that many comment characters instead. (defalias 'TeX-comment-region #[(beg end &optional arg) "\304 \n #)\207" [comment-start beg end arg comment-region] 4 (#$ . 117168) "*r\nP"]) (byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\305!\203!\302\306\305\"\210\202&\302\306\307\"\210\300\207" [fboundp comment-or-uncomment-region defalias TeX-comment-or-uncomment-region #[(beg end &optional arg) "\212b\210\303d!\210 `X)\203\304\202\305 \n#\207" [beg end arg TeX-comment-forward TeX-uncomment-region TeX-comment-region] 4 "Comment or uncomment a the region from BEG to END.\nCall `TeX-comment-region', unless the region only consists of\ncomments, in which case call `TeX-uncomment-region'. If a prefix\narg ARG is given, it is passed on to the respective function." "*r\nP"] uncomment-region TeX-uncomment-region #[(beg end &optional arg) "\204\212 b\210\304\305\n\306Q \307#\210\310\311!G)\312 [#\207" [arg beg TeX-comment-start-regexp end re-search-forward "^" "+" t match-string 0 comment-region] 4 "Remove comment characters from the beginning of each line\nin the region from BEG to END. Numeric prefix arg ARG means use\nARG comment characters. If ARG is negative, delete that many\ncomment characters instead." "*r\nP"]] 3) #@73 Delete comment characters from the beginning of each line in a comment. (defalias 'TeX-uncomment #[nil "\212\302 \210\303\304P!\203o\204\305y\210\202`\306y\210\303\304P!\203-m\204-\306y\210\202\307 `\"*\207" [TeX-comment-start-regexp beg beginning-of-line looking-at "^[ ]*" -1 1 TeX-uncomment-region] 3 (#$ . 118580) nil]) #@41 Comment or uncomment current paragraph. (defalias 'TeX-comment-or-uncomment-paragraph #[nil "\300 \203\301 \207\212\302 \210\303\304!?\205\305 \210\306`\307 \")\207" [TeX-in-commented-line TeX-uncomment beginning-of-line looking-at "^[ ]*$" mark-paragraph TeX-comment-region mark] 3 (#$ . 118924) nil]) #@42 Return non-nil if point is in a comment. (defalias 'TeX-in-comment #[nil "n\206\f?\206\fh\302=?\205%\212`\303\304\305\306#\210\307!\206$\310 \306#*\207" [comment-start-skip pos 13 re-search-backward "^\\| " nil t looking-at re-search-forward] 4 (#$ . 119238)]) #@349 Return non-nil if point is in a line consisting only of a comment. The comment can be preceded by whitespace. This means that `TeX-in-commented-line' is more general than `TeX-in-line-comment' which will not match commented lines with leading whitespace. But `TeX-in-commented-line' will match commented lines without leading whitespace as well. (defalias 'TeX-in-commented-line #[nil "\212\301y\210\302\303w\210\304`d`G\\^\"\230)\207" [comment-start 0 " " nil buffer-substring-no-properties] 5 (#$ . 119514)]) #@152 Return non-nil if point is in a line comment. A line comment is a comment starting in column one, i.e. there is no whitespace before the comment sign. (defalias 'TeX-in-line-comment #[nil "\212\301y\210\302`d`G\\^\"\230)\207" [comment-start 0 buffer-substring-no-properties] 5 (#$ . 120037)]) #@150 Return the comment prefix of the current line. If there are no comment starters after potential whitespace at the beginning of the line, return nil. (defalias 'TeX-comment-prefix #[nil "\212\301 \210\302\303\304Q!\205\305\306!)\207" [TeX-comment-start-regexp beginning-of-line looking-at "\\([ ]*" "+\\)+" match-string 0] 4 (#$ . 120339)]) #@274 Move forward to the next comment skip. This may be a switch between commented and not commented adjacent lines or between lines with different comment prefixes. With argument COUNT do it COUNT times. If argument LIMIT is given, do not move point further than this value. (defalias 'TeX-forward-comment-skip #[(&optional count limit) "\204\306\307U\203\306 \204d\310!\307\n W\203\255\307W\203,\311y\210\202/\312 \210\313\314\f\315Q!\205@\316 \317 \\\307\225{\212\307V\203N` X\202Q` Y\205\206\320\307V\203`\306y\202b\311y!\205\206 \203\200\313\314\f\315Q!\205\206 \316 \317 \\\307\225{\230\202\206\313\321\fP!?)\203\234\307V\203\226\306y\210\202A\311y\210\202A\307V\203\245\306y\210)\nT\211\202*\322\207" [count limit i #1=#:--cl-dotimes-temp-- TeX-comment-start-regexp prefix 1 0 abs -1 beginning-of-line looking-at "\\([ ]*" "+\\)+" line-beginning-position current-indentation zerop "[ ]*" nil] 5 (#$ . 120690)]) #@286 Move backward to the next comment skip. This may be a switch between commented and not commented adjacent lines or between lines with different comment prefixes. With argument COUNT do it COUNT times. If argument LIMIT is given, do not move point to a position less than this value. (defalias 'TeX-backward-comment-skip #[(&optional count limit) "\204\302\303U\203\302 \204e\304[ \"\207" [count limit 1 0 TeX-forward-comment-skip] 3 (#$ . 121655)]) #@122 Skip forward over N comments. Just like `forward-comment' but only for positive N and can use regexps instead of syntax. (defalias 'TeX-comment-forward #[(&optional n) "\304\305!\203\n\305!\207\206\306\211\307W\203\310\311!\207 \203\"\312!\207\307V\203M\312\306!\204B\313\n!\203G\307\225b\203G\314 \315\316#\203GS\202H\317\211\202#\307U\207" [n comment-use-syntax comment-start-skip comment-end-skip fboundp comment-forward 1 0 error "No comment-backward" forward-comment looking-at re-search-forward nil move -1] 5 (#$ . 122125)]) #@195 Return comment padding as a string. The variable `comment-padding' can hold an integer or a string. This function will return the appropriate string representation regardless of its data type. (defalias 'TeX-comment-padding-string #[nil "\250\203\n\301\302\"\207\207" [comment-padding make-string 32] 3 (#$ . 122685)]) (custom-declare-group 'TeX-indentation nil "Indentation of TeX buffers in AUCTeX." :group 'AUCTeX) #@54 *The level of indentation produced by an open brace. (custom-declare-variable 'TeX-brace-indent-level '2 '(#$ . -123114) :group 'TeX-indentation :type 'integer) #@41 Determine the indentation of a comment. (defalias 'TeX-comment-indent #[nil "\301\302!\203i\207\303\304x\210n\203\305\202iT]\207" [comment-column looking-at "%%%" " " nil 0] 2 (#$ . 123281)]) #@37 Count number of open/closed braces. (defalias 'TeX-brace-count-line #[nil "\212\304\305 \306\307 w\210` W\203G\306f\306u\210\310=\203&\n \\\211\202D\311=\2034\n Z\211\202D\312=\203G` W\203G\306u\210\313\204\n,\207" [char limit count TeX-brace-indent-level 0 line-end-position nil "^%{}\\\\" 123 125 92 t] 3 (#$ . 123487)]) #@113 Syntax table used for searching purposes. It should be accessed through the function `TeX-search-syntax-table'. (defvar TeX-search-syntax-table (byte-code "\303\304\305!!\306\307\211\203 \n@\310 @ A#\210\nA\211\204*)\207" [table elt #1=#:--cl-dolist-temp-- make-syntax-table make-char-table syntax-table ((12 . ">") (10 . ">") (34 . " ")) nil modify-syntax-entry] 5) (#$ . 123835)) #@290 Return a syntax table for searching purposes. ARGS may be a list of characters. For each of them the respective predefined syntax is set. Currently the parenthetical characters ?{, ?}, ?[, and ?] are supported. The syntax of each of these characters not specified will be reset to " ". (defalias 'TeX-search-syntax-table #[(&rest args) "\306\307\310 !\311\n#\210 \312=\204\307\313\314\n#\210\315\211\203/ @\307\f@\316\n#\210 A\211\204*\315\211\203Q@\307\f\317\f\"A\n#\210A\211\204:*\n)\207" [char-syntax-alist TeX-esc TeX-search-syntax-table major-mode elt #1=#:--cl-dolist-temp-- ((123 . "(}") (125 . "){") (91 . "(]") (93 . ")[")) modify-syntax-entry string-to-char "\\" texinfo-mode 37 "<" nil " " assoc args #2=#:--cl-dolist-temp--] 6 (#$ . 124234)]) #@301 Return the position of a balanced brace in a TeX group. The function scans forward COUNT parenthetical groupings. Default is 1. If COUNT is negative, it searches backwards. With optional DEPTH>=1, find that outer level. If LIMIT is non-nil, do not search further than this position in the buffer. (defalias 'TeX-find-balanced-brace #[(&optional count depth limit) "\203\305U\203\306\307!\202\202\310 \203) \310W\203%\306\311!\202* \202*\310\214\n\203B\305V\203>e\n}\210\202B\nd}\210\312 p\313\216\314\315\316\317\"!\210\320\321\322\217.\207" [count depth limit #1=#:buffer #2=#:table 0 error "COUNT has to be <> 0" 1 "DEPTH has to be > 0" syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table TeX-search-syntax-table 123 125 nil (byte-code "\302` #\207" [count depth scan-lists] 4) ((error))] 4 (#$ . 125025)]) #@270 Return the position of the closing brace in a TeX group. The function assumes that point is inside the group, i.e. after an opening brace. With optional DEPTH>=1, find that outer level. If LIMIT is non-nil, do not search further down than this position in the buffer. (defalias 'TeX-find-closing-brace #[(&optional depth limit) "\302\303 #\207" [depth limit TeX-find-balanced-brace 1] 4 (#$ . 125919)]) #@268 Return the position of the opening brace in a TeX group. The function assumes that point is inside the group, i.e. before a closing brace. With optional DEPTH>=1, find that outer level. If LIMIT is non-nil, do not search further up than this position in the buffer. (defalias 'TeX-find-opening-brace #[(&optional depth limit) "\302\303 #\207" [depth limit TeX-find-balanced-brace -1] 4 (#$ . 126331)]) #@131 Return a list containing the start and end of a macro. Arguments enclosed in brackets or braces are considered part of the macro. (defalias 'TeX-find-macro-boundaries #[nil "`\303\303f\n\304H=\203\305 \204`\2042\212\306\303x\210`Sf\n\304H=\2031\305`S!\2041`S)\204<\212\307\310\215\210)\205P\212\311!b\210 `W\205O`B)*\207" [start-point orig-point TeX-esc nil 0 TeX-escaped-p "A-Za-z@*" abort (byte-code "\303\304\305\306\217\2039\304\307\310\217\210\311\312!\210`Sf\313>\203!\314`S!\203 \315\304x\210`Sf \316H=\2039\314`S!\2049`S)\304\207" [parse-sexp-ignore-comments TeX-esc start-point t nil (byte-code "\300 \210\301\207" [up-list t] 1) ((error)) (backward-sexp) ((error (byte-code "\300\301\302\"\207" [throw abort nil] 3))) forward-comment -1 (93 125) TeX-escaped-p "A-Za-z@*" 0] 3) TeX-find-macro-end-helper] 3 (#$ . 126742)]) #@207 Find the end of a macro given its START. START is the position just before the starting token of the macro. If the macro is followed by square brackets or curly braces, those will be considered part of it. (defalias 'TeX-find-macro-end-helper #[(start) "\212\301 \302\216\303\304\215+\207" [save-match-data-internal match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) found (byte-code "Tb\210\302\303\304w!\203\304u\210\202\305\304w\210m?\205\306\307!\2044\306\310 P!\203@\212\311y\210\306\312!)\203@\311\224b\210\304\313\314\217\210\202\306\315!\204Y\306\310 P!\203w\212\311y\210\306\316!)\203w\317\225b\210\320 \206i\212\321\304w\210`)b\210m\203\322\323`\"\210\202\322\323`\"\210\202\207" [start TeX-comment-start-regexp zerop "A-Za-z@" nil "*" looking-at "[ ]*\n?\\(\\[\\)" "[ ]*" 1 "[ ]*\\(\\[\\)" (forward-sexp) ((scan-error (byte-code "\300\301`\"\207" [throw found] 3))) "[ ]*\n?{" "[ ]*{" 0 TeX-find-closing-brace "^ \n" throw found] 3)] 2 (#$ . 127607)]) #@105 Return the start of a macro. Arguments enclosed in brackets or braces are considered part of the macro. (defalias 'TeX-find-macro-start #[nil "\300 @\207" [TeX-find-macro-boundaries] 1 (#$ . 128652)]) #@103 Return the end of a macro. Arguments enclosed in brackets or braces are considered part of the macro. (defalias 'TeX-find-macro-end #[nil "\300 A\207" [TeX-find-macro-boundaries] 1 (#$ . 128860)]) #@294 Search forward from point for unescaped STRING. The optional argument BOUND limits the search to the respective buffer position. If NOERROR is non-nil, return nil if the search failed instead of throwing an error. A pattern is escaped, if it is preceded by an odd number of escape characters. (defalias 'TeX-search-forward-unescaped #[(string &optional bound noerror) "\303\304\305 \n%\207" [string bound noerror TeX-search-unescaped forward nil] 6 (#$ . 129064)]) #@295 Search backward from point for unescaped STRING. The optional argument BOUND limits the search to the respective buffer position. If NOERROR is non-nil, return nil if the search failed instead of throwing an error. A pattern is escaped, if it is preceded by an odd number of escape characters. (defalias 'TeX-search-backward-unescaped #[(string &optional bound noerror) "\303\304\305 \n%\207" [string bound noerror TeX-search-unescaped backward nil] 6 (#$ . 129537)]) #@313 Search forward from point for unescaped regular expression REGEXP. The optional argument BOUND limits the search to the respective buffer position. If NOERROR is non-nil, return nil if the search failed instead of throwing an error. A pattern is escaped, if it is preceded by an odd number of escape characters. (defalias 'TeX-re-search-forward-unescaped #[(regexp &optional bound noerror) "\303\304\305 \n%\207" [regexp bound noerror TeX-search-unescaped forward t] 6 (#$ . 130013)]) #@507 Search for unescaped PATTERN in a certain DIRECTION. DIRECTION can be indicated by the symbols 'forward and 'backward. If DIRECTION is omitted, a forward search is carried out. If REGEXP-FLAG is non-nil, PATTERN may be a regular expression, otherwise a string. The optional argument BOUND limits the search to the respective buffer position. If NOERROR is non-nil, return nil if the search failed instead of throwing an error. A pattern is escaped, if it is preceded by an odd number of escape characters. (defalias 'TeX-search-unescaped #[(pattern &optional direction regexp-flag bound noerror) "\303=\203 \203\304\202\305\202 \203\306\202\307\310\311\215)\207" [direction regexp-flag search-fun backward re-search-backward search-backward re-search-forward search-forward found (byte-code " \n #\205\304\305\224!\204\306\307`\"\210\202\207" [search-fun pattern bound noerror TeX-escaped-p 0 throw found] 4)] 2 (#$ . 130506)]) #@208 Return t if the character at position POS is escaped. If POS is omitted, examine the character at point. A character is escaped if it is preceded by an odd number of escape characters, such as "\" in LaTeX. (defalias 'TeX-escaped-p #[(&optional pos) "\212\203b\210\302\303\304 !\305x\306\"!)?\207" [pos TeX-esc zerop mod regexp-quote nil 2] 4 (#$ . 131462)]) #@70 Return the name of the macro containing point, nil if there is none. (defalias 'TeX-current-macro #[nil "\302 \211\205\212b\210 Gu\210\303`\304\305w\210`\"))\207" [macro-start TeX-esc TeX-find-macro-start buffer-substring-no-properties "@A-Za-z" nil] 5 (#$ . 131831)]) #@248 Function to find the start of a comment. The function should accept an optional argument for specifying the limit of the search. It should return the position just before the comment if one is found and nil otherwise. Point should not be moved. (defvar TeX-search-forward-comment-start-function nil (#$ . 132111)) (make-variable-buffer-local 'TeX-search-forward-comment-start-function) #@312 Search forward for a comment start from current position till LIMIT. If LIMIT is omitted, search till the end of the buffer. The search relies on `TeX-comment-start-regexp' being set correctly for the current mode. Set `TeX-search-forward-comment-start-defun' in order to override the default implementation. (defalias 'TeX-search-forward-comment-start #[(&optional limit) "\203 !\207 \206 d\303\n \304#\205\305\224\207" [TeX-search-forward-comment-start-function limit TeX-comment-start-regexp TeX-re-search-forward-unescaped t 0] 4 (#$ . 132506)]) #@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 'TeX-font-list ''((2 "{\\bf " "}") (3 "{\\sc " "}") (5 "{\\em " "\\/}") (9 "{\\it " "\\/}") (18 "{\\rm " "}") (19 "{\\sl " "\\/}") (20 "{\\tt " "}") (4 "" "" t)) '(#$ . 133073) :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))))) #@73 Determines the function which is called when a font should be replaced. (defvar TeX-font-replace-function 'TeX-font-replace (#$ . 133932)) #@55 A textual description of an ENTRY in `TeX-font-list'. (defalias 'TeX-describe-font-entry #[(entry) "\301\302\303\304@!!\"\3058\306=\204\3078\306=\203\310\202B\301\311A@\3128\3058;\2032\3058\2023\313\3148;\203@\3148\202A\313%P\207" [entry format "%16s " key-description char-to-string 3 t 5 "-- delete font" "%14s %-3s %14s %-3s" 2 "" 4] 8 (#$ . 134077)]) #@154 Insert template for font change command. If REPLACE is not nil, replace current font. WHAT determines the font to use, as specified by `TeX-font-list'. (defalias 'TeX-font #[(replace what) "\306 \210\307 \"\310 \nA@\311\n8\206%\312\n8\313=\206%\314\n8\313= \203:\312\n8;\203:\312\n8\315\n8\n\204U\316\317\320\321 \322#Q\323\220\323q\210c\221)\202\217\203b\f \"\202\217\324 \203\210\212\325 `V\203{\fc\210\325 b\210 c\202\204 c\210\325 b\210\fc)\202\217\fc\210\212 c),\207" [what TeX-font-list entry in-math before after TeX-update-style assoc texmathp 2 3 t 5 4 "Font list: " "KEY TEXTFONT MATHFONT\n\n" mapconcat TeX-describe-font-entry "\n" "*Help*" TeX-active-mark mark replace help TeX-font-replace-function] 6 (#$ . 134458) "*P\nc"]) #@184 Replace font specification around point with START and END. For modes with font specifications like `{\font text}'. See also `TeX-font-replace-macro' and `TeX-font-replace-function'. (defalias 'TeX-font-replace #[(start end) "\212\302\303!\204\304\305!\210\202\306 \210\212\307\310\211#\210)\212\311u\210\302\312!\203+\313\314!\210\315\202,\310)\2034\316\317!\210 c)\207" [start end looking-at "{\\\\[a-zA-Z]+ " up-list -1 forward-sexp replace-match t -3 "\\\\/}" delete-char 3 nil delete-backward-char 1] 4 (#$ . 135255)]) #@177 Replace font specification around point with START and END. For modes with font specifications like `\font{text}'. See also `TeX-font-replace' and `TeX-font-replace-function'. (defalias 'TeX-font-replace-macro #[(start end) "\306\211\211\f\203>\f@A\fA\n@;\203%\n@\307\230\204%\n@ B\nAA\211@;\203\n@\307\230\204\n@ B\202\310\311 \312#\212\313\314\215\210\315 p\316\216\317\320\321\322\"!\210\323\324!\210+\212\325\326\211#\210)\327\330!\210c-\207" [TeX-font-list regexp strings cmds font-list #1=#:buffer nil "" mapconcat regexp-quote "\\|" done (byte-code "g\302U\204\n\303\304x\210\305!\304x\210\306 !\203\307\310\311\"\210\202\312\313!\210\202" [TeX-esc regexp 92 "a-zA-Z " nil regexp-quote looking-at throw done t up-list -1] 3) syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2=#:table set-syntax-table] 2)) set-syntax-table TeX-search-syntax-table 123 125 forward-sexp 2 replace-match t delete-backward-char 1 #2# start end] 5 (#$ . 135794)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\304\207" [current-load-list TeX-symbol-marker default-boundp set-default nil TeX-symbol-marker-pos 0] 3) #@54 *Character used to enter and leave math mode in TeX. (defvar TeX-dollar-sign 36 (#$ . -136993)) (byte-code "\302B\304\305 !!\210\306B\307\310\311\n!\312 \313\311\n!\260!\207" [current-load-list TeX-dollar-sign TeX-dollar-string TeX-esc (lambda (#1=#:defconst-tmp-var) (defconst TeX-dollar-string #1#)) char-to-string TeX-dollar-regexp (lambda (#2=#:defconst-tmp-var) (defconst TeX-dollar-regexp #2#)) "^" regexp-quote "\\|[^" "]"] 8) #@73 *If non-nil, auto toggle off CJK input methods when entering math mode. (custom-declare-variable 'TeX-math-toggle-off-input-method 't '(#$ . -137438) :group 'TeX-macro :type 'boolean) #@61 If non-nil close double dollar math by typing a single `$'. (custom-declare-variable 'TeX-math-close-double-dollar 'nil '(#$ . 137628) :group 'TeX-macro :type 'boolean) #@379 Insert dollar sign. If current math mode was not entered with a dollar, refuse to insert one. Show matching dollar sign if this dollar sign ends the TeX math mode. Ensure double dollar signs match up correctly by inserting extra dollar signs when needed. With raw \[universal-argument] prefix, insert exactly one dollar sign. With optional ARG, insert that many dollar signs. (defalias 'TeX-insert-dollar #[(&optional arg) "\203<\203\303c\210\202\216\203\304\305!\306\"c\210\202\216\307 \203)\303c\210\202\216\310 \203\213 @;\203 @\311\312O\303\230\203\n\203I @c\210\202L\303c\210 @\303\230\204`\313\314\212\303\315x)\316\"!\203\216\212 Ab\210\317 \203q\320\312!\210\202{\321\322`\315\210`{\"\210)\202\216\321\323 @\"\210\303c\210\202\216\303c\210\324 \207" [arg texmathp-why TeX-math-close-double-dollar "$" make-string prefix-numeric-value 36 TeX-escaped-p texmathp 0 1 zerop mod nil 2 pos-visible-in-window-p sit-for message "Matches %s" "Math mode started with `%s' cannot be closed with dollar" TeX-math-input-method-off] 4 (#$ . 137804) "P"]) #@50 Toggle off input method when entering math mode. (defalias 'TeX-math-input-method-off #[nil "\205 \301 \205 \302 \207" [TeX-math-toggle-off-input-method texmathp TeX-toggle-off-input-method] 1 (#$ . 138889)]) #@95 Toggle off input methods. Currently, only support CJK input methods provided by LEIM package. (defalias 'TeX-toggle-off-input-method #[nil "\301\300!\203\203\302\303\"\203\304 \207\305\207" [current-input-method boundp string-match "^\\(chinese\\|japanese\\|korean\\)" inactivate-input-method t] 3 (#$ . 139107)]) #@180 Remove all information about this buffer, and apply the style hooks again. Save buffer first including style information. With optional argument ARG, also reload the style hooks. (defalias 'TeX-normal-mode #[(arg) "\203\f\306\211\306\211\307\310 \203\311 \210\202\312 \210)\313 \210\314=\203-\315\306\211\307#\210\316\307!\207" [arg TeX-style-hook-list BibTeX-global-style-files BibTeX-global-files TeX-global-input-files TeX-auto-save nil t buffer-modified-p save-buffer TeX-auto-write normal-mode shared TeX-master-file TeX-update-style TeX-master] 5 (#$ . 139436) "*P"]) (custom-declare-group 'TeX-quote nil "Quoting in AUCTeX." :group 'AUCTeX) #@68 String inserted by typing \[TeX-insert-quote] to open a quotation. (custom-declare-variable 'TeX-open-quote '"``" '(#$ . 140104) :group 'TeX-quote :type 'string) #@69 String inserted by typing \[TeX-insert-quote] to close a quotation. (custom-declare-variable 'TeX-close-quote '"''" '(#$ . 140272) :group 'TeX-quote :type 'string) #@133 Behaviour of \[TeX-insert-quote]. Nil means standard behaviour; when non-nil, opening and closing quotes are inserted only after ". (custom-declare-variable 'TeX-quote-after-quote 'nil '(#$ . 140443) :group 'TeX-quote :type 'boolean) #@526 Alist for overriding the default language-specific quote insertion. First element in each item is the name of the language as set by the language style file as a string. Second element is the opening quotation mark. Third elemxent is the closing quotation mark. Opening and closing quotation marks can be specified directly as strings or as functions returning a string. Fourth element is a boolean specifying insertion behavior, overriding `TeX-quote-after-quote'. See Info node `(auctex)European' for valid languages. (custom-declare-variable 'TeX-quote-language-alist 'nil '(#$ . 140684) :group 'TeX-quote :link '(custom-manual "(auctex)European") :type '(repeat (group (choice (const "czech") (const "danish") (const "dutch") (const "german") (const "ngerman") (const "french") (const "italian") (const "polish") (const "slovak") (const "swedish") (string :tag "Other Language")) (choice :tag "Opening quotation mark" string function) (choice :tag "Closing quotation mark" string function) (boolean :tag "Insert plain quote first" :value t)))) #@385 If non-nil determines behavior of quote insertion. It is usually set by language-related style files. Its value has the same structure as the elements of `TeX-quote-language-alist'. The symbol 'override can be used as its car in order to override the settings of style files. Style files should therefore check if this symbol is present and not alter `TeX-quote-language' if it is. (defvar TeX-quote-language nil (#$ . 141744)) (make-variable-buffer-local 'TeX-quote-language) #@294 Insert the appropriate quotation marks for TeX. Inserts the value of `TeX-open-quote' (normally ``) or `TeX-close-quote' (normally '') depending on the context. If `TeX-quote-after-quote' is non-nil, this insertion works only after ". With prefix argument FORCE, always inserts " characters. (defalias 'TeX-insert-quote #[(force) "\204(\306\307!\203\307\310!\203\307\311`S\"\204(\312 \204(\313 \203. \314=\204.\315\316!!\207\317 \210\n@\320=\203<\n\202A\321\n@ \"\211\206G\n\211\203R A@\202T%& \203`\322 8\202b'( \203n\323 8\202p)*\324&!\203~& &\324(!\203\212( (*\203o\203\227\325\202\376\212\326\327&!\330\327(!Q&G(G]\")\203\272\331\332\333!G!\210\334\202\376\212\335\336x)\337W\203\310\325\202\376h\325U\204\322\325\202\376\212\337u\210o)\203\344\331\340!\210&\202\376\212\341u\210\342\343!)\203\370\331\340!\210&\202\376\331\340!\210(c\202ko\203 &\202jh\344+!U\203\325\202jh\325U\203\"\325\202j\212&G[u\210\342\327&!!)\203=\331&G!\210\325\202j\212(G[u\210\342\327(!!)\203X\331(G!\210\325\202j\212\337u\210\342\343!)\203h&\202j(c-\207" [force major-mode TeX-quote-language TeX-quote-language-alist lang-override lang fboundp font-latex-faces-present-p (font-latex-verbatim-face font-latex-math-face font-lock-comment-face) (font-latex-verbatim-face font-latex-math-face font-lock-comment-face) texmathp TeX-in-comment doctex-mode self-insert-command prefix-numeric-value TeX-update-style override assoc 2 3 functionp 34 TeX-looking-at-backward regexp-quote "\\|" delete-backward-char match-string 0 "\"\"" "\"" nil -1 1 -2 looking-at "[ \n]\\|\\s(" string-to-char TeX-open-quote open-quote TeX-close-quote close-quote TeX-quote-after-quote q-after-q TeX-esc] 6 (#$ . 142230) "*P"]) #@53 Insert point or comma, cleaning up preceding space. (defalias 'TeX-insert-punctuation #[nil "\300 \210\301\302\303\"\203\304\305\306\"\210\307\310!\207" [expand-abbrev TeX-looking-at-backward "\\\\/\\(}+\\)" 50 replace-match "\\1" t call-interactively self-insert-command] 3 (#$ . 144004) nil]) #@291 Make a pair of braces around next ARG sexps and leave point inside. No argument is equivalent to zero: just insert braces and leave point between. If there is an active region, ARG will be ignored, braces will be inserted around the region, and point will be left after the closing brace. (defalias 'TeX-insert-braces #[(arg) "\303 \203`\304 W\203\305 \210c\210\212\304 b\210 c)\207 c\210\212\n\203)\306\307\n!!\210c)\207" [TeX-grcl TeX-grop arg TeX-active-mark mark exchange-point-and-mark forward-sexp prefix-numeric-value] 3 (#$ . 144308) "P"]) #@305 Submit a bug report on AUCTeX via mail. Don't hesitate to report any problems or inaccurate documentation. If you don't have setup sending mail from (X)Emacs, please copy the output buffer into your mail program, as it gives us important information about your AUCTeX version and AUCTeX configuration. (defalias 'TeX-submit-bug-report #[nil "\302\303!\210\304\305\306\307\310 \"\203\311 \312\313OP\202 \314\315\316\317\320\321\322\323\257\313\211\324&)\207" [reporter-prompt-for-summary-p AUCTeX-version require reporter "Bug report subject: " reporter-submit-bug-report "bug-auctex@gnu.org" string-match "^CVS-" "tex-" 4 nil AUCTeX-date window-system LaTeX-version TeX-style-path TeX-auto-save TeX-parse-self TeX-master TeX-command-list "Remember to cover the basics, that is, what you expected to happen and\nwhat in fact did happen.\n\nBe sure to consult the FAQ section in the manual before submitting\na bug report. If the bug (or problem) is triggered by a specific\n(La)TeX file, you should try to produce a minimal sample file\nshowing the problem and include it in your report.\n\nYour bug report will be posted to the AUCTeX bug reporting list.\n------------------------------------------------------------------------"] 11 (#$ . 144871) nil]) #@51 Read documentation for AUCTeX in the info system. (defalias 'TeX-goto-info-page #[nil "\300\301!\207" [info "auctex"] 2 (#$ . 146141) nil]) (autoload 'info-lookup->completions "info-look") #@574 Alist of backends used for looking up documentation. Each item consists of four elements. The first is a symbol describing the backend's name. The second is a list of modes the backend should be activated in. The third is a function returning a list of documents available to the backend. It should return nil if the backend is not available, e.g. if a required executable is not present on the system in question. The fourth is a function for displaying the documentation. The function should accept a single argument, the chosen package, command, or document name. (defvar TeX-doc-backend-alist '((texdoc (plain-tex-mode latex-mode doctex-mode ams-tex-mode context-mode) (lambda nil (when (executable-find "texdoc") (TeX-search-files (unless (stringp TeX-kpathsea-path-delimiter) (TeX-macro-global-internal "latex" '("/doc/") `(,@TeX-macro-global ,@TeX-macro-private))) '("dvi" "pdf" "ps" "txt" "html") t t))) (lambda (doc) (call-process "texdoc" nil 0 nil doc))) (latex-info (latex-mode) (lambda nil (when (condition-case nil (save-window-excursion (info "latex" (generate-new-buffer-name "*info*")) t) (error nil)) (mapcar (lambda (x) (let ((x (car x))) (if (string-match "\\`\\\\" x) (substring x 1) x))) (info-lookup->completions 'symbol 'latex-mode)))) (lambda (doc) (info-lookup-symbol (concat "\\" doc) 'latex-mode))) (texinfo-info (texinfo-mode) (lambda nil (when (condition-case nil (save-window-excursion (info "texinfo" (generate-new-buffer-name "*info*")) t) (error nil)) (mapcar (lambda (x) (let ((x (car x))) (if (string-match "\\`@" x) (substring x 1) x))) (info-lookup->completions 'symbol 'texinfo-mode)))) (lambda (doc) (info-lookup-symbol (concat "@" doc) 'texinfo-mode)))) (#$ . 146337)) #@89 Display documentation for string NAME. NAME may be a package, a command, or a document. (defalias 'TeX-doc #[(&optional name) "\306 \306\211\203. @\f\nA@>\203'\307\n8 \211\203&\310\300 \n@B\"\210) A\211\204\n*\2049\311\312!\202\302t\203\235\203I\313\230\203\235\314\315!\306\211\211 \316\317\215\306\211\203y@\320\321\n@\" \244A\211\204d*\322\203\210\323\324 \"\202\211\325 \"\211\313\230\203\230 \202\232,\204\250\311\326!\202\302\316\327\215\211\203\276\330\331 \"8!\202\301\311\332!))\207" [docs TeX-doc-backend-alist elt #1=#:--cl-dolist-temp-- major-mode completions nil 2 add-to-list message "No documentation found" "" thing-at-point symbol found (byte-code "\304\211\203\n@ @\235\203\305\306\307\"\210\nA\211\204*\304\207" [docs elt #2=#:--cl-dolist-temp-- symbol nil throw found t] 4) mapcar list completing-read format "Package, command, or document (default %s): " "Package, command, or document: " "No documentation specified" (byte-code "\304\211\203\n@ @\235\203\305\306 A\"\210\nA\211\204*\304\207" [docs elt #3=#:--cl-dolist-temp-- name nil throw found] 4) 3 assoc "Documentation not found" name doc contained #4=#:--cl-dolist-temp-- backend] 6 (#$ . 148059) nil]) (defalias 'ispell-tex-buffer-p #[nil "\301\300!\205\207" [ispell-tex-p boundp] 2]) (byte-code "\301\211\207" [ispell-enable-tex-parser t] 2) #@35 Run ispell on current TeX buffer. (defalias 'TeX-run-ispell #[(command string file) "\301 \230\203\302\303!\203\304\303!\207\301 \230\203\304\305!\207\302\306!\203%\306 \207\302\307!\203.\307 \207\310 \207" [file TeX-region-file fboundp ispell-region call-interactively spell-region ispell-buffer ispell spell-buffer] 2 (#$ . 149483)]) #@65 Run ispell on all open files belonging to the current document. (defalias 'TeX-ispell-document #[(name) "\306\230\203 \307 \310\311\312\313\314\315!\205\315!C \"\316#\317\312\320\321!\322 B\316#\323\312\320\n\316#\324\260\325  \205` @\326! A\203\\\327\f\"\203\\\212\330!\210\331 \210)\332*\2025+\207" [name TeX-check-path TeX-file-extensions buffers regexp found "" TeX-master-file nil "\\`\\(" mapconcat #[(dir) "\301\302\303!!!\207" [dir regexp-quote expand-file-name file-name-as-directory] 4] append file-name-directory "\\|" "\\).*\\(" regexp-quote file-name-nondirectory TeX-style-list "\\)\\.\\(" "\\)\\'" buffer-list buffer-file-name string-match switch-to-buffer ispell-buffer t buffer] 10 (#$ . 149835) (list (TeX-master-file))]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\306 \"\307\310\311\"\210\312\313\314\315#\210\312\316\314\315#\210\312\317\314\315#\210\320\321!\207" [current-load-list ispell-tex-major-modes default-boundp set-default nil append (plain-tex-mode ams-tex-mode latex-mode doctex-mode) eval-after-load "desktop" (progn (dolist (elt '(TeX-master TeX-PDF-mode TeX-interactive-mode TeX-Omega-mode)) (unless (member elt (default-value 'desktop-locals-to-save)) (setq-default desktop-locals-to-save (cons elt (default-value 'desktop-locals-to-save))))) (add-hook 'desktop-after-read-hook '(lambda nil (TeX-set-mode-name t)))) put TeX-newline delete-selection t TeX-insert-dollar TeX-insert-quote provide tex] 4)