;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302W\204\302U\203 \303W\203\304\305!\210\306\307!\210\306\310!\210\306\311!\210\312\313\314\315\316\317%\210\312\320\314\321\316\317%\210\312\322\314\323\324\325\316\317\326\327& \210\312\330\314\331\316\317%\210\332\320\333\334\335DD\336\316\320\337\340&\210\332\341\333\334\342DD\343\316\320\337\344&\210\332\345\333\334\346DD\347\316\320\337\340&\210\332\350\333\334\351DD\352\316\320\337\353&\210\332\354\333\334\355DD\356\316\320\337\357&\210\332\360\333\334\361DD\362\316\320\337\363&\210\332\364\333\334\365DD\366\316\320\337\367&\210\370\364\371\372#\210\332\373\333\334\374DD\375\337\376\316\330&\210\332\377\333\334\201@DD\201A\316\320\337\201B&\210\332\201C\333\334\201DDD\201E\316\320\337\201F&\210\332\201G\333\334\201HDD\201I\316\322\337\201J&\210\332\201K\333\334\201LDD\201M\316\320\337\201N&\210\332\201O\333\334\201PDD\201Q\316\320\337\201R&\210\332\201S\333\334\201TDD\201U\316\320\337\201V&\210\332\201W\333\334\201XDD\201Y\316\320\337\201Z&\210\332\201[\333\334\201\\DD\201]\316\320\337\340&\210\332\201^\333\334\201_DD\201`\316\320\337\201a&\210\332\201b\333\334\201cDD\201d\337\340%\210\201e\201b!\207" [emacs-major-version emacs-minor-version 24 3 error "AUCTeX requires Emacs 24.3 or later" require custom tex-site texmathp custom-declare-group TeX-file nil "Files used by AUCTeX." :group AUCTeX TeX-command "Calling external commands from AUCTeX." LaTeX "LaTeX support in AUCTeX." :tag "LaTeX" :prefix "LaTeX-" TeX-misc "Various AUCTeX settings." custom-declare-variable funcall function #[0 "\300\207" [#1="tex"] 1 #1#] "Command to run plain TeX." :type string TeX-Omega-command #[0 "\300\207" [#2="omega"] 1 #2#] "Command to run plain TeX on Omega." (choice (const :tag "Aleph" "aleph") (const :tag "Omega" "omega") (string :tag "Other command")) LaTeX-command #[0 "\300\207" [#3="latex"] 1 #3#] "Command to run LaTeX." LaTeX-Omega-command #[0 "\300\207" [#4="lambda"] 1 #4#] "Command to run LaTeX on Omega." (choice (const :tag "Lamed" "lamed") (const :tag "Lambda" "lambda") (string :tag "Other command")) TeX-file-line-error #[0 "\300\207" [t] 1] "Whether to have TeX produce file:line:error style error messages." boolean ConTeXt-engine #[0 "\300\207" [nil] 1] "Engine to use for --engine in the texexec command.\nIf nil, none is specified." (choice (const :tag "Unspecified" nil) string) ConTeXt-Omega-engine #[0 "\207" [TeX-Omega-command] 1] "Engine to use for --engine in the texexec command in Omega mode.\nIf nil, none is specified." (choice (const :tag "Unspecified" nil) string) make-obsolete-variable TeX-engine-alist "11.86" TeX-mode-hook #[0 "\300\207" [nil] 1] "A hook run in TeX mode buffers." hook TeX-command-list #[0 "\300\207" [(("TeX" "%(PDF)%(tex) %(file-line-error) %`%(extraopts) %S%(PDFout)%(mode)%' %(output-dir) %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 %(extraopts) %(o-dir) %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with Info output") ("Makeinfo HTML" "makeinfo %(extraopts) %(o-dir) --html %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with HTML output") ("AmSTeX" "amstex %(PDFout) %`%(extraopts) %S%(mode)%' %(output-dir) %t" TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX") ("ConTeXt" "%(cntxcom) --once --texutil %(extraopts) %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt once") ("ConTeXt Full" "%(cntxcom) %(extraopts) %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt until completion") ("BibTeX" "bibtex %(O?aux)" TeX-run-BibTeX nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode context-mode) :help "Run BibTeX") ("Biber" "biber %s %(output-dir)" TeX-run-Biber nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run Biber") ("View" "%V" TeX-run-discard-or-function t t :help "Run 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-dvips t (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Generate PostScript file") ("Dvips" "%(o?)dvips %d -o %f " TeX-run-dvips nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Convert DVI file to PostScript") ("Dvipdfmx" "dvipdfmx %d -o %(O?pdf)" TeX-run-dvipdfmx nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Convert DVI file to PDF with dvipdfmx") ("Ps2pdf" "ps2pdf %f %(O?pdf)" TeX-run-ps2pdf nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Convert PostScript file to PDF") ("Glossaries" "makeglossaries %(O?aux)" TeX-run-command nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run makeglossaries to create glossary file") ("Index" "makeindex %(O?idx)" TeX-run-index nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run makeindex to create index file") ("upMendex" "upmendex %(O?idx)" TeX-run-index t (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run upmendex to create index file") ("Xindy" "texindy %s" TeX-run-command nil (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run xindy to create index file") ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for correctness") ("ChkTeX" "chktex -v6 %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for common mistakes") ("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" #5="" TeX-run-command t t :help "Run an arbitrary command"))] 1] "List of commands to execute on the current document.\n\nEach element is a list, whose first element is the name of the command\nas it will be presented to the user.\n\nThe second element is the string handed to the shell after being\nexpanded. The expansion is done using the information found in\n`TeX-expand-list'.\n\nThe third element is the function which actually start the process.\nSeveral such hooks has been defined:\n\nTeX-run-command: Start up the process and show the output in a\nseparate buffer. Check that there is not two commands running for the\nsame file. Return the process object.\n\nTeX-run-format: As `TeX-run-command', but assume the output is created\nby a TeX macro package. Return the process object.\n\nTeX-run-TeX: For TeX output.\n\nTeX-run-interactive: Run TeX or LaTeX interactively.\n\nTeX-run-BibTeX: For BibTeX output.\n\nTeX-run-Biber: For Biber output.\n\nTeX-run-compile: Use `compile' to run the process.\n\nTeX-run-shell: Use `shell-command' to run the process.\n\nTeX-run-discard: Start the process in the background, discarding its\noutput.\n\nTeX-run-background: Start the process in the background, show output\nin other window.\n\nTeX-run-silent: Start the process in the background.\n\nTeX-run-discard-foreground: Start the process in the foreground,\ndiscarding its output.\n\nTeX-run-function: Execute the Lisp function or function call\nspecified by the string in the second element. Consequently,\nthis hook does not start a process.\n\nTeX-run-discard-or-function: If the command is a Lisp function,\nexecute it as such, otherwise start the command as a process,\ndiscarding its output.\n\nTo create your own hook, define a function taking three arguments: The\nname of the command, the command string, and the name of the file to\nprocess. It might be useful to use `TeX-run-command' in order to\ncreate an asynchronous process.\n\nIf the fourth element is non-nil, the user will get a chance to\nmodify the expanded string.\n\nThe fifth element indicates in which mode(s) the command should be\npresent in the Command menu. Use t if it should be active in any\nmode. If it should only be present in some modes, specify a list with\nthe respective mode names.\n\nAny additional elements get just transferred to the respective menu entries." (repeat (group :value (#5# #5# 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-Biber) (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-item TeX-run-discard-or-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))) TeX-command-output-list #[0 "\300\207" [nil] 1] "List of regexps and file extensions.\n\nEach element is a list, whose first element is a regular expression to\nmatch against the name of the command that will be used to process the TeX\nfile.\n\nThe second element is either a string or a list with a string as element.\nIf it is a string this is the default file extension that will be expected\nfor output files that are produced by commands that match the first\nelement. The real file extension will be obtained from the logging output\nif possible, defaulting to the given string.\nIf it is a list, the element of the list will be the fixed extension used\nwithout looking at the logging output.\n\nIf this list does not yield an extension, the default is either \"dvi\"\nor \"pdf\", depending on the setting of `TeX-PDF-mode'.\nExtensions must be given without the \".\"." (repeat (group (regexp :tag "Command Regexp") (choice (string :tag "Default Extension") (group (string :tag "Fixed Extension"))))) LaTeX-version #[0 "\300\207" [#6="2e"] 1 #6#] "Default LaTeX version. Currently recognized is \"2\" and \"2e\"." (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")) LaTeX-command-style #[0 "\300\207" [((#5# "%(PDF)%(latex) %(file-line-error) %(extraopts) %(output-dir) %S%(PDFout)"))] 1] "List of style options and LaTeX commands.\n\nIf the first element (a regular expression) matches the name of one of\nthe style files, any occurrence of the string `%l' in a command in\n`TeX-command-list' will be replaced with the second element. The first\nmatch is used, if no match is found the `%l' is replaced with the empty\nstring." (repeat (group :value (#5# #5#) regexp (string :tag "Style"))) TeX-print-command #[0 "\300\207" [#7="{ test -e %d && %(o?)dvips -P%p %r %s; } || lpr -P%p %o"] 1 #7#] "Command used to print a file.\n\nFirst `%p' is expanded to the printer name, then ordinary expansion is\nperformed as specified in `TeX-expand-list'. If it is nil,\nthen customization is requested." (choice (string :tag "Print command") (const :tag "No print command customized" nil)) TeX-queue-command #[0 "\300\207" [#8="lpq -P%p"] 1 #8#] "Command used to show the status of a printer queue.\n\nFirst `%p' is expanded to the printer name, then ordinary expansion is\nperformed as specified in `TeX-expand-list'. If this is nil,\nthe printer has no corresponding command." (choice (string :tag "Queue check command") (const :tag "No such command" nil)) TeX-printer-list #[0 "\300\207" [(("Default" "{ test -e %d && %(o?)dvips -f %r %s | lpr; } || lpr %o" "lpq"))] 1] "List of available printers.\n\nThe first element of each entry is the printer name.\n\nThe second element is the command used to print to this\nprinter. It defaults to the value of `TeX-print-command' when nil.\n\nThe third element is the command used to examine the print queue for\nthis printer. It defaults to the value of `TeX-queue-command' similarly.\n\nAny occurrence of `%p' in the second or third element is expanded to\nthe printer name given in the first element, then ordinary expansion\nis performed as specified in `TeX-expand-list'.\n\nIf this list is empty, only `TeX-print-command' and `TeX-queue-command'\nget consulted." (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"))))))) TeX-printer-default #[0 "\301\302!\206\203@@\206\303\207" [TeX-printer-list getenv "PRINTER" "lp"] 2] "Default printer to use with `TeX-command'." TeX-print-style #[0 "\300\207" [(("^landscape$" "-t landscape"))] 1] "List of style options and print options.\n\nIf the first element (a regular expression) matches the name of one of\nthe style files, any occurrence of the string `%r' in a command in\n`TeX-command-list' will be replaced with the second element. The first\nmatch is used, if no match is found the `%r' is replaced with the empty\nstring." (repeat (group regexp (string :tag "Command"))) TeX-command-extra-options #[0 "\300\207" [#5#] 1 #5#] "String with the extra options to be given to the TeX processor." make-variable-buffer-local] 10) #@44 Dynamically bound by `TeX-command-expand'. (defvar TeX-command-text nil (#$ . 13697)) #@44 Dynamically bound by `TeX-command-expand'. (defvar TeX-command-pos nil (#$ . 13789)) #@44 Dynamically bound by `TeX-command-expand'. (defvar TeX-expand-pos nil (#$ . 13880)) #@44 Dynamically bound by `TeX-command-expand'. (defvar TeX-expand-command nil (#$ . 13970)) #@294 List of built-in expansion strings for TeX command names. This should not be changed by the user who can use `TeX-expand-list' variable. The latter variable also contains a description of the data format. Programs should not use these variables directly but the function `TeX-expand-list'. (defvar TeX-expand-list-builtin '(("%q" (lambda nil (TeX-printer-query t))) ("%V" (lambda nil (TeX-source-correlate-start-server-maybe) (TeX-view-command-raw))) ("%r" (lambda nil (TeX-style-check TeX-print-style))) ("%l" (lambda nil (TeX-style-check LaTeX-command-style))) ("%(PDF)" (lambda nil (if (and (eq TeX-engine 'default) (if TeX-PDF-mode (not (TeX-PDF-from-DVI)) TeX-DVI-via-PDFTeX)) "pdf" #1=""))) ("%(PDFout)" (lambda nil (cond ((eq major-mode 'ams-tex-mode) (if TeX-PDF-mode " -output-format=pdf" " -output-format=dvi")) ((and (eq TeX-engine 'xetex) (not TeX-PDF-mode)) " -no-pdf") ((and (eq TeX-engine 'luatex) (not TeX-PDF-mode)) " --output-format=dvi") ((and (eq TeX-engine 'default) (not TeX-PDF-mode) TeX-DVI-via-PDFTeX) " \"\\pdfoutput=0 \"") (t #1#)))) ("%(mode)" (lambda nil (if TeX-interactive-mode #1# " -interaction=nonstopmode"))) ("%(file-line-error)" (lambda nil (if TeX-file-line-error " -file-line-error" #1#))) ("%(o?)" (lambda nil (if (eq TeX-engine 'omega) "o" #1#))) ("%(tex)" (lambda nil (eval (nth 2 (TeX-engine-in-engine-alist TeX-engine))))) ("%(latex)" (lambda nil (eval (nth 3 (TeX-engine-in-engine-alist TeX-engine))))) ("%(cntxcom)" ConTeXt-expand-command) ("%(execopts)" ConTeXt-expand-options) ("%(extraopts)" (lambda nil TeX-command-extra-options)) ("%(output-dir)" TeX--output-dir-arg "--output-directory=") ("%(o-dir)" TeX--output-dir-arg "-o ") ("%S" TeX-source-correlate-expand-options) ("%dS" TeX-source-specials-view-expand-options) ("%cS" TeX-source-specials-view-expand-client) ("%(outpage)" (lambda nil (and TeX-source-correlate-mode (null TeX-source-correlate-output-page-function) (eq (TeX-source-correlate-method-active) 'synctex) (setq TeX-source-correlate-output-page-function #'TeX-synctex-output-page)) (or (if TeX-source-correlate-output-page-function (funcall TeX-source-correlate-output-page-function)) "1"))) ("%s" TeX-active-master-with-quotes nil t) ("%t" TeX-active-master-with-quotes t t) ("%(t-filename-only)" TeX-active-master-with-quotes t t nil nil file-name-nondirectory) ("%`" (lambda nil (setq TeX-command-pos t TeX-command-text nil) #1#)) (" \"\\" (lambda nil (if (eq TeX-command-pos t) (setq TeX-command-pos TeX-expand-pos TeX-expand-pos (+ 3 TeX-expand-pos)) (setq TeX-expand-pos (1+ TeX-expand-pos))))) ("\"" (lambda nil (if (numberp TeX-command-pos) (setq TeX-command-text (concat TeX-command-text (substring TeX-expand-command TeX-command-pos (1+ TeX-expand-pos))) TeX-expand-command (concat (substring TeX-expand-command 0 TeX-command-pos) (substring TeX-expand-command (1+ TeX-expand-pos))) TeX-expand-pos TeX-command-pos TeX-command-pos t) (setq TeX-expand-pos (1+ TeX-expand-pos))))) ("%'" (lambda nil (setq TeX-command-pos nil) (if (stringp TeX-command-text) (progn (setq TeX-expand-pos (+ TeX-expand-pos (length TeX-command-text) 9)) (concat TeX-command-text " \"\\input\"")) #1#))) ("%T" TeX-active-master-with-quotes t t nil t) ("%n" TeX-current-line) ("%d" TeX-active-master-with-quotes "dvi" t) ("%f" TeX-active-master-with-quotes "ps" t) ("%(O?aux)" TeX-active-master-with-quotes "aux" t) ("%(O?idx)" TeX-active-master-with-quotes "idx" t) ("%(O?pdf)" TeX-active-master-with-quotes "pdf" t) ("%o" (lambda nil (TeX-active-master-with-quotes (TeX-output-extension) t))) ("%b" TeX-current-file-name-master-relative) ("%a" (lambda nil (prin1-to-string (expand-file-name (buffer-file-name))))) ("%m" preview-create-subdirectory)) (#$ . 14065)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-expand-list funcall function #[0 "\300\207" [nil] 1] "List of expansion strings for TeX command names defined by the user.\n\nEach entry is a list with two or more elements. The first\nelement is the string to be expanded. The second element is the\nname of a function returning the expanded string when called with\nthe remaining elements as arguments.\nThe second element can also be a variable name whose value is\nsuch function.\n\nBuilt-in expansions provided in `TeX-expand-list-builtin' can be\noverwritten by defining expansions strings with the same\nexpander. Only \"%p\" expander cannot be overwritten.\n\nPrograms should not use these variables directly but the function\n`TeX-expand-list'." :group TeX-command :type (repeat (group (string :tag "Key") (sexp :tag "Expander") (repeat :inline t :tag "Arguments" (sexp :format "%v"))))] 8) #@157 Complete list of expansion strings for TeX command names. Concatenate `TeX-expand-list' and `TeX-expand-list-builtin' making sure "%p" is the first entry. (defalias 'TeX-expand-list #[0 "\302\303 #\207" [TeX-expand-list TeX-expand-list-builtin append (("%p" TeX-printer-query))] 4 (#$ . 18737)]) (byte-code "\300\301\302\303\304$\210\300\305\302\303\304$\210\300\306\302\"\210\300\307\302\"\210\300\310\302\303\304$\210\300\311\302\"\210\300\312\302\303\304$\210\300\313\302\303\304$\210\300\314\302\303\304$\210\300\315\302\303\304$\210\300\316\302\"\210\300\317\302\303\304$\210\300\320\302\303\304$\210\300\321\302\303\304$\210\300\322\302\303\304$\210\300\323\302\303\304$\210\300\324\302\"\210\300\325\302\303\304$\210\300\326\302\"\210\300\327\302\"\210\300\330\302\303\304$\210\300\331\302\"\210\300\332\302\"\210\300\333\302\303\304$\210\300\334\302\303\304$\207" [autoload LaTeX-command-run-all-section "tex-buf" nil t LaTeX-command-section TeX-active-master TeX-command TeX-command-buffer TeX-command-expand TeX-command-master TeX-command-region TeX-command-run-all TeX-command-run-all-region TeX-current-offset TeX-error-overview TeX-home-buffer TeX-kill-job TeX-next-error TeX-previous-error TeX-output-extension TeX-pin-region TeX-pop-to-buffer TeX-process-set-variable TeX-recenter-output-buffer TeX-region-create TeX-region-file TeX-save-document TeX-view] 5) #@374 Execute THEN if macro NAME is bound and ELSE otherwise. Essentially, (TeX--if-macro-fboundp name then else...) is equivalent to (if (fboundp 'name) then else...) but takes care of byte-compilation issues where the byte-code for the latter could signal an error if it has been compiled with emacs 24.1 and is then later run by emacs 24.5. (fn NAME THEN &rest ELSE) (defalias 'TeX--if-macro-fboundp '(macro . #[642 "\300!\203\207\301\300\302DD\303\302DDBBB\207" [fboundp if quote eval] 8 (#$ . 20121)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\210\311\312\313\"\210\314\315!\203#\315\316\317\320#\210\202/\321\316\322\323\324$\210\325\316\324\"\210\324\207" [function-put TeX--if-macro-fboundp lisp-indent-function 2 put edebug-form-spec (symbolp form &rest form) require easymenu eval-after-load info #[0 "\300\211\205\211@\301\302\303B\"\210A\266\202\202\207" [("TeX" "LaTeX" "ConTeXt" "Texinfo" "docTeX") add-to-list Info-file-list-for-emacs "AUCTeX"] 6] fboundp advice-add hack-one-local-variable :after TeX--call-minor-mode ad-add-advice (TeX-hack-one-local-variable-after nil t (advice lambda nil (TeX--call-minor-mode (ad-get-arg 0) (ad-get-arg 1)))) after nil ad-activate] 6) #@81 Call minor mode function if minor mode variable is found. (fn VAR VAL &rest _) (defalias 'TeX--call-minor-mode #[642 "\300>\205J\203\301\202\302!\207" [(TeX-PDF-mode TeX-source-correlate-mode TeX-interactive-mode TeX-fold-mode LaTeX-math-mode) 1 0] 5 (#$ . 21353)]) #@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 (#$ . 21636)) (byte-code "\302\303!\210\304U\203 \305Y\204\306Y\203\307\310\311\"\210\202#\307\310\312\"\210\302\207" [emacs-major-version emacs-minor-version require crm 24 4 25 defalias TeX-completing-read-multiple #[2050 "\306\216\307\310\311\"\210\312\313=?\205\203\f\202 \314 \315&\315\203=\316\230\203=\262\317\"\211\262\320\232?\205L\211,\266\203)\207" [minibuffer-completion-table minibuffer-completion-predicate minibuffer-completion-confirm crm-completion-table crm-local-must-match-map crm-local-completion-map #[0 "\300\301\302\"\207" [remove-hook choose-completion-string-functions crm--choose-completion-string] 3] add-hook choose-completion-string-functions crm--choose-completion-string crm--collection-fn t read-from-minibuffer nil #1="" split-string (#1#) crm-separator] 17 "Like `completing-read-multiple' which see.\nRetain zero-length substrings but ensure that empty input results\nin nil across different emacs versions.\n\n(fn PROMPT TABLE &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD)"] #[2050 "\300&\211\301\232?\205\211\207" [completing-read-multiple (#1#)] 17 "Like `completing-read-multiple' which see.\nEnsures that empty input results in nil across different emacs versions.\n\n(fn PROMPT TABLE &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD)"]] 3) #@61 (fn PROMPT &optional INITIAL-INPUT HISTORY DEFAULT-VALUE) (defalias 'TeX-read-string #[1025 "\300\301%\207" [read-string t] 10 (#$ . 23251)]) (defalias 'TeX-active-mark #[0 "\205 \207" [transient-mark-mode mark-active] 1]) (defalias 'TeX-activate-region #[0 "\301\302 \207" [deactivate-mark nil activate-mark] 1]) #@220 Calculate a priority for an overlay extending from START to END. The calculated priority is lower than the minimum of priorities of surrounding overlays and higher than the maximum of enclosed overlays. (fn START END) (defalias 'TeX-overlay-prioritize #[514 "\301\211\211\302\"\211\203H\211@\303\304\"\305=\204\303\306\"\203A\303\307\"\262\310!Y\2038\2062]\262\202A\206>^\262A\266\202\202\210\203U\204U\\\207\204a\203a\311\245\207\203q\203qZ\311\245\\\207\207" [TeX-overlay-priority-step nil overlays-in overlay-get category TeX-fold preview-state priority overlay-start 2] 10 (#$ . 23582)]) #@154 Return a list of all elements in ALIST, but each car only once. Elements of KEEP-LIST are not removed even if duplicate. (fn ALIST &optional KEEP-LIST) (defalias 'TeX-delete-dups-by-car #[513 "\300!\262\301\302!\303\"\262\304A\203O@@\262\203+@\231\203+A\262\202\2036\211@\230\204H\211A@@\230\203H\211AA\241\210\2026A\262\202\266\207" [TeX-sort-strings sort copy-sequence TeX-car-string-lessp nil] 6 (#$ . 24229)]) #@70 Return a list of all strings in LIST, but each only once. (fn LIST) (defalias 'TeX-delete-duplicate-strings #[257 "\300!\262\211\301A\203(@\262\211A@\230\203!\211AA\241\210\202A\262\202\266\207" [TeX-sort-strings nil] 5 (#$ . 24682)]) #@55 Return sorted list of all strings in LIST. (fn LIST) (defalias 'TeX-sort-strings #[257 "\300\301!\302\"\207" [sort copy-sequence string<] 4 (#$ . 24940)]) #@129 Compare the cars of S1 and S2 in lexicographic order. Return t if first is less than second in lexicographic order. (fn S1 S2) (defalias 'TeX-car-string-lessp #[514 "@@\231\207" [] 4 (#$ . 25104)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317&\210\310\320\312\313\321DD\322\306\301\316\323&\210\310\324\312\313\325DD\326\306\301\316\323&\210\310\327\312\313\330DD\331\306\332\316\333&\210\310\334\312\313\335DD\336\306\332\316\323&\207" [custom-declare-group TeX-output nil "Parsing TeX output." :prefix "TeX-" :group AUCTeX custom-declare-variable TeX-display-help funcall function #[0 "\300\207" [t] 1] "Control type of help display when stepping through errors with \\[TeX-next-error].\nIf t display help buffer. If nil display message about error in\necho area. If `expert' display output buffer with raw processor output." :type (choice (const :tag "Help buffer" t) (const :tag "Echo area" nil) (const :tag "Output buffer" expert)) TeX-debug-bad-boxes #[0 "\300\207" [nil] 1] "Non-nil means also find overfull/underfull box warnings with \\[TeX-next-error]." boolean TeX-debug-warnings #[0 "\300\207" [nil] 1] "Non-nil means also find LaTeX or package warnings with \\[TeX-next-error]." TeX-ignore-warnings #[0 "\300\207" [nil] 1] "Controls which warnings are to be ignored.\n\nIt can be either a regexp matching warnings to be ignored, or a\nsymbol with the name of a custom function taking as arguments all\nthe information of the warning listed in `TeX-error-list', except\nthe last one about whether to ignore the warning.\n\nIf you want to use the custom function, see how it is used in the\ncode of `TeX-warning'." TeX-command (choice (const :tag "Do not ignore anything" nil) (string :tag "Regexp") (symbol :tag "Function name")) TeX-suppress-ignored-warnings #[0 "\300\207" [nil] 1] "Whether to actually show ignored warnings.\n\nNote that `TeX-debug-warnings' always takes the precedence."] 8) #@56 Toggle if the debugger should display "bad boxes" too. (defalias 'TeX-toggle-debug-bad-boxes #[0 "?\301\302\203 \303\202\304P!\207" [TeX-debug-bad-boxes message "TeX-debug-bad-boxes: " "on" "off"] 3 (#$ . 27076) nil]) #@53 Toggle if the debugger should display warnings too. (defalias 'TeX-toggle-debug-warnings #[0 "?\301\302\203 \303\202\304P!\207" [TeX-debug-warnings message "TeX-debug-warnings: " "on" "off"] 3 (#$ . 27306) nil]) #@142 Toggle if the debugger should display ignored warnings too. See `TeX-suppress-ignored-warnings' and `TeX-ignore-warnings' for more details. (defalias 'TeX-toggle-suppress-ignored-warnings #[0 "?\301\302\203 \303\202\304P!\207" [TeX-suppress-ignored-warnings message "TeX-suppress-ignored-warnings: " "on" "off"] 3 (#$ . 27531) nil]) #@20 Base name of mode. (defvar TeX-base-mode-name nil (#$ . 27877)) (make-variable-buffer-local 'TeX-base-mode-name) #@590 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 of 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. (fn &optional CHANGED LOCAL RESET) (defalias 'TeX-set-mode-name #[768 "\2038\203\306p\"\2048\307 \211\2057\211@\306\300\"\2030\306\"\2040r\211q\210\310\311\211#\210)A\266\202\202\207\205\214\312\301!\205G \205G\313\312\302!\205R\n\205R\314 \205W\315\f\205\\\316 \205a\317\260G\320V\205o\321PP\203\206\322\323 \324#\210\322\325 \324#\210\326\327 !\262\207" [TeX-mode-p TeX-fold-mode LaTeX-math-mode TeX-PDF-mode TeX-interactive-mode TeX-source-correlate-mode local-variable-p buffer-list TeX-set-mode-name nil boundp "F" "M" "P" "I" "S" 0 "/" TeX-process-set-variable TeX-master-file TeX-command-next TeX-region-file set-buffer-modified-p buffer-modified-p TeX-base-mode-name mode-name TeX-command-default] 9 (#$ . 27997)]) #@123 Return the prefix for the symbol MODE as string. If no mode is given the current major mode is used. (fn &optional MODE) (defalias 'TeX-mode-prefix #[256 "\301\206\302\"A\207" [major-mode assoc ((plain-tex-mode . "plain-TeX") (latex-mode . "LaTeX") (ams-tex-mode . "AmSTeX") (doctex-mode . "docTeX") (texinfo-mode . "Texinfo") (context-mode . "ConTeXt"))] 4 (#$ . 29322)]) (custom-declare-group 'TeX-view nil "Calling viewers from AUCTeX." :group 'TeX-command) #@158 Alist of built-in predicates for viewer selection and invocation. See the doc string of `TeX-view-predicate-list' for a short description of each predicate. (defvar TeX-view-predicate-list-builtin '((output-dvi (string-match "dvi" (TeX-output-extension))) (output-pdf (string-match "pdf" (TeX-output-extension))) (output-html (string-match "html" (TeX-output-extension))) (has-no-display-manager (not (display-graphic-p))) (style-pstricks (TeX-match-style "^pstricks$\\|^pst-\\|^psfrag$")) (engine-omega (eq TeX-engine 'omega)) (engine-xetex (eq TeX-engine 'xetex)) (mode-io-correlate TeX-source-correlate-mode) (paper-landscape (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option "\\`landscape\\'"))) (paper-portrait (not (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option "\\`landscape\\'")))) (paper-a4 (let ((regex "\\`\\(?:a4paper\\|a4dutch\\|a4wide\\|sem-a4\\)\\'")) (or (TeX-match-style regex) (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option regex))))) (paper-a5 (let ((regex "\\`\\(?:a5paper\\|a5comb\\)\\'")) (or (TeX-match-style regex) (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option regex))))) (paper-b5 (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option "\\`b5paper\\'"))) (paper-letter (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option "\\`letterpaper\\'"))) (paper-legal (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option "\\`legalpaper\\'"))) (paper-executive (and (fboundp 'LaTeX-match-class-option) (LaTeX-match-class-option "\\`executivepaper\\'")))) (#$ . 29795)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-view-predicate-list funcall function #[0 "\300\207" [nil] 1] "Alist of predicates for viewer selection and invocation.\nThe key of each list item is a symbol and the value a Lisp form\nto be evaluated. The form should return nil if the predicate is\nnot fulfilled.\n\nBuilt-in predicates provided in `TeX-view-predicate-list-builtin'\ncan be overwritten by defining predicates with the same symbol.\n\nThe following built-in predicates are available:\n `output-dvi': The output is a DVI file.\n `output-pdf': The output is a PDF file.\n `output-html': The output is an HTML file.\n `style-pstricks': The document loads a PSTricks package.\n `engine-omega': The Omega engine is used for typesetting.\n `engine-xetex': The XeTeX engine is used for typesetting.\n `mode-io-correlate': TeX Source Correlate mode is active.\n `paper-landscape': The document is typeset in landscape orientation.\n `paper-portrait': The document is not typeset in landscape orientation.\n `paper-a4': The paper format is A4.\n `paper-a5': The paper format is A5.\n `paper-b5': The paper format is B5.\n `paper-letter': The paper format is letter.\n `paper-legal': The paper format is legal.\n `paper-executive': The paper format is executive." :group TeX-view :type (alist :key-type symbol :value-type (group sexp))] 8) #@452 Return non-nil, if an evince-compatible reader is accessible via DBUS. Additional OPTIONS may be given to extend the check. If none are given, only the minimal requirements needed by backward search are checked. If OPTIONS include `:forward', which is currently the only option, then additional requirements needed by forward search are checked, too. DE is the name of the desktop environment, APP is the name of viewer. (fn DE APP &rest OPTIONS) (defalias 'TeX-evince-dbus-p #[642 "\301\302\303!\205f\304\305\301\306#\205f\3071\310\311!0\202'\205%\312@A\"\262\205f\313\311\314\315#\"\205f\316>?\206f\317\311\314\315#\314\320#\314\315#\321%\211\205d\322\301\323\324\"\"\325\232\262)\207" [dbus-debug nil featurep dbusbind require dbus :no-error (dbus-error) dbus-get-unique-name :session signal dbus-ping format "org.%s.%s.Daemon" :forward dbus-introspect-get-method "/org/%s/%s/Daemon" "FindDocument" delq mapcar #[257 "\211<\205\211@\300=\205\211A@@A\207" [arg] 3 "\n\n(fn ELEM)"] ("s" "b" "s")] 11 (#$ . 32807)]) #@224 Focus the focused page/paragraph in `pdf-view-mode'. If `TeX-source-correlate-mode' is disabled, only find and pop to the output PDF file. Used by default for the PDF Tools viewer entry in `TeX-view-program-list-builtin'. (defalias 'TeX-pdf-tools-sync-view #[0 "\303\304!\204\n\305\306!\210\204\305\307!\210\310\311\312\"\210 \2035\303\313!\2035r\n\203.\314\315\316!!\206/pq\210\313 )\207\317\320 !\321\322!\206C\323!!\207" [TeX-PDF-mode TeX-source-correlate-mode TeX-current-process-region-p fboundp pdf-tools-install error "PDF Tools are not available" "PDF Tools only work with PDF output" add-hook pdf-sync-backward-redirect-functions TeX-source-correlate-handle-TeX-region pdf-sync-forward-search get-file-buffer TeX-region-file t TeX-active-master TeX-output-extension pop-to-buffer find-buffer-visiting find-file-noselect] 4 (#$ . 33872)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-view-evince-keep-focus funcall function #[0 "\300\207" [nil] 1] "Whether Emacs retains the focus when viewing PDF files with Evince.\n\nWhen calling `TeX-evince-sync-view', Evince normally captures the\nfocus. If this option is set to non-nil, Emacs will retain the\nfocus." :group TeX-view :type boolean] 8) #@307 Focus the focused page/paragraph in Evince with the position of point in emacs by using Evince's DBUS API. Used by default for the Evince-compatible entries in `TeX-view-program-list-builtin' if the requirements are met. DE is the name of the desktop environment, APP is the name of viewer. (fn DE APP) (defalias 'TeX-evince-sync-view-1 #[514 "\302\303!\210\304\305\306\307\310\311\312\313 !!!#P\314\315\316\317#\316\320#\316\317#\321\322&\211\203pr\203@\323\324\322!!\206Apq\210\314\315\316\325#\316\326  #\327\330 \331\332\333 T\332iT\257\334\335& \210 \205n\336\337 !)\207\340\341\342!#\207" [TeX-current-process-region-p TeX-view-evince-keep-focus require url-util "file://" replace-regexp-in-string "[?]" "%3F" url-encode-url expand-file-name TeX-active-master TeX-output-extension dbus-call-method :session format "org.%s.%s.Daemon" "/org/%s/%s/Daemon" "FindDocument" t get-file-buffer TeX-region-file "/org/%s/%s/Window/0" "org.%s.%s.Window" "SyncView" buffer-file-name :struct :int32 TeX-current-offset :uint32 0 select-frame-set-input-focus selected-frame error "Couldn't find the %s instance for %s" capitalize] 16 (#$ . 35138)]) #@60 Run `TeX-evince-sync-view-1', which see, set up for Atril. (defalias 'TeX-atril-sync-view #[0 "\300\301\302\"\207" [TeX-evince-sync-view-1 "mate" "atril"] 3 (#$ . 36317)]) #@61 Run `TeX-evince-sync-view-1', which see, set up for Evince. (defalias 'TeX-evince-sync-view #[0 "\300\301\302\"\207" [TeX-evince-sync-view-1 "gnome" "evince"] 3 (#$ . 36495)]) #@62 Run `TeX-evince-sync-view-1', which see, set up for Xreader. (defalias 'TeX-reader-sync-view #[0 "\300\301\302\"\207" [TeX-evince-sync-view-1 "x" "reader"] 3 (#$ . 36677)]) #@128 Select how to call the Evince-like viewer. DE is the name of the desktop environment, APP is the name of viewer. (fn DE APP) (defalias 'TeX-view-program-select-evince #[514 "\300\301#\203\302\303\304\"!\207\211\305\306\307\310\311P!\"\203 \312\202!\313D\314BB\207" [TeX-evince-dbus-p :forward intern format "TeX-%s-sync-view" mode-io-correlate string-match "--page-index" shell-command-to-string " --help" " -i %(outpage)" " -p %(outpage)" (" %o")] 9 (#$ . 36857)]) #@260 Alist of built-in viewer specifications. This variable should not be changed by the user who can use `TeX-view-program-list' to add new viewers or overwrite the definition of built-in ones. The latter variable also contains a description of the data format. (defvar TeX-view-program-list-builtin (byte-code "\301\267\202\n\302\207\303\207\304\305\306\307\310\311DE\312\313\314\315\316\317\"\320BB\321\315\322\323\"\324BB\325\315\326\327\"\330BB\331BBBBBBBB\207" [system-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (windows-nt 6 darwin 8)) (("Yap" ("yap -1" (mode-io-correlate " -s %n%b") " %o") "yap") ("dviout" ("dviout -1 " ((paper-a4 paper-portrait) "-y=A4 ") ((paper-a4 paper-landscape) "-y=A4L ") ((paper-a5 paper-portrait) "-y=A5 ") ((paper-a5 paper-landscape) "-y=A5L ") ((paper-b5 paper-portrait) "-y=E5 ") ((paper-b5 paper-landscape) "-y=E5L ") ((paper-b4jis paper-portrait) "-y=B4 ") ((paper-b4jis paper-landscape) "-y=B4L ") ((paper-b5jis paper-portrait) "-y=B5 ") ((paper-b5jis paper-landscape) "-y=B5L ") (paper-legal "-y=Legal ") (paper-letter "-y=Letter ") (paper-executive "-y=Executive ") "%d" (mode-io-correlate " \"# %n '%b'\"")) "dviout") ("PDF Tools" TeX-pdf-tools-sync-view) ("SumatraPDF" ("SumatraPDF -reuse-instance" (mode-io-correlate " -forward-search \"%b\" %n") " %o") "SumatraPDF") ("dvips and start" "dvips %d -o && start \"\" %f" "dvips") ("start" "start \"\" %o")) (("Preview.app" "open -a Preview.app %o" "open") ("Skim" "open -a Skim.app %o" "open") ("PDF Tools" TeX-pdf-tools-sync-view) ("displayline" "displayline %n %o %b" "displayline") ("open" "open %o" "open")) ("dvi2tty" ("dvi2tty -q -w 132 %o")) ("xdvi" ("%(o?)xdvi" (mode-io-correlate " -sourceposition \"%n %b\" -editor \"%cS\"") ((paper-a4 paper-portrait) " -paper a4") ((paper-a4 paper-landscape) " -paper a4r") ((paper-a5 paper-portrait) " -paper a5") ((paper-a5 paper-landscape) " -paper a5r") (paper-b5 " -paper b5") (paper-letter " -paper us") (paper-legal " -paper legal") (paper-executive " -paper 7.25x10.5in") " %d") "%(o?)xdvi") "dvips and gv" "%(o?)dvips %d -o && gv %f" "%(o?)dvips" "gv" ("gv" "gv %o" "gv") ("xpdf" ("xpdf -remote %s -raise %o" (mode-io-correlate " %(outpage)")) "xpdf") "Evince" TeX-view-program-select-evince "gnome" "evince" ("evince") "Atril" "mate" "atril" ("atril") "Xreader" "x" "reader" ("xreader") (("Okular" ("okular --unique %o" (mode-io-correlate "#src:%n%a")) "okular") ("xdg-open" "xdg-open %o" "xdg-open") ("PDF Tools" TeX-pdf-tools-sync-view) ("Zathura" ("zathura %o" (mode-io-correlate " --synctex-forward %n:0:\"%b\" -x \"emacsclient +%{line} %{input}\"")) "zathura"))] 11) (#$ . 37340)) (byte-code "\304\302\305\306\307DD\310\311\312\313\314\315\316\317\320\321\322\323\324\325\314\324\325\317\326\315\324\327\330C\331\332\333\"\334 \"\"\210\211\335\242\336\"\240\210\317\211\324\337\242BBB\314\324\340\317\324\337\242BBBFE\262\341BBBBEF\257\342BBB\343BBBD&\210\304\344\305\306\345DD\346\311\312\313\347\350\330C\331\332\351\"\334 \"\"\210\211\335\242\352\"\240\210\317\211\324\353\242BBB\314\324\354\317\242BFE\262\355\321\317\324\356\330C\331\332\357\"\334\n \"\"\210\335\242\360\"\262BBBD\257&\207" [TeX-view-predicate-list TeX-view-predicate-list-builtin TeX-view-program-list TeX-view-program-list-builtin custom-declare-variable funcall function #[0 "\300\207" [nil] 1] "List of viewer specifications.\nThis variable can be used to specify how a viewer is to be\ninvoked and thereby add new viewers on top of the built-in list\nof viewers defined in `TeX-view-program-list-builtin' or override\nentries in the latter.\n\nThe car of each item is a string with a user-readable name. The\nsecond element can be a command line to be run as a process or a\nLisp function to be executed. The command line can either be\nspecified as a single string or a list of strings and two-part\nlists. The first element of the two-part lists is a symbol or a\nlist of symbols referring to one or more of the predicates in\n`TeX-view-predicate-list' or `TeX-view-predicate-list-builtin'.\nThe second part of the two-part lists is a command line part.\nThe command line for the viewer is constructed by concatenating\nthe command line parts. Parts with a predicate are only\nconsidered if the predicate was evaluated with a positive result.\nNote that the command line can contain placeholders as defined in\n`TeX-expand-list' which are expanded before the viewer is called.\nThe third element of the item is optional and is a string, or a\nlist of strings, with the name of the executable, or executables,\nneeded to open the output file in the viewer. Placeholders\ndefined in `TeX-expand-list' can be used here. This element is\nused to check whether the viewer is actually available on the\nsystem.\n\nThe use of a function as the second element only works if the\nView command in `TeX-command-list' makes use of the hook\n`TeX-run-discard-or-function'.\n\nNote: Predicates defined in the current Emacs session will only\nshow up in the customization interface for this variable after\nrestarting Emacs." :group TeX-view :type repeat list (string :tag "Name") choice (group :tag "Command" (string :tag "Command")) group :inline t :tag "Command parts" (string :tag "Command part") "Predicate and command part" nil mapc make-closure #[257 "\300\301@D\211\300\242\235\203\300\242\202\211\300\242B\262\240\207" [V0 const] 5 "\n\n(fn SPEC)"] append sort #[514 "\300A@!\227\300A@!\227\231\207" [symbol-name] 5 "\n\n(fn A B)"] "Predicate" "List of predicates" ((string :tag "Command part")) ((group :tag "Function" function)) ((choice :tag "Viewer executable(s)" (string :tag "One executable") (repeat :tag "List of executables" (string :tag "Name")) (const :tag "No executable" nil))) TeX-view-program-selection #[0 "\301\267\202\n\302\207\303\207\304\207" [system-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (windows-nt 6 darwin 8)) (((output-dvi style-pstricks) "dvips and start") (output-dvi "Yap") (output-pdf "start") (output-html "start")) ((output-dvi "open") (output-pdf "open") (output-html "open")) (((output-dvi has-no-display-manager) "dvi2tty") ((output-dvi style-pstricks) "dvips and gv") (output-dvi "xdvi") (output-pdf "Evince") (output-html "xdg-open"))] 2] "Alist of predicates and viewers.\nEach entry consists of a list with two elements. The first\nelement is a symbol or list of symbols referring to predicates as\ndefined in `TeX-view-predicate-list' or\n`TeX-view-predicate-list-builtin'. The second element is a\nstring referring to the name of a viewer as defined in\n`TeX-view-program-list' or `TeX-view-program-list-builtin'.\n(Note: Viewers added to `TeX-view-program-list' in the current\nEmacs session will not show up in the customization interface of\n`TeX-view-program-selection' until you restart Emacs.)\n\nWhen a viewer is called for, the entries are evaluated in turn\nand the viewer related to the first entry all predicates of which\nare evaluated positively is chosen." alist :key-type #[257 "\300\301@D\211\300\242\235\203\300\242\202\211\300\242B\262\240\207" [V0 const] 5 "\n\n(fn SPEC)"] #[514 "\300A@!\227\300A@!\227\231\207" [symbol-name] 5 "\n\n(fn A B)"] "Single predicate" "Multiple predicates" :value-type "Viewer" #[257 "\300\301@D\211\300\242\235\203\300\242\202\211\300\242B\262\240\207" [V0 const] 5 "\n\n(fn SPEC)"] #[514 "A@\227A@\227\231\207" [] 4 "\n\n(fn A B)"]] 35) #@58 Check if a style matching REGEXP is active. (fn REGEXP) (defalias 'TeX-match-style #[257 "\300\301 \302#\207" [TeX-member TeX-style-list string-match] 5 (#$ . 44852)]) #@328 Check if PREDICATE is true. PREDICATE can be a symbol or a list of symbols defined in `TeX-view-predicate-list-builtin' or `TeX-view-predicate-list'. In case of a single symbol, return t if the predicate is true, nil otherwise. In case of a list of symbols, return t if all predicates are true, nil otherwise. (fn PREDICATE) (defalias 'TeX-view-match-predicate #[257 "\211<\203 \211\202 \211C\302 \"\303\304\211A\262\242\211\262\2032\2032\305\236A@\303\"\204\304\262\202\207" [TeX-view-predicate-list TeX-view-predicate-list-builtin append t nil eval] 8 (#$ . 45029)]) #@59 Choose a viewer and return its unexpanded command string. (defalias 'TeX-view-command-raw #[0 "\303\211\211\211\211\211\211A\262\242\211\262\203(\204(\304@!\203A@\262\202\2040\305\306!\210\307\310 \n\"\"\262A@\262\3118\262\203\207;\203T\312\313!!\202|<\203\3142|\211\203x\211@\312\313!!\204q\315\314\303\"\210A\266\202\202^\316\2620\204\207\305\317\320\"!\210\321!\203\221\322!\207;\203\230\207\204\244\305\317\323\"!\207\211\203\322\211@\211;\203\270P\262\202\313\211<\203\313\304@!\203\313A@P\262A\266\202\202\245\210\211;\203\331\207\305\324!\207" [TeX-view-program-selection TeX-view-program-list TeX-view-program-list-builtin nil TeX-view-match-predicate error "No matching viewer found" assoc append 2 executable-find TeX-command-expand notfound throw t format "Cannot find %S viewer. Select another one in `TeX-view-program-selection'" functionp prin1-to-string "Unknown %S viewer. Check the `TeX-view-program-selection' variable" "Wrong viewer specification in `TeX-view-program-list'"] 12 (#$ . 45623)]) #@112 Alist of built-in TeX engines and associated commands. For a description of the format see `TeX-engine-alist'. (defvar TeX-engine-alist-builtin '((default "Default" TeX-command LaTeX-command ConTeXt-engine) (xetex "XeTeX" "xetex" "xelatex" "xetex") (luatex "LuaTeX" "luatex" "lualatex --jobname=%s" "luatex") (omega "Omega" TeX-Omega-command LaTeX-Omega-command ConTeXt-Omega-engine)) (#$ . 46714)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-engine-alist funcall function #[0 "\300\207" [nil] 1] "Alist of TeX engines and associated commands.\nEach entry is a list with a maximum of five elements. The first\nelement is a symbol used to identify the engine. The second is a\nstring describing the engine. The third is the command to be\nused for plain TeX. The fourth is the command to be used for\nLaTeX. The fifth is the command to be used for the --engine\nparameter of ConTeXt's texexec program. Each command can either\nbe a variable or a string. An empty string or nil means there is\nno command available.\n\nYou can override a built-in engine defined in the variable\n`TeX-engine-alist-builtin' by adding an entry beginning with the\nsame symbol as the built-in entry to `TeX-engine-alist'." :group TeX-command :type (repeat (group symbol (string :tag "Name") (choice :tag "Plain TeX command" string variable) (choice :tag "LaTeX command" string variable) (choice :tag "ConTeXt command" string variable)))] 8) #@278 Return an alist of TeX engines. The function appends the built-in engine specs from `TeX-engine-alist-builtin' and the user-defined engines from `TeX-engine-alist' and deletes any entries from the built-in part where an entry with the same car exists in the user-defined part. (defalias 'TeX-engine-alist #[0 "\302\303 \"!\207" [TeX-engine-alist TeX-engine-alist-builtin TeX-delete-dups-by-car append] 4 (#$ . 48194)]) #@120 Return the `engine' entry in `TeX-engine-alist'. Throw an error if `engine' is not present in the alist. (fn ENGINE) (defalias 'TeX-engine-in-engine-alist #[257 "\211\300 \236\206\301\302\303\304\300 \305##\207" [TeX-engine-alist error "`%s' is not a known engine. Valid values are: %s." mapconcat #[257 "\300@!\207" [prin1-to-string] 3 "\n\n(fn X)"] ", "] 8 (#$ . 48621)]) (byte-code "\300\301\302\303\304DD\305\306\307\310 \311#P\312\313\314\315\316\317\310 \"B&\210\320\301!\210\321\301\322\323#\207" [custom-declare-variable TeX-engine funcall function #[0 "\300\207" [default] 1] "Type of TeX engine to use.\nIt should be one of the following symbols:\n\n" mapconcat #[257 "\300\301@\"\207" [format "* `%s'"] 4 "\n\n(fn X)"] TeX-engine-alist "\n" :group TeX-command :type choice mapcar #[257 "\300\301A@@F\207" [const :tag] 5 "\n\n(fn X)"] make-variable-buffer-local put safe-local-variable #[257 "\211\301\302\">\207" [TeX-engine-alist-builtin mapcar car] 5 "\n\n(fn ARG)"]] 11) #@84 Set TeX engine to TYPE. For available TYPEs, see variable `TeX-engine'. (fn TYPE) (defalias 'TeX-engine-set #[257 "\211;\203\n\302!\262\211\211\303\267\202\304\305!\210\306\211\207\304\307!\207\306\207" [TeX-engine TeX-PDF-from-DVI intern #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (xetex 18 omega 26)) TeX-PDF-mode 1 nil 0] 3 (#$ . 49624) (byte-code "\300\301\302\303\304 \"\305\306$C\207" [completing-read "Engine: " mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] TeX-engine-alist nil t] 5)]) #@97 Non-nil if Tex-Omega mode is enabled. Use the command `TeX-Omega-mode' to change this variable. (defvar TeX-Omega-mode nil (#$ . 50185)) (make-variable-buffer-local 'TeX-Omega-mode) #@592 Minor mode for using the Omega engine. This is a minor mode. If called interactively, toggle the `Tex-Omega mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `TeX-Omega-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'TeX-Omega-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\203:\312\202;\313!\210\314\315\203G\316\202H\317\"\210\320\321!\203j\302 \203\\\211\302 \232\203j\322\323\203f\324\202g\325\326#\210\210\327 \210\207" [TeX-Omega-mode local-minor-modes current-message toggle 1 nil t boundp delq TeX-engine-set omega default run-hooks TeX-Omega-mode-hook TeX-Omega-mode-on-hook TeX-Omega-mode-off-hook called-interactively-p any message "Tex-Omega mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 50374) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar TeX-Omega-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\312\"\210\316\312\317\320#\210\321\312\322\320#\210\323\324\325\326\327DD\330\331\332\333\334&\207" [TeX-Omega-mode-map TeX-Omega-mode-hook variable-documentation put "Hook run after entering or leaving `TeX-Omega-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode TeX-Omega-mode boundp defalias tex-omega-mode make-obsolete TeX-engine-set "11.86" make-obsolete-variable TeX-engine custom-declare-variable TeX-source-correlate-method funcall function #[0 "\300\207" [((dvi . source-specials) (pdf . synctex))] 1] "Method to use for enabling forward and inverse search.\nThis can be `source-specials' if source specials should be used,\n`synctex' if SyncTeX should be used, or `auto' if AUCTeX should\ndecide.\n\nThe previous values determine the variable for both DVI and PDF\nmode. This variable can also be an alist of the kind\n\n ((dvi . )\n (pdf . ))\n\nin which the CDR of each entry is a symbol specifying the method\nto be used in the corresponding mode.\n\nPrograms should not use this variable directly but the function\n`TeX-source-correlate-method-active' which returns the method\nactually used for forward and inverse search." :type (choice (const auto) (const synctex) (const source-specials) (list :tag "Different method for DVI and PDF" (cons (const dvi) (choice :tag "Method for DVI mode" (const synctex) (const source-specials))) (cons (const pdf) (choice :tag "Method for PDF mode" (const synctex) (const source-specials))))) :group TeX-view] 8) #@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-source-correlate-output-page-function nil (#$ . 53528)) (byte-code "\300\301!\210\302\303\304\305#\210\306\211\203,\211@\303N\203%\304N\204%\307\304\303N#\210A\266\202\202 \210\310\303\304\311#\210\312\304\313\314\315DD\316\317\320\321\322&\207" [make-variable-buffer-local TeX-source-correlate-output-page-function defvaralias TeX-source-specials-view-start-server TeX-source-correlate-start-server nil (saved-value saved-variable-comment) put make-obsolete-variable "11.86" custom-declare-variable funcall function #[0 "\300\207" [ask] 1] "Control if server should be started for inverse search." :type (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask)) :group TeX-view] 8) #@61 Keep track if question about server start search was asked. (defvar TeX-source-correlate-start-server-asked nil (#$ . 54412)) #@168 If non-nil, `TeX-source-correlate-start-server-maybe' will start a server. Code related to features requiring a server, e.g. for inverse search, can set the variable. (defvar TeX-source-correlate-start-server-flag nil (#$ . 54545)) #@58 Guess whether to use gnuserv when a server is requested. (defalias 'TeX-source-correlate-gnuserv-p #[0 "\302\300!\203\f\303!\206\302\301!\205\303 !\205\304\207" [gnuserv-process server-process boundp processp nil] 2 (#$ . 54783)]) #@55 Return non-nil if Emacs server or gnuserv is enabled. (defalias 'TeX-source-correlate-server-enabled-p #[0 "\300 \211\203\n\301\202 \302\303!\205\304J!\207" [TeX-source-correlate-gnuserv-p gnuserv-process server-process boundp processp] 4 (#$ . 55028)]) #@138 Start Emacs server or gnuserv if a feature using it is enabled. This is the case if `TeX-source-correlate-start-server-flag' is non-nil. (defalias 'TeX-source-correlate-start-server-maybe #[0 "\205@\303 ?\205@\304 \211\203\305\202\306 \307=\203\211 \207 \310=\205>\n?\205>\311\312\313\2034\314\2025\315\"!\307\205>\211 \266\202\207" [TeX-source-correlate-start-server-flag TeX-source-correlate-start-server TeX-source-correlate-start-server-asked TeX-source-correlate-server-enabled-p TeX-source-correlate-gnuserv-p gnuserv-start server-start t ask y-or-n-p format "Start %s for inverse search in viewer? " "gnuserv" "Emacs server"] 6 (#$ . 55295)]) #@69 Determine which method is available for forward and inverse search. (defalias 'TeX-source-correlate-determine-method #[0 "\3021#\303\304\305\"\306\216\307 \310\310D\310\311%\210)rq\210\312 +0\202%\210\313\314\315\"\203.\316\207\317\207" [standard-output LaTeX-command (error) generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] call-process nil "--help" buffer-string "" string-match "^[ ]*-?-synctex" synctex source-specials] 6 (#$ . 55967)]) #@65 Return the method actually used for forward and inverse search. (defalias 'TeX-source-correlate-method-active #[0 "\302=\203 \303 \207<\203 \203\304\236A\207\305\236A\207\207" [TeX-source-correlate-method TeX-PDF-mode auto TeX-source-correlate-determine-method pdf dvi] 2 (#$ . 56465)]) #@190 Return TeX engine command line option for forward search facilities. The return value depends on the value of `TeX-source-correlate-mode'. If this is nil, an empty string will be returned. (defalias 'TeX-source-correlate-expand-options #[0 "\203\304 \305=\203 \n\205\306\307\310\n\311#PP\207 \207\312\207" [TeX-source-correlate-mode TeX-source-specials-tex-flags TeX-source-specials-places TeX-synctex-tex-flags TeX-source-correlate-method-active source-specials "=" mapconcat identity "," ""] 6 (#$ . 56769)]) #@88 Keymap for `TeX-source-correlate-mode'. You could use this for unusual mouse bindings. (defvar TeX-source-correlate-map (make-sparse-keymap) (#$ . 57293)) #@207 Translate backward search info with respect to `TeX-region'. That is, if FILE is `TeX-region', update FILE to the real tex file and LINE to (+ LINE offset-of-region). Else, return nil. (fn FILE LINE COL) (defalias 'TeX-source-correlate-handle-TeX-region #[771 "\302\303!!\230\2057r\304!\206\305!q\210\306b\210\307\310\311\312#\2056\313\314\315!! \2054\316\317 !!\\E\262)\207" [TeX-region TeX-region-orig-buffer file-name-sans-extension file-name-nondirectory find-buffer-visiting find-file-noselect 0 re-search-forward "!offset(\\([---0-9]+\\))" nil t string-to-number match-string-no-properties 1 expand-file-name buffer-file-name] 7 (#$ . 57455)]) (byte-code "\300\301\302\303\304DD\305\306\303\307\310&\207" [custom-declare-variable TeX-raise-frame-function funcall function #[0 "\300\207" [raise-frame] 1] "A function which will be called to raise the Emacs frame.\nThe function is called after `TeX-source-correlate-sync-source'\nhas processed an inverse search DBUS request from\nEvince-compatible viewers in order to raise the Emacs frame.\n\nThe default value is `raise-frame', however, depending on window\nmanager and focus stealing policies, it might very well be that\nEmacs doesn't pop into the foreground. So you can do whatever it\ntakes here.\n\nFor some users, `x-focus-frame' does the trick. For some\nusers (on GNOME 3.20),\n\n (lambda ()\n (run-at-time 0.5 nil #'x-focus-frame))\n\ndoes the trick. Some other users use the external wmctrl tool to\nraise the Emacs frame like so:\n\n (lambda ()\n (call-process\n \"wmctrl\" nil nil nil \"-i\" \"-R\"\n (frame-parameter (selected-frame) 'outer-window-id)))" :type :group TeX-view] 8) #@344 Show TeX FILE with point at LINECOL. This function is called when emacs receives a SyncSource signal emitted from the Evince document viewer. IGNORED absorbs an unused id field accompanying the DBUS signal sent by Evince-3.0.0 or newer. If the Emacs frame isn't raised, customize `TeX-raise-frame-function'. (fn FILE LINECOL &rest IGNORED) (defalias 'TeX-source-correlate-sync-source #[642 "\301\302!\210\301\303!\210\304\305!\306H!\307\310#\206\307\311#\211@A@\3128\313\314!\206.\315!!\210\316\317\320\"\210\321V\205R\212\214~\210\322b\210Sy\210\211\321V\203P\211Su\210`*\211\203g\211eW\204b\211dV\203d~\210\211b\210\205m \207" [TeX-raise-frame-function require url-parse url-util url-unhex-string url-generic-parse-url 6 apply TeX-source-correlate-handle-TeX-region list 2 pop-to-buffer find-buffer-visiting find-file-noselect push-mark nil nomsg 0 1] 11 (#$ . 59149)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable TeX-source-correlate-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Tex-Source-Correlate mode is enabled.\nSee the `TeX-source-correlate-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `TeX-source-correlate-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group TeX-view] 12) #@899 Minor mode for forward and inverse search. This is a minor mode. If called interactively, toggle the `Tex-Source-Correlate mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'TeX-source-correlate-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. If enabled, the viewer can be advised to show the output page corresponding to the point in the source and vice versa. The method to be used can be controlled with the variable `TeX-source-correlate-method'. Currently source specials or SyncTeX are recognized. (fn &optional ARG) (defalias 'TeX-source-correlate-mode #[256 "\305 \306\302\307=\203\310\302!?\202!\247\203 \311W\203 \312\202!\313\"\210\314\300!\2038\315\302\"\310\302!\2038\302B\316 \n\205? \"\210\317\302\313\211#\210\n\320\211\203|\211@\321@A@\"\203u\322\323\312\324\325@A@#\324\326@A@#\327\330&\210A\266\202\202J\210\331\332\310\302!\203\211\333\202\212\334\"\210\335\336!\203\262\337\302!\210\305 \203\242\211\305 \232\203\262\340\341\310\302!\203\256\342\202\257\343\344#\210\210\345 \210\310\302!\207" [global-minor-modes TeX-mode-map TeX-source-correlate-mode TeX-source-correlate-map TeX-source-correlate-start-server-flag current-message set-default toggle default-value 1 nil t boundp delq set-keymap-parent TeX-set-mode-name (("gnome" "evince") ("mate" "atril") ("x" "reader")) TeX-evince-dbus-p dbus-register-signal :session format "/org/%s/%s/Window/0" "org.%s.%s.Window" "SyncSource" TeX-source-correlate-sync-source run-hooks TeX-source-correlate-mode-hook TeX-source-correlate-mode-on-hook TeX-source-correlate-mode-off-hook called-interactively-p any customize-mark-as-set message "Tex-Source-Correlate mode %sabled%s" "en" "dis" "" force-mode-line-update] 12 (#$ . 60625) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar TeX-source-correlate-mode-hook nil) (byte-code "\302\303N\204\f\304\302\303\305#\210\304\302\306\307#\210\304\302\310\311C#\210\312\313\311\314\300!\205#\311\211%\210\315\316\313\"\210\317\316\313\320#\210\315\321\313\"\210\304\313\322\323#\210\324\313 \236 \"\325\326\327\330\331DD\332\333\334\335\336&\210\325\337\327\330\340DD\341\333\334\335\342&\210\325\343\327\330\344DD\345\333\334\335\336&\210\325\346\327\330\347DD\350\333\334\335\336&\210\325\351\327\330\352DD\353\333\334\335\336&\210\325\354\327\330\355DD\356\333\334\335\336&\207" [TeX-source-correlate-mode-map minor-mode-map-alist TeX-source-correlate-mode-hook variable-documentation put "Hook run after entering or leaving `TeX-source-correlate-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode TeX-source-correlate-mode boundp defalias TeX-source-specials-mode make-obsolete "11.86" tex-source-correlate-mode safe-local-variable booleanp delq custom-declare-variable TeX-source-specials-tex-flags funcall function #[0 "\300\207" [#1="-src-specials"] 1 #1#] "Extra flags to pass to TeX commands to generate source specials." :group TeX-view :type string TeX-source-specials-places #[0 "\300\207" [nil] 1] "List of places where to insert source specials into the DVI file.\nIf nil, use (La)TeX's defaults." (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))) TeX-source-specials-view-position-flags #[0 "\300\207" [#2="-sourceposition \"%n %b\""] 1 #2#] "Flags to pass to the DVI viewer commands for the position in the source." TeX-source-specials-view-editor-flags #[0 "\300\207" [#3="-editor \"%cS\""] 1 #3#] "Flags to pass to DVI viewer commands for inverse search." TeX-source-specials-view-gnuclient-flags #[0 "\300\207" [#4="-q +%%l %%f"] 1 #4#] "Flags to pass to gnuclient for inverse search." TeX-source-specials-view-emacsclient-flags #[0 "\300\207" [#5="--no-wait +%%l %%f"] 1 #5#] "Flags to emacsclient for inverse search."] 8) #@109 Return gnuclient or emacslient executable with options. Return the full path to the executable if possible. (defalias 'TeX-source-specials-view-expand-client #[0 "\303 \211\203\n\304\202 \305\205\306\"\203 \202\n\203+\307!\203+\310Q\207\310Q\207" [invocation-directory TeX-source-specials-view-gnuclient-flags TeX-source-specials-view-emacsclient-flags TeX-source-correlate-gnuserv-p "gnuclient" "emacsclient" expand-file-name file-executable-p " "] 7 (#$ . 65026)]) #@290 Return source specials command line option for viewer command. The return value depends on the values of `TeX-source-correlate-mode' and `TeX-source-correlate-method-active'. If those are nil or not `source-specials' respectively, an empty string will be returned. (fn &optional VIEWER) (defalias 'TeX-source-specials-view-expand-options #[256 "\203\303 \304=\203 \305 \205\306\nPP\207\307\207" [TeX-source-correlate-mode TeX-source-specials-view-position-flags TeX-source-specials-view-editor-flags TeX-source-correlate-method-active source-specials TeX-source-correlate-server-enabled-p " " ""] 4 (#$ . 65520)]) #@56 Extra flags to pass to TeX commands to enable SyncTeX. (defvar TeX-synctex-tex-flags "--synctex=1" (#$ . 66149)) #@186 Return the page corresponding to the current position in FILE. This method assumes that the document was compiled with SyncTeX enabled and the `synctex' binary is available. (fn FILE) (defalias 'TeX-synctex-output-page-1 #[257 "\301\302\303\"\304\216\305\306\307\307D\307\310\311\312\313\314 TiT $\315\316\317 !& \210)rq\210\320 +\321\322\"\2057\323\324\"\207" [standard-output generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] call-process "synctex" nil "view" "-i" format "%s:%s:%s" TeX-current-offset "-o" TeX-active-master TeX-output-extension buffer-string string-match "^Page:\\([0-9]+\\)" match-string 1] 13 (#$ . 66269)]) #@181 Return the page corresponding to the position in the current buffer. This method assumes that the document was compiled with SyncTeX enabled and the `synctex' binary is available. (defalias 'TeX-synctex-output-page #[0 "\300\301 \302\303 !\"\304\302\303 !\206\302\301 !!\305Q\306!\206-\306!\206-\306\305P!\206-\307\207" [file-relative-name buffer-file-name file-name-directory TeX-active-master expand-file-name "./" TeX-synctex-output-page-1 "1"] 5 (#$ . 66957)]) #@41 This indicates a TeX mode being active. (defvar TeX-mode-p nil (#$ . 67437)) (make-variable-buffer-local 'TeX-mode-p) #@18 (fn VAR VALUE) (defalias 'TeX-mode-set #[514 "\300\"\210\301\302\303#\207" [set-default TeX-set-mode-name nil t] 6 (#$ . 67561)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\301\315\316#\207" [custom-declare-variable TeX-PDF-mode funcall function #[0 "\300\207" [t] 1] nil :group TeX-command :set TeX-mode-set :type boolean put safe-local-variable booleanp] 10) #@93 Non-nil if Tex-Pdf mode is enabled. Use the command `TeX-PDF-mode' to change this variable. (defvar TeX-PDF-mode nil (#$ . 67963)) (make-variable-buffer-local 'TeX-PDF-mode) #@752 Minor mode for using PDFTeX. This is a minor mode. If called interactively, toggle the `Tex-Pdf mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `TeX-PDF-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. 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. (fn &optional ARG) (defalias 'TeX-PDF-mode #[256 "\305 \306=\203 ?\202\247\203\307W\203\310\202\311\312\301!\2031\313\300 \"\2031\300 B\n\314=\2039\310\310\315\310\211\311#\210\203I\316\202J\317\320\321\203U\322\202V\323\"\210\324\325!\203x\305 \203j\211\305 \232\203x\326\327\203t\330\202u\331\332#\210\210\333 \210\207" [TeX-PDF-mode local-minor-modes TeX-engine TeX-PDF-mode-parsed TeX-output-extension current-message toggle 1 nil t boundp delq omega 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 any message "Tex-Pdf mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 68144) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar TeX-PDF-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\"\207" [TeX-PDF-mode-map TeX-PDF-mode-hook variable-documentation put "Hook run after entering or leaving `TeX-PDF-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode TeX-PDF-mode boundp add-to-list minor-mode-alist (TeX-PDF-mode "")] 6) #@56 Toggle default for `TeX-PDF-mode'. (fn &optional ARG) (defalias 'TeX-global-PDF-mode #[256 "\300\301\203\302!\303V\202\304\301!?\"\305\301\306\307#\210\207" [set-default TeX-PDF-mode prefix-numeric-value 0 default-value TeX-set-mode-name nil t] 6 (#$ . 70251) "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 (#$ . 70569)) (make-variable-buffer-local 'TeX-PDF-mode-parsed) #@196 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. (fn ARG) (defalias 'TeX-PDF-mode-parsed #[257 "\203 =?\2050\301\302\301!\203\303\202\304!\207\305\301p\"?\2050\301\203*\303\202+\304!\210\306\211\207" [TeX-PDF-mode-parsed TeX-PDF-mode default-value 1 0 local-variable-p t] 4 (#$ . 70721)]) #@33 Use only from parsing routines. (defalias 'TeX-PDF-mode-on #[0 "\300\301!\207" [TeX-PDF-mode-parsed t] 2 (#$ . 71167)]) #@33 Use only from parsing routines. (defalias 'TeX-PDF-mode-off #[0 "\300\301!\207" [TeX-PDF-mode-parsed nil] 2 (#$ . 71293)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\316\312!\210\317\312\320\321#\210\300\322\302\303\323DD\324\306\307\310\311&\210\316\322!\210\317\322\320\325#\210\326\322\312\327#\207" [custom-declare-variable TeX-DVI-via-PDFTeX funcall function #[0 "\300\207" [nil] 1] "Whether to use PDFTeX also for producing DVI files." :group TeX-command :type boolean TeX-PDF-from-DVI #[0 "\300\207" [nil] 1] "Specify if and how to produce PDF output from a DVI file.\n\nIf non-nil, the default compiler produces DVI output. The value\nshould be the name of the command used to convert the DVI file to\nPDF or to an intermediate type.\n\nPossible values are\n\n* \"Dvips\": the DVI file is converted to PS with dvips. After\n successfully running it, ps2pdf will be the default command to\n convert the PS file to PDF\n* \"Dvipdfmx\": the PDF is produced with dvipdfmx\n\nPrograms should not use this variable directly but the function\n`TeX-PDF-from-DVI' which handles now obsolete variable\n`TeX-PDF-via-dvips-ps2pdf'." (choice (const :tag "No DVI to PDF conversion" nil) (const :tag "dvips - ps2pdf sequence" "Dvips") (const :tag "dvipdfmx" "Dvipdfmx")) make-variable-buffer-local put safe-local-variable #[257 "\211;\206\211?\207" [] 2 "\n\n(fn X)"] TeX-PDF-via-dvips-ps2pdf #[0 "\300\207" [nil] 1] "Whether to produce PDF output through the (La)TeX - dvips - ps2pdf sequence." booleanp make-obsolete-variable "11.90"] 8) #@186 Return the value of variable `TeX-PDF-from-DVI'. If `TeX-PDF-from-DVI' is not set and obsolete option `TeX-PDF-via-dvips-ps2pdf' is non-nil, return "Dvips" for backward compatibility. (defalias 'TeX-PDF-from-DVI #[0 "\206 \205 \302\207" [TeX-PDF-from-DVI TeX-PDF-via-dvips-ps2pdf "Dvips"] 1 (#$ . 72906)]) #@109 Non-nil if Tex-Interactive mode is enabled. Use the command `TeX-interactive-mode' to change this variable. (defvar TeX-interactive-mode nil (#$ . 73224)) (make-variable-buffer-local 'TeX-interactive-mode) #@605 Minor mode for interactive runs of TeX. This is a minor mode. If called interactively, toggle the `Tex-Interactive mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `TeX-interactive-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'TeX-interactive-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\300\306\211#\210\312\313\203A\314\202B\315\"\210\316\317!\203d\302 \203V\211\302 \232\203d\320\321\203`\322\202a\323\324#\210\210\325 \210\207" [TeX-interactive-mode local-minor-modes current-message toggle 1 nil t boundp delq TeX-set-mode-name run-hooks TeX-interactive-mode-hook TeX-interactive-mode-on-hook TeX-interactive-mode-off-hook called-interactively-p any message "Tex-Interactive mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 73437) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar TeX-interactive-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\312\"\210\316\317\320\"\210\321\322\310\323\324\325%\210\326\327\330\331\332DD\333\324\322\334\335&\210\336\327!\210\326\337\330\331\340DD\341\324\322\334\335&\210\336\337!\210\326\342\330\331\343DD\344\324\322\334\335&\210\336\342!\210\326\345\330\331\346DD\347\324\322\334\335&\210\326\350\330\331\351DD\352\324\322\334\335&\207" [TeX-interactive-mode-map TeX-interactive-mode-hook variable-documentation put "Hook run after entering or leaving `TeX-interactive-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode TeX-interactive-mode boundp defalias tex-interactive-mode add-to-list minor-mode-alist (TeX-interactive-mode "") custom-declare-group TeX-command-name "Names for external commands in AUCTeX." :group TeX-command custom-declare-variable TeX-command-BibTeX funcall function #[0 "\300\207" [#1="BibTeX"] 1 #1#] "The name of the BibTeX entry in `TeX-command-list'." :type string make-variable-buffer-local TeX-command-Biber #[0 "\300\207" [#2="Biber"] 1 #2#] "The name of the Biber entry in `TeX-command-list'." TeX-command-Show #[0 "\300\207" [#3="View"] 1 #3#] "The default command to show (view or print) a TeX file.\nMust be the car of an entry in `TeX-command-list'." TeX-command-Print #[0 "\300\207" [#4="Print"] 1 #4#] "The name of the Print entry in `TeX-command-Print'." TeX-command-Queue #[0 "\300\207" [#5="Queue"] 1 #5#] "The name of the Queue entry in `TeX-command-Queue'."] 8) #@63 Regular expression delimiting start of trailer in a TeX file. (defvar TeX-trailer-start nil (#$ . 76503)) (make-variable-buffer-local 'TeX-trailer-start) #@60 Regular expression delimiting end of header in a TeX file. (defvar TeX-header-end nil (#$ . 76663)) (make-variable-buffer-local 'TeX-header-end) #@66 The default command for `TeX-command' in the current major mode. (defvar TeX-command-default nil (#$ . 76814)) (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" "\\.nav" "\\.out" "\\.snm" "\\.toc" "\\.url" "\\.synctex\\.gz" "\\.bcf" "\\.run\\.xml" "\\.fls" "-blx\\.bib") (#$ . 77064)) #@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" "\\.xdv") (#$ . 77469)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\"\207" [custom-declare-variable TeX-clean-confirm funcall function #[0 "\300\207" [t] 1] "If non-nil, ask before deleting files." :type boolean :group TeX-command autoload dired-mark-pop-up "dired"] 8) #@171 Delete generated files associated with current master and region files. If prefix ARG is non-nil, not only remove intermediate but also output files. (fn &optional ARG) (defalias 'TeX-clean #[256 "\301\302\303 !!\304!\305\306\307!!\310\306\307\311\312\313\"!!\314\315!\316\306\307\311\313\211\"!!\260\211\205?\2036\317!\205?\320\206<\321\312#\211\203s\203^\322\323\324G\325V\203U\202X\313B\326\327%\205v\211\211\205r\211@\330P!\210A\266\202\202_\207\331\332!\207" [TeX-clean-confirm file-name-sans-extension TeX-active-master TeX-output-extension file-name-directory "\\(" regexp-quote file-name-nondirectory "\\|" TeX-region-file nil t "\\)\\(" TeX--clean-extensions-regexp "\\)\\'\\|" file-exists-p directory-files "." dired-mark-pop-up " *Deletions*" delete 1 y-or-n-p "Delete files? " delete-file message "No files to be deleted"] 15 (#$ . 77952) "P"]) #@187 Return a regexp to match extensions that should be cleaned by `TeX-clean'. If the optional argument ARG is non-nil then output files are also included in the regexp. (fn &optional ARG) (defalias 'TeX--clean-extensions-regexp #[256 "\300 \211\205\301\302\303P!J\205\302\304P!J\"\211\205!\305\306\307#\207" [TeX-mode-prefix append intern "-clean-intermediate-suffixes" "-clean-output-suffixes" mapconcat identity "\\|"] 7 (#$ . 78844)]) (byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312& \210\313\301!\210\314\301\315\316#\210\300\317\302\303\320DD\321\306\307\311\322&\207" [custom-declare-variable TeX-master funcall function #[0 "\300\207" [t] 1] "The master file associated with the current buffer.\nIf the file being edited is actually included from another file, you\ncan tell AUCTeX the name of the master file by setting this variable.\nIf there are multiple levels of nesting, specify the top level file.\n\nIf this variable is nil, AUCTeX will query you for the name.\n\nIf the variable is t, AUCTeX will assume the file is a master file\nitself.\n\nIf the variable is 'shared, AUCTeX will query for the name, but not\nchange the file.\n\nIf the variable is 'dwim, AUCTeX will try to avoid querying by\nattempting to `do what I mean'; and then change the file.\n\nIt is suggested that you use the File Variables (see the info node in\nthe Emacs manual) to set this variable permanently for each file." :group TeX-command TeX-parse :type (choice (const :tag "Query" nil) (const :tag "This file" t) (const :tag "Shared" shared) (const :tag "Dwim" dwim) (string :format "%v")) make-variable-buffer-local put safe-local-variable #[257 "\211;\206\211\300>\207" [(t nil shared dwim)] 3 "\n\n(fn X)"] TeX-one-master #[0 "\300\207" [#1="\\.\\(texi?\\|dtx\\)$"] 1 #1#] "Regular expression matching ordinary TeX files.\n\nYou should set this variable to match the name of all files, where\nautomatically adding a file variable with the name of the master file\nis a good idea. When AUCTeX adds the name of the master file as a\nfile variable, it does not need to ask next time you edit the file.\n\nIf you dislike AUCTeX automatically modifying your files, you can set\nthis variable to \"\"." regexp] 10) (defvar TeX-transient-master nil) #@29 Find a likely `TeX-master'. (defalias 'TeX-dwim-master #[0 "\30228\303 \304:\2034@\262r\211q\210\232\205 ;)\203-\305\302rq\210 )\"\2044A\262\202\266\3040\207" [default-directory TeX-master --cl-block-nil-- buffer-list nil throw] 6 (#$ . 81121)]) #@64 Ask for master file, set `TeX-master' and add local variables. (defalias 'TeX-master-file-ask #[0 "\303 \203 \304\305!\207\306 \307=\203\211\206+\3101)\311\312\313\206!\314\"\315#0\202+\210\316\211\316\230\2035\317\211\207\211\230\203@\320 \207\321!\322 \230\204U\211 \230\204U\211\323\230\203Z\317\320 \207\324\325!\nC\326#\320 \207" [TeX-master default-directory TeX-default-extension TeX-local-master-p error "Master file already set" TeX-dwim-master dwim (quit) read-file-name format "Master file (default %s): " "this file" nil "" t TeX-add-local-master expand-file-name buffer-file-name "" TeX-strip-extension file-relative-name path] 6 (#$ . 81391) nil]) #@453 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. (fn &optional EXTENSION NONDIRECTORY ASK) (defalias 'TeX-master-file #[768 "\305=\203 \262\306 \203\307\310C\305#\202\311\212\214~\210eb\210 \2032\n\203-\n\312=\2032 \202\232\n\232\203=\305\202\232\n\312=\203\210\203\210\313 \314\315\316\206Q\317\"\310#\211\230\203a\266\202\202\204\320!\306 \230\204v\211 \230\204v\211\321\230\203|\266\305\202\204\307C\322#\266\202\202\232\n\305=\204\232\n;\204\232\203\232\323 \210*\n;\203\244\n\202\245\211\324!\203\274\232\203\267\310\262\202\274\307!\262\325\305!\211\205\331\211\326P\310\305\327#)\266\203\206\331\330\230\211\205\344\331\332!\"\211\203\362\211\333!P\266\204\202\376\203\374\333!\262\266\203\211\326Q\207\207" [TeX-default-extension TeX-transient-master TeX-master default-directory inhibit-changing-match-data 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 TeX-master-file-ask TeX-match-extension TeX--clean-extensions-regexp "." string-match "prv" TeX--master-output-dir file-name-directory file-name-nondirectory] 13 (#$ . 82089) nil]) #@27 Directory of master file. (defalias 'TeX-master-directory #[0 "\301\302\303\304\305\306 !\211\203\307!\202\310\262\205\305!\"!!!\207" [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 "."] 7 (#$ . 83696)]) #@88 Add local variable for `TeX-master'. Get `major-mode' from master file and enable it. (defalias 'TeX-add-local-master #[0 "\306 \205\236\307\310\306 !\"\205\236 ?\205\236db\210\311\312d\313Z\314#\2039\315\316!\317\320\321P!!\210\322\316!\210\211\323\324\n!\325\261\207\n;\203Kr\326\327 !!q\210\f)\202L\f\211\330\267\202Z\331\202[\332\202[\333\334\305!\205f \205f\335\336!\337\340OP\341 \210\f\342=\203}(\343\261\210\344\345\325\323\324\n!\325 \346\261\f\210\f=?\205\234 \210\347 \266\203\207" [TeX-one-master buffer-read-only TeX-master TeX-default-extension 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" find-file-noselect TeX-master-file #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (texinfo-mode 82 doctex-mode 86)) "@c " "% " "%%% " boundp "japanese-" symbol-name 0 -5 newline doctex-mode "endinput\n" "Local Variables:\n" "mode: " "End:\n" hack-local-variables TeX-esc] 15 (#$ . 84027)]) #@96 Return non-nil if there is a `TeX-master' entry in local variables spec. Return nil otherwise. (defalias 'TeX-local-master-p #[0 "\301\236\207" [file-local-variables-alist TeX-master] 2 (#$ . 85200)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\321\322\310\323& \210\324\316!\207" [custom-declare-variable TeX-style-global funcall function #[0 "\301\302\"\207" [TeX-data-directory expand-file-name "style"] 3] "Directory containing hand generated TeX information.\n\nThese correspond to TeX macros shared by all users of a site." :group TeX-file :type directory TeX-auto-local #[0 "\300\207" [#1="auto"] 1 #1#] "Directory containing automatically generated TeX information.\n\nThis correspond to TeX macros found in the current directory, and must\nbe relative to that." string TeX-output-dir #[0 "\300\207" [nil] 1] "The path of the directory where output files should be placed.\n\nA relative path is interpreted as being relative to the master\nfile in `TeX-master'. The path cannot contain a directory that\nstarts with '.'. If this variable is nil, the output directory is\nassumed to be the same as the directory of `TeX-master'." :safe string-or-null-p (choice (const :tag "Directory of master file" nil) (string :tag "Custom" "build")) make-variable-buffer-local] 10) #@311 Return the directory path where output files should be placed. If `TeX-output-dir' is nil, then return nil. MASTER-DIR is the directory path where the master file is located. If RELATIVE-TO-MASTER is non-nil, make the returned path relative to the directory in MASTER-DIR. (fn MASTER-DIR RELATIVE-TO-MASTER) (defalias 'TeX--master-output-dir #[514 "\205.\301\206\n\302!\303\304\305\301\"!!!\306!\204\"\307\303!\310\"\210\203+\311\"\207\211\266\202\207" [TeX-output-dir expand-file-name "" file-name-as-directory abbreviate-file-name substitute-in-file-name file-exists-p make-directory t file-relative-name] 9 (#$ . 86584)]) #@175 Format the output directory as a command argument. ARGNAME is prepended to the quoted output directory. If `TeX-output-dir' is nil then return an empty string. (fn ARGNAME) (defalias 'TeX--output-dir-arg #[257 "\300\301 \302\"\211\203\303\303R\207\304\207" [TeX--master-output-dir TeX-master-directory t "\"" ""] 6 (#$ . 87231)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-style-local funcall function #[0 "\300\207" [#1="style"] 1 #1#] "Directory containing hand generated TeX information.\n\nThese correspond to TeX macros found in the current directory, and must\nbe relative to that." :group TeX-file :type string] 8) #@22 (fn REGEXP STRING) (defalias 'TeX-split-string #[514 "\300\"\207" [split-string] 5 (#$ . 87912)]) (make-obsolete 'TeX-split-string "use (split-string STRING REGEXP) instead." "AUCTeX 13.0") #@87 Return a list if private TeX directories found in environment variable ENV. (fn ENV) (defalias 'TeX-parse-path #[257 "\301!\211\205\302\303\304\"\203\304\202\305\"\306\307\310\311\"\"\312\211\203S@\262A\262\311\303\313\"\203;\314\211\224O\202<!\262\315!\203\235\204B\262\202\207" [TeX-macro-global getenv split-string string-match ";" ":" append ("/" "\\") mapcar file-name-as-directory nil "/?/?\\'" 0 file-name-absolute-p] 10 (#$ . 88112)]) #@133 Auto detect the path delimiter for kpsewhich command. Usually return ":" or ";". If auto detect fails for some reason, return nil. (defalias 'TeX-kpathsea-detect-path-delimiter #[0 "\3011%\302\303\304\"\305\216\306\307\310\310D\310\311\312&\210)rq\210\313 +0\202'\210\310\211;\205=\211G\314V\205=\315\316\"\203<\316\207\317\207" [standard-output (error) generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] call-process "kpsewhich" nil "--expand-path" "{.,..}" buffer-string 0 string-match ";" ":"] 7 (#$ . 88597)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-kpathsea-path-delimiter funcall function #[0 "\300 \207" [TeX-kpathsea-detect-path-delimiter] 1] "Path delimiter for kpathsea output.\nt means autodetect, nil means kpathsea is disabled." :group TeX-file :type (choice (const ":") (const ";") (const :tag "Autodetect" t) (const :tag "Off" nil))] 8) #@373 Return directories corresponding to the kpathsea variables VARS. This is done calling `kpsewhich --expand-path' for the variables. PROGRAM if non-nil is passed as the parameter for --progname. Optional argument SUBDIRS are subdirectories which are appended to the directories of the TeX trees. Only existing directories are returned. (fn VARS PROGRAM &optional SUBDIRS) (defalias 'TeX-tree-expand #[770 "\302=\203 \303 \205\276\304\305\205\306D\307\310\311#D\"\3121F\313\314\302\"\315\216 \316\317\320\321 \321D\321&\262)r q\210\322 +0\202H\210\321\323U\204R\321\211\207\324\325\"\321\211\326\302#\211\203\271\211@\203\230\211\203\224\211@\327P!\262\330!\203\215\235\203\210\202\213B\262A\266\202\202j\210\202\262\327!\262\330!\203\262\235\203\255\202\260B\262A\266\202\202]\210\211\237\266\206\207" [TeX-kpathsea-path-delimiter standard-output t TeX-kpathsea-detect-path-delimiter 1 append "--progname" "--expand-path" mapconcat identity (error) generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] apply call-process "kpsewhich" nil buffer-string 0 format "[\n %s]" split-string file-name-as-directory file-exists-p] 16 (#$ . 89560)]) #@69 Return directories containing the site's TeX macro and style files. (defalias 'TeX-macro-global #[0 "\300\301\302\303#\206 \304\207" [TeX-tree-expand ("$SYSTEXMF" "$TEXMFLOCAL" "$TEXMFMAIN" "$TEXMFDIST") "latex" ("/tex/" "/bibtex/bst/") ("/usr/share/texmf/tex/" "/usr/share/texmf/bibtex/bst/")] 4 (#$ . 90805)]) #@69 Return directories containing the user's TeX macro and style files. (defalias 'TeX-macro-private #[0 "\300\301\302\303#\207" [TeX-tree-expand ("$TEXMFHOME") "latex" ("/tex/" "/bibtex/bst/")] 4 (#$ . 91124)]) (byte-code "\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\317&\210\302\300\304\305\320DD\321\310\311\312\322&\210;\2035C\302\301\304\305\323DD\324\310\311\312\325&\210 ;\203L C\302\326\304\305\327DD\330\310\311\312\331&\210\302\332\304\305\333DD\334\310\311\312\335&\210\336\337\340\341#\210\342\211\203\222\211@\337N\203\213\340N\204\213\343\340\337N#\210A\266\202\202q\210\344\337\340\345#\207" [TeX-auto-private TeX-style-private custom-declare-variable TeX-macro-global funcall function #[0 "\300 \207" [TeX-macro-global] 1] "Directories containing the site's TeX macro and style files." :group TeX-file :type (repeat (directory :format "%v")) TeX-macro-private #[0 "\300\301\302!\301\303!\"\206 \304 \207" [append TeX-parse-path "TEXINPUTS" "BIBINPUTS" TeX-macro-private] 4] "Directories where you store your personal TeX macros." (repeat (file :format "%v")) #[0 "\302 \303P\206 \304\"C\207" [TeX-auto-local user-emacs-directory expand-file-name "auctex/" "~/.emacs.d/auctex/"] 4] "List of directories containing automatically generated AUCTeX style files.\n\nThese correspond to the personal TeX macros." (repeat (file :format "%v")) #[0 "\302 \303P\206 \304\"C\207" [TeX-style-local user-emacs-directory expand-file-name "auctex/" "~/.emacs.d/auctex/"] 4] "List of directories containing hand-generated AUCTeX style files.\n\nThese correspond to the personal TeX macros." (repeat (file :format "%v")) TeX-style-path #[0 "\306C\307\310\311\"\312 D\n \f D$\"\210\211\242\237\207" [TeX-auto-global TeX-style-global TeX-auto-private TeX-style-private TeX-auto-local TeX-style-local nil mapc make-closure #[257 "\211\205\211\300\242\235?\205\300\300\242B\240\207" [V0] 4 "\n\n(fn FILE)"] append] 9] "List of directories to search for AUCTeX style files.\nPer default the list is built from the values of the variables\n`TeX-auto-global', `TeX-style-global', `TeX-auto-private',\n`TeX-style-private', `TeX-auto-local', and `TeX-style-local'." (repeat (file :format "%v")) TeX-check-path #[0 "\302\303C #\207" [TeX-macro-private TeX-macro-global append "."] 4] "Directory path to search for dependencies.\n\nIf nil, just check the current file.\nUsed when checking if any files have changed." (repeat (file :format "%v")) defvaralias LaTeX-dialect TeX-dialect nil (saved-value saved-variable-comment) put make-obsolete-variable "13.0"] 8) #@201 Default dialect for use with function `TeX-add-style-hook' for argument DIALECT-EXPR when the hook is to be run only on LaTeX file, or any mode derived thereof. See variable `TeX-style-hook-dialect'. (defconst TeX-dialect :latex (#$ . 93753)) #@753 List of TeX style hooks currently loaded. Each entry is a list: (STYLE HOOK1 HOOK2 ...) where the first element STYLE is the name of the style, and the remaining elements HOOKN, if any, are hooks to be run when that style is active. A hook HOOKN may be a hook function HOOK-FUN to be run in all TeX dialects (LaTeX, Texinfo, etc.), or a vector like: [TeX-style-hook HOOK-FUN DIALECT-SET] where HOOK-FUN is the hook function to be run, and DIALECT-SET is a non-empty set of dialects in which the hook function may be run. This set is instantiated by function `TeX-add-style-hook' through functions manipulating style hook dialect expression named with a `TeX-shdex-' prefix. For supported dialects, see variables `TeX-style-hook-dialect'. (defvar TeX-style-hook-list nil (#$ . 94003)) #@610 Dialect for running hooks locally to the considered file. Supported values are described below: * `:bibtex' for files in BibTeX mode. * `:context' for files in ConTeXt mode. * `:latex' for files in LaTeX mode, or any mode derived thereof. * `:plain-tex' for files in plain-TeX mode. * `:texinfo' for Texinfo files. * `:classopt' for class options of LaTeX document. Just considered as a pseudo-dialect. Purpose is notably to prevent non-Texinfo hooks to be run in Texinfo files, due to ambiguous style name, as this may cause bad side effect e.g. on variable `TeX-font-list'. (defvar TeX-style-hook-dialect :latex (#$ . 94808)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-byte-compile funcall function #[0 "\300\207" [nil] 1] "Not nil means try to byte compile auto files before loading." :group TeX-parse :type boolean] 8) #@70 Set `TeX-style-hook-dialect' to `:bibtex' locally to BibTeX buffers. (defalias 'TeX-bibtex-set-BibTeX-dialect #[0 "\301\300!\210\302\211\207" [TeX-style-hook-dialect make-local-variable :bibtex] 2 (#$ . 95718)]) #@80 Search for and load each definition for STYLE in `TeX-style-path'. (fn STYLE) (defalias 'TeX-load-style #[257 "\305\"\206`\306\307\"\203D\211\310\224\310\225O\311\224\311\225O ;\203'\312\313 !!\202(\314\315\316\n\"\316\n\"\316 \"\316 \"F\f\"\317!)\207\211CB\f\211\205^\211@\320\316\"!\210A\266\202\202J\262\207" [TeX-style-hook-list TeX-master TeX-auto-local TeX-style-local TeX-style-path assoc string-match "\\`\\(.+[/\\]\\)\\([^/\\]*\\)\\'" 1 2 file-name-directory file-relative-name "./" append expand-file-name TeX-load-style TeX-load-style-file] 11 (#$ . 95937)]) #@54 Load FILE checking for a Lisp extensions. (fn FILE) (defalias 'TeX-load-style-file #[257 "\211\301P\302P\303\"\2033\304!\205F\203/\305!\203/\212\306!)\203/\304!\203/\307!\207\307!\207\304!\203=\307!\207\304!\205F\307!\207" [TeX-byte-compile ".el" ".elc" file-newer-than-file-p file-readable-p file-writable-p byte-compile-file load-file] 6 (#$ . 96538)]) #@101 Association list to map dialects to binary weight, in order to implement dialect sets as bitmaps. (defconst TeX-style-hook-dialect-weight-alist '((:latex . 1) (:texinfo . 2) (:bibtex . 4) (:plain-tex . 8) (:context . 16) (:classopt . 32)) (#$ . 96923)) #@75 Evaluate a style hook dialect expression DIALECT-EXPR. (fn DIALECT-EXPR) (defalias 'TeX-shdex-eval #[257 "\2119\203\211\236\211\203\211A\207\301\302\"\207\211:\203-\211@\303>\203-\304\305\306\307@!P!A\"\207\301\302\"\207" [TeX-style-hook-dialect-weight-alist error "Invalid dialect expression : %S." (or not and nor) apply intern "TeX-shdex-" symbol-name] 6 (#$ . 97184)]) #@66 OR operator for style hook dialect expressions. (fn &rest ARGS) (defalias 'TeX-shdex-or #[128 "\300\301\302\303\"\"\207" [apply logior mapcar TeX-shdex-eval] 6 (#$ . 97575)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put TeX-shdex-or speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@67 AND operator for style hook dialect expressions. (fn &rest ARGS) (defalias 'TeX-shdex-and #[128 "\300\301\302\303\"\"\207" [apply logand mapcar TeX-shdex-eval] 6 (#$ . 97896)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put TeX-shdex-and speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@67 NOR operator for style hook dialect expressions. (fn &rest ARGS) (defalias 'TeX-shdex-nor #[128 "\300\301\302\"!\207" [lognot apply TeX-shdex-or] 5 (#$ . 98220)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put TeX-shdex-nor speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@60 NOT operator for style hook dialect expressions. (fn ARG) (defalias 'TeX-shdex-not #[257 "\300\301!!\207" [lognot TeX-shdex-eval] 4 (#$ . 98530)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put TeX-shdex-not speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@87 Test whether dialect DIALECT is in dialect set DIALECT-SET. (fn DIALECT DIALECT-SET) (defalias 'TeX-shdex-in-p #[514 "\236\211\203\301A\"\302U?\207\303\304\"\207" [TeX-style-hook-dialect-weight-alist logand 0 error "Invalid dialect %S"] 6 (#$ . 98824)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put TeX-shdex-in-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@129 Converts a dialect set DIALECT-SET to a list of all dialect comprised in this set, where dialects are symbols (fn DIALECT-SET) (defalias 'TeX-shdex-listify #[257 "\300\211\203\211@\301A\"\302U\204\211@B\262A\266\202\202\210\207" [nil logand 0] 7 (#$ . 99233)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put TeX-shdex-listify speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@544 Give STYLE yet another HOOK to run. DIALECT-EXPR serves the purpose of marking the hook to be run only in that dicontext. DIALECT-EXPR may be a single symbol defining the dialect, see variable `TeX-style-hook-dialect' for supported dialects. DIALECT-EXPR can also be an expression like one of the following: * (or DIALECT1 DIALECT2 ...) * (nor DIALECT1 DIALECT2 ...) * (and DIALECT1 DIALECT2 ...) * (not DIALECT ) When omitted DIALECT-EXPR is equivalent to `(nor )', ie all dialected are allowed. (fn STYLE HOOK &optional DIALECT-EXPR) (defalias 'TeX-add-style-hook #[770 "\301\"\203\302\303\304!#\262\211\204DB\211\207\235\203%\305\207\211AB\241\207" [TeX-style-hook-list assoc-string vector TeX-style-hook TeX-shdex-eval nil] 9 (#$ . 99657)]) #@137 Scan HOOKS for all hooks the associated dialect of which is found in DIALECT-LIST and return the list thereof. (fn HOOKS DIALECT-LIST) (defalias 'TeX-keep-hooks-in-dialect #[514 "\300\211\211\205_\211@\301!\205<\211\302H\303=\205<\211\304H\300\211\2039\211@\305A\"\302U\2042\211@B\262A\266\202\202\210\262\262\203X\211A\262\242>\203>\211B\262\300\262\202>A\266\202\202\207" [nil vectorp 0 TeX-style-hook 2 logand] 13 (#$ . 100435)]) #@223 Forget that we once loaded STYLE. If DIALECT-LIST is provided the STYLE is only removed for those dialects in DIALECT-LIST. See variable `TeX-style-hook-dialect' for supported dialects. (fn STYLE &optional DIALECT-LIST) (defalias 'TeX-unload-style #[513 "\301\"\211\205#\205\302A\"\211\203\241\202!\303\"\211\262\207" [TeX-style-hook-list assoc-string TeX-keep-hooks-in-dialect delq] 7 (#$ . 100906)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-virgin-style funcall function #[0 "\203\f\301!\203\f\302\207\303\207" [TeX-auto-global file-directory-p "virtex" "NoVirtexSymbols"] 2] "Style all documents use." :group TeX-parse :type string] 8) #@50 List of styles currently active in the document. (defvar TeX-active-styles nil (#$ . 101624)) (make-variable-buffer-local 'TeX-active-styles) #@52 Run the TeX style hooks STYLES. (fn &rest STYLES) (defalias 'TeX-run-style-hooks #[128 "\300\301\"\207" [mapcar #[257 "\303\304#?\205D\211B\305!\210 \306\307\"\203/\310 \311\312\"\216\313 )\262\211\314\224\314\225O\262\3151A\316\317\320\321\n\"\243!\"0\202C\210\322)\207" [TeX-active-styles default-directory TeX-style-hook-list TeX-member string-equal TeX-load-style string-match "\\`\\(.+[/\\]\\)\\([^/\\]*\\)\\'" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] TeX-master-directory 2 (void-function) mapcar #[257 "\302!\203 \211 \207\303!\203=\211\304H\305=\203=\306H \236\211\203/\307A\"\304U?\266\203\2025\310\311\"\266\203\205A\211\312H \207\310\313\"\207" [TeX-style-hook-dialect TeX-style-hook-dialect-weight-alist functionp vectorp 0 TeX-style-hook 2 logand error "Invalid dialect %S" 1 "Invalid style hook %S"] 7 "\n\n(fn HOOK)"] reverse assoc-string nil] 7 "\n\n(fn STYLE)"]] 4 (#$ . 101772)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-parse-self funcall function #[0 "\300\207" [nil] 1] "Parse file after loading it if no style hook is found for it." :group TeX-parse :type boolean] 8) #@57 Nil, unless the style specific hooks have been applied. (defvar TeX-style-hook-applied-p nil (#$ . 102992)) (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 (#$ . 103161)) #@162 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. (fn &optional FORCE) (defalias 'TeX-update-style #[256 "\306=\206\f\211?\205\f ?\205R\307\310\311!\210\312\313\314\211\307#!\210\n\315>\2033\316 \2038\317 \320\316 !\"\2038\312\321 !\210\f\203K\322\313\314\211\307# \"\243\204K\323 \210\324\325!\210\310\326!\207" [major-mode TeX-style-hook-applied-p TeX-master TeX-one-master TeX-parse-self TeX-style-hook-list bibtex-mode 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"] 6 (#$ . 103272)]) #@70 List of hooks to call when we remove the style specific information. (defvar TeX-remove-style-hook nil (#$ . 104060)) #@40 Remove all style specific information. (defalias 'TeX-remove-style #[0 "\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 (#$ . 104184)]) #@70 Return a list of all styles (subfiles) used by the current document. (defalias 'TeX-style-list #[0 "\301 \210\207" [TeX-active-styles TeX-update-style] 1 (#$ . 104409)]) #@27 The TeX escape character. (defvar TeX-esc "\\" (#$ . 104586)) (make-variable-buffer-local 'TeX-esc) #@34 The TeX group opening character. (defvar TeX-grop "{" (#$ . 104692)) (make-variable-buffer-local 'TeX-grop) #@34 The TeX group closing character. (defvar TeX-grcl "}" (#$ . 104806)) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\315\310\303&\210\312\321\314\315\322DD\323\310\303\320\324&\207" [make-variable-buffer-local TeX-grcl custom-declare-group TeX-macro nil "Support for TeX macros in AUCTeX." :prefix "TeX-" :group AUCTeX custom-declare-variable TeX-complete-word funcall function #[0 "\300\207" [ispell-complete-word] 1] "Function to call for completing non-macros in `tex-mode'." :type TeX-complete-expert-commands #[0 "\300\207" [nil] 1] "Complete macros and environments marked as expert commands.\n\nPossible values are nil, t, or a list of style names.\n\n - nil Don't complete expert commands (default).\n - t Always complete expert commands.\n - (STYLES ...) Only complete expert commands of STYLES." (choice (const :tag "Don't complete expert commands" nil) (const :tag "Always complete expert commands" t) (repeat :tag "Complete expert commands of certain styles" string))] 8) #@30 (fn THING LIST-VAR PREFIX) (defalias 'TeX-complete-make-expert-command-functions '(macro . #[771 "\300P\211\226\301\302\303\304\305\n#!\306\304\307\n\211\211$F\310\303\304\311#!\312\313\303!E\304\314 \211$\315\316\303\n!D\317BB\257\310\303\304\320\n\"!\321\304\322 \"\323\321\324\325CEE\257F\207" ["s" progn defvar intern format "%s-expert-%s-table" (make-hash-table :test #'equal) "A hash-table mapping %s names to the style name providing it.\n\nA %s occuring in this table is considered an expert %s and\ntreated specially in the completion." defun "%s-declare-expert-%s" style &rest "Declare %s as expert %s of STYLE.\n\nExpert %s are completed depending on `TeX-complete-expert-commands'." dolist x ((if (null style) (remhash x TeX-expert-macro-table) (puthash x style TeX-expert-macro-table))) "%s-filtered" nil "Return (%s) filtered depending on `TeX-complete-expert-commands'." delq mapcar (lambda (entry) (if (eq t TeX-complete-expert-commands) entry (let* ((cmd (car entry)) (style (gethash cmd TeX-expert-macro-table))) (when (or (null style) (member style TeX-complete-expert-commands)) entry))))] 17 (#$ . 105870)])) #@169 A hash-table mapping macro names to the style name providing it. A macro occuring in this table is considered an expert macro and treated specially in the completion. (defvar TeX-expert-macro-table (make-hash-table :test 'equal) (#$ . 107030)) #@142 Declare MACROS as expert macros of STYLE. Expert macros are completed depending on `TeX-complete-expert-commands'. (fn STYLE &rest MACROS) (defalias 'TeX-declare-expert-macros #[385 "\211\211\205 \211@\204\301\"\210\202\302#\210A\266\202\202\207" [TeX-expert-macro-table remhash puthash] 8 (#$ . 107282)]) #@80 Return (TeX-symbol-list) filtered depending on `TeX-complete-expert-commands'. (defalias 'TeX-symbol-list-filtered #[0 "\300\301\302\303\304 \"\"\207" [delq nil mapcar #[257 "\302=\203\207\211@\303 \"\211\203\211\235\205\207" [TeX-complete-expert-commands TeX-expert-macro-table t gethash] 5 "\n\n(fn ENTRY)"] TeX-symbol-list] 5 (#$ . 107610)]) #@187 A hash-table mapping environment names to the style name providing it. A environment occuring in this table is considered an expert environment and treated specially in the completion. (defvar LaTeX-expert-environment-table (make-hash-table :test 'equal) (#$ . 107972)) #@166 Declare ENVIRONMENTS as expert environments of STYLE. Expert environments are completed depending on `TeX-complete-expert-commands'. (fn STYLE &rest ENVIRONMENTS) (defalias 'LaTeX-declare-expert-environments #[385 "\211\211\205 \211@\204\301\"\210\202\302#\210A\266\202\202\207" [TeX-expert-macro-table remhash puthash] 8 (#$ . 108250)]) #@87 Return (LaTeX-environment-list) filtered depending on `TeX-complete-expert-commands'. (defalias 'LaTeX-environment-list-filtered #[0 "\300\301\302\303\304 \"\"\207" [delq nil mapcar #[257 "\302=\203\207\211@\303 \"\211\203\211\235\205\207" [TeX-complete-expert-commands TeX-expert-macro-table t gethash] 5 "\n\n(fn ENTRY)"] LaTeX-environment-list] 5 (#$ . 108610)]) #@518 List of ways to complete the preceding text. Each entry is a list with the following elements: 0. Regexp matching the preceding text or a predicate of arity 0 which returns non-nil and sets `match-data' appropriately if it is applicable. 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 (#$ . 108993)) #@59 Return the first applicable entry of `TeX-complete-list'. (defalias 'TeX--complete-find-entry #[0 "\301\203)@\262A\262\302@!\203\211@ \202 \303@\304\"\203\301\262\202\207" [TeX-complete-list nil functionp TeX-looking-at-backward 250] 5 (#$ . 109561)]) #@57 Perform completion on TeX/LaTeX symbol preceding point. (defalias 'TeX-complete-symbol #[0 "\300 \211\205\265\211A@\247\203\261\211A@\3018\203.\3018<\203.\3018@9\203.\302\3018\303\"\2021\3018\224\225\304\305!{\3068 \307\"\211\303=\203g\203\\\310\311!!\204\\c\210\312\313!\211\205f\314!\207\211\204p\315\316\"\207\230\204\243|\210\211c\210\203\230\307\"\303=\203\230\310\311!!\204\230c\210\312\313!\211\205\242\314!\207\317\320\321##\207\211A@ \207" [TeX--complete-find-entry 3 eval t TeX-match-buffer 0 2 try-completion looking-at regexp-quote get-buffer-window "*Completions*" delete-window error "Can't find completion for \"%s\"" completion-in-region all-completions nil] 16 (#$ . 109836) "*"]) #@76 (La)TeX completion at point function. See `completion-at-point-functions'. (defalias 'TeX--completion-at-point #[0 "\300 \211\205%\211A@\247\205%\211A@\211\224\225\301\"\3028 \303\"E\266\205\207" [TeX--complete-find-entry buffer-substring-no-properties 2 all-completions] 11 (#$ . 110598)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\210\300\313\302\303\314DD\315\306\307\310\316&\210\300\317\302\303\320DD\321\306\307\310\322&\210\312\317!\210\300\323\302\303\324DD\325\306\307\310\326&\207" [custom-declare-variable TeX-default-macro funcall function #[0 "\300\207" [#1="ref"] 1 #1#] "The default macro when creating new ones with `TeX-insert-macro'." :group TeX-macro :type string make-variable-buffer-local TeX-insert-braces #[0 "\300\207" [t] 1] "If non-nil, append a empty pair of braces after inserting a macro.\n\nSee also `TeX-insert-braces-alist'." boolean TeX-insert-braces-alist #[0 "\300\207" [nil] 1] "Alist of macros to which braces should or should not be appended.\n\nEach element is a cons cell, whose CAR is the macro name, and the\nCDR is non-nil or nil, depending on whether a pair of braces\nshould be, respectively, appended or not to the macro.\n\nIf a macro has an element in this variable, `TeX-parse-macro'\nwill use its value to decide what to do, whatever the value of\nthe variable `TeX-insert-braces'." (repeat (cons (string :tag "Macro name") (boolean :tag "Append braces?"))) TeX-insert-macro-default-style #[0 "\300\207" [show-optional-args] 1] "Specifies whether `TeX-insert-macro' will ask for all optional arguments.\n\nIf set to the symbol `show-optional-args', `TeX-insert-macro'\nasks for optional arguments of TeX marcos, unless the previous\noptional argument has been rejected. If set to\n`show-all-optional-args', `TeX-insert-macro' asks for all\noptional arguments. If set to `mandatory-args-only',\n`TeX-insert-macro' asks only for mandatory argument.\n\nWhen `TeX-insert-macro' is called with \\[universal-argument], it's the other\nway round.\n\nNote that for some macros, there are special mechanisms, see e.g.\n`LaTeX-includegraphics-options-alist' and `TeX-arg-cite-note-p'." (choice (const mandatory-args-only) (const show-optional-args) (const show-all-optional-args))] 8) #@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 (#$ . 112873)) #@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 (#$ . 113054)) #@38 A hook run after `TeX-insert-macro'. (defvar TeX-after-insert-macro-hook nil (#$ . 113233)) (defvar TeX-macro-history nil) #@247 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]. (fn SYMBOL) (defalias 'TeX-insert-macro #[257 "\301\302!\203\211\303\304\305 \"\243\"\210\306\307!\207" [TeX-default-macro called-interactively-p any TeX-parse-macro assoc TeX-symbol-list run-hooks TeX-after-insert-macro-hook] 6 (#$ . 113363) (byte-code "\302\303\304 R\305 \306\211\211\307&C\207" [TeX-default-macro TeX-esc completing-read "Macro (default " "): " TeX-symbol-list-filtered nil TeX-macro-history] 8)]) (defvar TeX-electric-macro-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [minibuffer-local-completion-map make-sparse-keymap set-keymap-parent define-key " " minibuffer-complete-and-exit] 5)) #@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 #[0 "h=\203\n\304\305!\207h\306=\203\307 \304\310!*\207 \304\310!)\207" [last-command-event TeX-electric-macro-map minibuffer-local-completion-map TeX-default-macro call-interactively self-insert-command 46 " " TeX-insert-macro] 2 (#$ . 114233) nil]) #@62 Dynamically bound by `TeX-parse-macro' and `LaTeX-env-args'. (defvar TeX-exit-mark nil (#$ . 114656)) #@1514 How to parse TeX macros which takes one or more arguments. First argument SYMBOL is the name of the macro. If ARGS is nil, insert macro with point inside braces. Otherwise, each element in ARGS should match an argument to the TeX macro. What is done depend on the type of the element: 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 `TeX-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. (fn SYMBOL ARGS) (defalias 'TeX-parse-macro #[514 "\211:\203\f\211G\306U\203\307\310!\203\310 \235\203\202 :\203*G\306U\203;\307\310!\203;\310 \235\203;\202<\n\311 \203M`\312 V\203M\313 \210 \261\210\314 `\315!\210\316\f!\203m\316\f!b\210\f\317\211\223\202\317\320 \"\211\203z\211A\202\240\205\240\321!\306U\205\221@\247\205\221@\322X?\205\240`\232\205\240\323\324\"\262\205\317\325 \203\272\311 \205\317 c\210\313 \210\nc\202\317 c\210\311 \203\312\313 \210\nc\202\317\nc\210\326u)\266\202*\207" [LaTeX-default-verb-delimiter TeX-grop TeX-grcl TeX-esc TeX-exit-mark TeX-insert-braces-alist 1 fboundp LaTeX-verbatim-macros-with-delims TeX-active-mark mark exchange-point-and-mark make-marker TeX-parse-arguments marker-position nil assoc safe-length 0 string-match "[a-zA-Z]+" texmathp -1 TeX-insert-braces] 8 (#$ . 114766)]) #@199 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. (fn OPTIONAL &optional PROMPT INITIAL-INPUT) (defalias 'TeX-arg-string #[769 "\300\204\301 \203`\302 {`\302 |\210\211\262\202!\303\304\305#\"\"\207" [TeX-argument-insert TeX-active-mark mark TeX-read-string TeX-argument-prompt "Text"] 9 (#$ . 117149)]) #@45 Dynamically bound by `TeX-parse-arguments'. (defvar TeX-last-optional-rejected nil (#$ . 117572)) #@80 Parse TeX macro arguments ARGS. See `TeX-parse-macro' for details. (fn ARGS) (defalias 'TeX-parse-arguments #[257 "\306\211\205m\307@!\203V \310=\203\n\311\232\2022 \312=\203%\n\313\232\204f \314=\2031\n\315\232\203f\204f \f\316\317@G\320=\203K@\321H\202P\322@\306\"\"\210*\202f\306\316\306@\"\210*\211A\262\202)\207" [TeX-last-optional-rejected TeX-insert-macro-default-style current-prefix-arg LaTeX-optop LaTeX-optcl TeX-arg-closing-brace nil vectorp show-all-optional-args (4) show-optional-args (4) mandatory-args-only (4) TeX-parse-argument t 1 0 append TeX-arg-opening-brace TeX-grop TeX-grcl] 6 (#$ . 117676)]) #@228 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. (fn OPTIONAL ARG) (defalias 'TeX-parse-argument #[514 "\303;\203\304\"\210\305\262\202\367\247\203m\306W\203J\307 \203\367`\310 ^\311 `\310 ]\303\223\312c\210b\210\313\303x\210\314u\210c\210\315!b\210 c\266\305\202\367\306U\204\367\306V\203\367\316\305\"\210\317V\203\367\316\303\"\210S\262\202[\204\211c\210\204\200\307 \203\200\320 \210 c\210\305\262\202\367\305=\203\257c\210\204\241\307 \203\241\320 \210\202\246\n`\303\223\210 c\210\305\262\202\3679\203\273!\210\202\367<\203\360@A;\203\325\321\304#\266\202\3679\203\345\321#\266\202\367\322\323\324!\"\266\202\367\322\325\324!\"\210\211\205?\205\307 \205\326 \207" [TeX-arg-opening-brace TeX-arg-closing-brace TeX-exit-mark nil TeX-arg-string t 0 TeX-active-mark mark make-marker " " "^\\\\" -1 marker-position TeX-parse-argument 1 exchange-point-and-mark apply error "Unknown list argument type %s" prin1-to-string "Unknown argument type %s" deactivate-mark] 9 (#$ . 118338)]) #@194 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. (fn NAME OPTIONAL &optional PREFIX) (defalias 'TeX-argument-insert #[770 "\203\304\230\203\305\211\207 c\210\211\203\211c\210\304\230\203,\306\n!\204,\n`\307\223\210\202/c\210 c\207" [TeX-last-optional-rejected TeX-arg-opening-brace TeX-exit-mark TeX-arg-closing-brace "" t marker-position nil] 6 (#$ . 119569)]) #@277 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. (fn OPTIONAL PROMPT DEFAULT &optional COMPLETE) (defalias 'TeX-argument-prompt #[1027 "\203\300\202 \301\203\202\203\301\202\302Q\207" ["(Optional) " "" ": "] 7 (#$ . 120060)]) #@80 Divide number and unit in STRING and return a list (number unit). (fn STRING) (defalias 'TeX-string-divide-number-unit #[257 "\300\301\"\203#\211\302\300\303\"O\300\303\"\203\300\303\"\202G\304OD\207\305D\207" [string-match "[0-9]*\\.?[0-9]+" 0 "[^.0-9]" nil ""] 6 (#$ . 120487)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-default-unit-for-image funcall function #[0 "\300\207" [#1="cm"] 1 #1#] "Default unit when prompting for an image size." :group TeX-macro :type (choice (const "cm") (const "in") (const "\\linewidth") (string :tag "Other"))] 8) #@73 Evaluates FORM, if SYMBOL is an element of LIST. (fn SYMBOL LIST FORM) (defalias 'TeX-arg-maybe #[771 ">\205\n\300\301\"\207" [eval t] 6 (#$ . 121105)]) #@89 Parse its arguments but use no braces when they are inserted. (fn OPTIONAL &rest ARGS) (defalias 'TeX-arg-free #[385 "\302\211\211G\303=\203\304@\"\202\304\"*\207" [TeX-arg-closing-brace TeX-arg-opening-brace "" 1 TeX-parse-argument] 5 (#$ . 121269)]) #@165 Insert its arguments ARGS into the buffer. Used for specifying extra syntax for a macro. The compatibility argument OPTIONAL is ignored. (fn OPTIONAL &rest ARGS) (defalias 'TeX-arg-literal #[385 "\300\301\"\207" [apply insert] 5 (#$ . 121539)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-install-font-lock funcall function #[0 "\300\207" [font-latex-setup] 1] "Function to call to install font lock support.\nChoose `ignore' if you don't want AUCTeX to install support for font locking." :group TeX-misc :type (radio (function-item font-latex-setup) (function-item tex-font-setup) (function-item ignore) (function :tag "Other"))] 8) #@402 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]*{u?\\(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\\|\\(?:sub\\)\\{0,2\\}section\\|chapter\\|documentstyle\\|documentclass\\)\\b") ("TEX" plain-tex-mode ".")) (#$ . 122230)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable TeX-default-mode funcall function #[0 "\300\207" [latex-mode] 1] "Mode to enter for a new file when it can't be determined otherwise." :group TeX-misc :type (radio (function-item latex-mode) (function-item plain-tex-mode) (function :tag "Other")) TeX-force-default-mode #[0 "\300\207" [nil] 1] "If set to nil, try to infer the mode of the file from its content." boolean] 8) #@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 #[0 "\306 \307=\204 \203 \202W\212eb\210\310\311\n!\311\n!\312R \313\211\203J\211\204J\314\315@8\316\317#\203C\320 \204\"@A@\262\202\"A\262\202\"\211\203R\211\202S *\266\203) \207" [TeX-force-default-mode TeX-default-mode TeX-esc TeX-format-list case-fold-search comment-start-skip buffer-size 0 "\\(\\(^\\|[^\\\n]\\)\\(" regexp-quote "\\)*\\)\\(%+ *\\)" nil re-search-forward 2 10000 t TeX-in-comment] 7 (#$ . 123879) nil]) (byte-code "\300\301!\203\300\302!\203\303\304\305\"\210\300\207" [boundp tex--prettify-symbols-alist prettify-symbols-compose-predicate defalias TeX--prettify-symbols-compose-p #[771 "\300#\205\301\302\"\211:\203\303>\202\211\303=\262?\207" [tex--prettify-symbols-compose-p get-text-property face font-latex-verbatim-face] 7 "\n\n(fn START END MATCH)"]] 3) #@31 Perform basic initialization. (defalias 'VirTeX-common-initialization #[0 "\306 \210\307 \203 \310\202\311\312\313\304!\210\314\313\315!\210\313\316!\210\313\305!\210\317\313\320!\210\321\3228!\3228!\323R\313\324!\210\325\313\326!\210\307\313\327!\210\330\313\331!\210\332\313\333!\210\312\313\334!\210\335\334!\204f\336\313\337!\210\312\313\340!\210\341\342\3439\205z\344F\345:DD ; \210\346\347\350\312\307$\210\351<\352\353#\210,\203\235\354\342!\210\355\356!\203\264\313\357!\210=/\360\361\362\363B\356\312$\210\346\364\365\312\307$\210\346\366\367\312\307$\207" [TeX-mode-p TeX-PDF-mode TeX-output-extension indent-tabs-mode ispell-parser comment-start kill-all-local-variables t "pdf" "dvi" nil make-local-variable tex paragraph-start paragraph-separate "%" comment-start-skip "\\(\\(^\\|[^\\\n]\\)\\(" regexp-quote "\\)*\\)\\(%+[ ]*\\)" comment-end-skip "[ ]*\\(\\s>\\|\n\\)" comment-use-syntax comment-padding " " comment-indent-function TeX-comment-indent comment-multi-line compile-command boundp "make" words-include-escapes TeX-complete-list "\\\\\\([a-zA-Z]*\\)" 1 TeX-symbol-list-filtered "{}" "" add-hook write-contents-functions TeX-safe-auto-write define-key "ng" TeX-narrow-to-group TeX-source-correlate-mode fboundp TeX--prettify-symbols-compose-p prettify-symbols-alist advice--add-function :override #[0 "\300\301!\207" [advice--buffer-local prettify-symbols-compose-predicate] 2] #[257 "\300\301\"\207" [advice--set-buffer-local prettify-symbols-compose-predicate] 4 "\n\n(fn GV--VAL)"] completion-at-point-functions TeX--completion-at-point find-file-hook #[0 "\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 TeX-mode-map tex--prettify-symbols-alist] 5 (#$ . 125130)]) (byte-code "\301\300!\203 \302\236\243\303\236\243\203\211\203\304\305BC\"\266\306\307\310\311\312\313%\207" [hilit-patterns-alist boundp latex-mode plain-tex-mode append ams-tex-mode custom-declare-group TeX-parse nil "Parsing TeX files from AUCTeX." :group AUCTeX] 6) (defvar TeX-auto-parser '((styles TeX-auto-file TeX-run-style-hooks))) (defconst TeX-auto-parser-temporary 1) (defconst TeX-auto-parser-add 2) (defconst TeX-auto-parser-local 3) (defconst TeX-auto-parser-change 4) #@63 For NAME in `TeX-auto-parser' add ENTRIES. (fn NAME ENTRIES) (defalias 'TeX-auto-add-information #[514 "\303\" 8\211J\n8\211J\203BL\207\304L\210DL\207" [TeX-auto-parser TeX-auto-parser-change TeX-auto-parser-local assoc t] 10 (#$ . 127540)]) #@64 Return information in `TeX-auto-parser' about NAME. (fn NAME) (defalias 'TeX-auto-list-information #[257 "\303 \210\304\" 8\211J\n8\203q\305L\210\306\307\"\210\211\310\311\312\313\314J\"\"\315\"L\210\306\316\"\210\306\317!\210\211J\211\203l\211A\203l\211@A@@@\230\204UA\266\203\2028\211GGV\203bA\241\210\211AA\241\266\2028\210\306\320!\210\211J\207" [TeX-auto-parser TeX-auto-parser-change TeX-auto-parser-local TeX-update-style assoc nil message "Sorting %s..." sort mapcar TeX-listify apply append TeX-car-string-lessp "Sorting %s...done" "Removing duplicates..." "Removing duplicates...done"] 12 (#$ . 127805)]) #@290 Add information about NAME to the parser using PREFIX. Optional third argument PLURAL is the plural form of NAME. By default just add an `s'. This macro creates a set of variables and functions to maintain a separate type of information in the parser. (fn NAME PREFIX &optional PLURAL) (defalias 'TeX-auto-add-type '(macro . #[770 "\211\206\300P\301\302Q!\301\303Q!\301\304\305R!\301\304 \306R!\307\310Q\311\312\313F\312\313F\314\315DD\312\313F\314\315DD\316\n\317\301!D\320\226\321Q\322\301!E\257\316\n\313\323\324Q\325D\257\326\327\315\257D\330BBB\331\332\333\313\334\335BBEE\257\n\207" ["s" intern "-auto-" "-add-" "-" "-list" "-changed" "Information about " " in the current buffer.\nGenerated by `TeX-auto-add-type'." progn defvar nil make-variable-buffer-local quote defun &rest "Add information about " " to the current buffer.\nGenerated by `TeX-auto-add-type'." TeX-auto-add-information "List of " " active in the current buffer.\nGenerated by `TeX-auto-add-type'." TeX-auto-list-information add-to-list 'TeX-auto-parser (t) add-hook 'TeX-remove-style-hook lambda setq (nil)] 25 (#$ . 128456)])) #@84 Information about symbols in the current buffer. Generated by `TeX-auto-add-type'. (defvar TeX-auto-symbol nil (#$ . 129627)) #@84 Information about symbols in the current buffer. Generated by `TeX-auto-add-type'. (defvar TeX-symbol-list nil (#$ . 129759)) (make-variable-buffer-local 'TeX-symbol-list) #@84 Information about symbols in the current buffer. Generated by `TeX-auto-add-type'. (defvar TeX-symbol-changed nil (#$ . 129937)) (make-variable-buffer-local 'TeX-symbol-changed) #@108 Add information about SYMBOLS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest SYMBOLS) (defalias 'TeX-add-symbols #[128 "\300\301\"\207" [TeX-auto-add-information "symbol"] 4 (#$ . 130122)]) #@81 List of symbols active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'TeX-symbol-list #[0 "\300\301!\207" [TeX-auto-list-information "symbol"] 2 (#$ . 130340)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("symbol" TeX-auto-symbol TeX-add-symbols TeX-symbol-list TeX-symbol-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [TeX-symbol-list nil] 2]] 4) #@66 Hook run when a buffer is parsed and the information is applied. (defvar TeX-auto-apply-hook nil (#$ . 130770)) #@56 Parse and apply TeX information in the current buffer. (defalias 'TeX-auto-apply #[0 "\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 (#$ . 130888)]) #@66 Apply the information in ENTRY in `TeX-auto-parser'. (fn ENTRY) (defalias 'TeX-auto-apply-entry #[257 "8J 8\205\302\"\207" [TeX-auto-parser-temporary TeX-auto-parser-add apply] 6 (#$ . 131128)]) #@31 Call `TeX-auto-write' safely. (defalias 'TeX-safe-auto-write #[0 "\3001 \301 0\210\202\302\266\302\207" [(error) TeX-auto-write nil] 2 (#$ . 131338)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable TeX-auto-save funcall function #[0 "\300\207" [nil] 1] "Automatically save style information when saving the buffer." :group TeX-parse :type boolean TeX-auto-untabify #[0 "\300\207" [nil] 1] "Automatically untabify when saving the buffer."] 8) #@60 Save all relevant TeX information from the current buffer. (defalias 'TeX-auto-write #[0 "\203 \304ed\"\210 \205K\n\205K\305\306\n!\307\310 \311#\312Q\313 \"\314!\315!\2047\31614\317!0\210\2027\310\266\320!\203F\212\321 \210\322!)\207\323\324!\266\202\207" [TeX-auto-untabify TeX-auto-save TeX-auto-local TeX-all-extensions untabify expand-file-name file-name-as-directory TeX-strip-extension nil t ".el" TeX-master-directory file-name-directory file-exists-p (error) make-directory file-writable-p TeX-update-style TeX-auto-store message "Can't write style information."] 6 (#$ . 131878)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\320\310\321&\210\300\322\302\303\323DD\324\306\320\310\325&\207" [custom-declare-variable TeX-macro-default funcall function #[0 "\242\207" [TeX-macro-private] 1] "Default directory to search for TeX macros." :group TeX-file :type directory TeX-auto-default #[0 "\242\207" [TeX-auto-private] 1] "Default directory to place automatically generated TeX information." TeX-ignore-file #[0 "\300\207" [#1="\\(^\\|[/\\]\\)\\(\\.\\|\\.\\.\\|RCS\\|SCCS\\|CVS\\|babel\\..*\\)$"] 1 #1#] "Regular expression matching file names to ignore.\n\nThese files or directories will not be considered when searching for\nTeX files in a directory." TeX-parse regexp TeX-file-recurse #[0 "\300\207" [t] 1] "Whether to search TeX directories recursively.\nnil means do not recurse, a positive integer means go that far deep in the\ndirectory hierarchy, t means recurse indefinitely." (choice (const :tag "On" t) (const :tag "Off" nil) (integer :tag "Depth" :value 1))] 8) #@142 Generate style file for TEX and store it in AUTO. If TEX is a directory, generate style files for all files in the directory. (fn TEX AUTO) (defalias 'TeX-auto-generate #[514 "\306!?\206\202\307\"\206\202\310!\203>\311\312!!\313\312!! 9\203' \2023 \314U\2031\315\2023 S\316\317\320\"\"*\207\321\313!\322 \323#\324Q\"?\206\202\325\326\327\f #!\"\205\202r\315\330!)q\210\331\332\"\210\333\313!\322 \323#\324Q!\210\334p!\210\331\335\")\207" [TeX-ignore-file TeX-file-recurse default-directory TeX-all-extensions TeX-file-extensions BibTeX-file-extensions file-readable-p string-match file-directory-p directory-files expand-file-name file-name-as-directory 0 nil mapcar make-closure #[257 " \204 \302!?\205\303\300\"\207" [V0 TeX-file-recurse file-directory-p TeX-auto-generate] 4 "\n\n(fn FILE)"] file-newer-than-file-p TeX-strip-extension t ".el" TeX-match-extension TeX-delete-duplicate-strings append find-file-noselect message "Parsing %s..." TeX-auto-store kill-buffer "Parsing %s...done" TeX-Biber-file-extensions enable-local-eval] 9 (#$ . 133582) (byte-code "\302\303\304\211\305$!\211\302\303\306 \211\305$!\211D\207" [TeX-macro-default TeX-auto-default expand-file-name read-file-name "TeX file or directory: " confirm "AUTO lisp directory: "] 7)]) #@64 Create global auto directory for global TeX macro definitions. (defalias 'TeX-auto-generate-global #[0 "\305!\204\n\306!\210\307\310\211\311\312\f\"\210+\313\314\"\207" [TeX-auto-global TeX-Biber-file-extensions BibTeX-file-extensions TeX-file-extensions TeX-macro-global file-directory-p make-directory ("cls" "sty") nil mapc #[257 "\301\"\207" [TeX-auto-global TeX-auto-generate] 4 "\n\n(fn MACRO)"] byte-recompile-directory 0] 3 (#$ . 134886) nil]) #@85 Extract information for AUCTeX from current buffer and store it in FILE. (fn FILE) (defalias 'TeX-auto-store #[257 "\306 \210\307\310\311\">\203\343\312\307 \313#\314\302!\205\n\314\303!\205 \f\314\305!\205' \314\315!\205/ \314\316!\2057+\317!\210r\320 !q\210\321 \210\322\323\261\210\324\230\204_\325\326\327!\330\261\210\203n\331\332\327 !\330\261\210\203|\333\332\327!\330\261\210\211\203\220\211@\334\335\"c\210A\266\202\202}\210\211\203\245\211@\334\336\"c\210A\266\202\202\222\210\211\203\272\211@\334\337\"c\210A\266\202\202\247\210\340\341\342\n\"\"\210\330c\210\211\203\322\343\327!Pc\210\344c\210\345ed \307\346%\210\347p!)\207\350\351P!\203\361\352\351P!\210\350!\205\372\352!\207" [TeX-auto-parser TeX-all-extensions LaTeX-provided-class-options LaTeX-provided-package-options TeX-command-extra-options LaTeX-verbatim-environments-local TeX-auto-parse nil mapcar TeX-auto-entry-clear-p TeX-strip-extension t boundp LaTeX-verbatim-macros-with-delims-local LaTeX-verbatim-macros-with-braces-local TeX-unload-style generate-new-buffer erase-buffer "(TeX-add-style-hook\n \"" "\"\n (lambda ()" "" "\n (setq TeX-command-extra-options\n" " " prin1-to-string ")" "\n (TeX-add-to-alist 'LaTeX-provided-class-options\n" " '" "\n (TeX-add-to-alist 'LaTeX-provided-package-options\n" format "\n (add-to-list 'LaTeX-verbatim-environments-local \"%s\")" "\n (add-to-list 'LaTeX-verbatim-macros-with-braces-local \"%s\")" "\n (add-to-list 'LaTeX-verbatim-macros-with-delims-local \"%s\")" mapc make-closure #[257 "\301\300\"\207" [V0 TeX-auto-insert] 4 "\n\n(fn EL)"] "\n " ")\n\n" write-region silent kill-buffer file-exists-p "c" delete-file TeX-style-hook-dialect] 15 (#$ . 135353)]) #@80 Check if the temporary for `TeX-auto-parser' entry ENTRY is clear. (fn ENTRY) (defalias 'TeX-auto-entry-clear-p #[257 "8J?\207" [TeX-auto-parser-temporary] 3 (#$ . 137146)]) #@133 Insert code to initialize ENTRY from `TeX-auto-parser'. If SKIP is not-nil, don't insert code for SKIP. (fn ENTRY &optional SKIP) (defalias 'TeX-auto-insert #[513 "\3028! 8J\211\205H\303\261\210\211\211\203E\211@\211;\203/\211\230\204/\304c\210\305!c\210\202>\211;\204>\304c\210\306\305!\261\210A\266\202\202\210\307c\207" [TeX-auto-parser-add TeX-auto-parser-temporary symbol-name "\n (" "\n " prin1-to-string "'" ")"] 9 (#$ . 137330)]) #@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") (#$ . 137799)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\207" [custom-declare-variable TeX-auto-regexp-list funcall function #[0 "\300\207" [TeX-auto-full-regexp-list] 1] "List of regular expressions used for parsing the current file." :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] 8) #@76 Add REGEXP to `TeX-auto-regexp-list' if not already a member. (fn REGEXP) (defalias 'TeX-auto-add-regexp #[257 "9\203J\211\235\206\211B\211\207" [TeX-auto-regexp-list] 3 (#$ . 138863)]) #@58 List of regular expressions guaranteed to match nothing. (defvar TeX-auto-empty-regexp-list '(("\\(\\'\\`\\)" 1 ignore)) (#$ . 139066)) #@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 "\\(?:[a-zA-Z]\\|\\cj\\)" (#$ . 139221)) #@73 List of regular expression matching common plain TeX macro definitions. (defvar plain-TeX-auto-regexp-list (byte-code "\301\302Q\303B\304\302Q\305B\306\302Q\307B\310\302Q\311B\312\302Q\313B\314\315Q\316B\317\320Q\321B\322\323 \302Q\324B\257 \207" [TeX-token-char "\\\\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)] 12) (#$ . 139518)) #@65 Full list of regular expression matching TeX macro definitions. (defvar TeX-auto-full-regexp-list plain-TeX-auto-regexp-list (#$ . 140308)) #@55 List of hooks to be called before parsing a TeX file. (defvar TeX-auto-prepare-hook nil (#$ . 140454)) #@54 List of hooks to be called after parsing a TeX file. (defvar TeX-auto-cleanup-hook nil (#$ . 140563)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\210\300\313\302\303\314DD\315\306\307\310\311&\210\312\313!\210\300\316\302\303\317DD\320\310\321\306\307&\210\312\316!\207" [custom-declare-variable TeX-auto-parse-length funcall function #[0 "\300\207" [999999] 1] "Maximal length of TeX file (in characters) that will be parsed." :group TeX-parse :type integer make-variable-buffer-local TeX-auto-x-parse-length #[0 "\300\207" [0] 1] "Maximum length of TeX file that will be parsed additionally.\nUse `TeX-auto-x-regexp-list' for parsing the region between\n`TeX-auto-parse-length' and this value." TeX-auto-x-regexp-list #[0 "\300\207" [LaTeX-auto-label-regexp-list] 1] "List of regular expressions used for additional parsing.\nSee `TeX-auto-x-parse-length'." (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)))] 8) #@139 Return number of groups in a REGEXP. This is not foolproof: you should not use something like `[\(]' for a character range. (fn REGEXP) (defalias 'TeX-regexp-group-count #[257 "\300\301\302\303#\203\301\225\304Z\262\211T\262\202\207" [nil 0 string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\\\([^?]" 2] 7 (#$ . 141833)]) #@95 Parse TeX information according to REGEXP-LIST between BEG and END. (fn REGEXP-LIST BEG END) (defalias 'TeX-auto-parse-region #[771 "9\203\300!\205 J\262\205\371\301C\302C\303\304\305\306#\307#\310Q\301\211C\242\311V\2034\312\313\242\"\210\314\240\210\203Bd^\202Cdb\210\315\316#\203\246\317\301\242\320#A\3218A@\322 \204\241\323@!\210\324!\203t!\266\202E\325<\203\201\326\327\"\202\204\327!\211\242S\240\236\206\236\330\331\332\"BB\211\262 @A#\210\266\202E\314\240\210\211\205\365\211@@J\240\210\242\203\323\325\242\211\242A\240\210\242\211\242T\240A#\210\202\267\333\305\334\"A\"\210\335A!\210\211@\326\336\337\242\340\"\"L\210A\266\202\202\253\262\266\205\207" [boundp nil 1 "\\(" mapconcat make-closure #[257 "\300\301\242B\300\242B\240\210\301\211\242T\302@!\\\240\210\211@\207" [V0 V1 TeX-regexp-group-count] 5 "\n\n(fn X)"] "\\)\\|\\(" "\\)" 255 error "The TeX auto-parser's regexp has too many groups (%d)" 0 re-search-backward t TeX-member #[514 "\211@\224\207" [] 3 "\n\n(fn A B)"] 2 TeX-in-comment looking-at fboundp puthash mapcar TeX-match-buffer make-hash-table :test equal maphash #[514 "\300B\300\242B\240\207" [V0] 5 "\n\n(fn KEY VALUE)"] clrhash cdr sort car-less-than-car] 18 (#$ . 142168)]) #@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 #[0 "\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' \211\203[\211A\203[\211A@\235\203T\211AA\241\210\2029\211A\262\2029\210\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 mapc TeX-auto-clear-entry run-hooks TeX-auto-prepare-hook TeX-auto-parse-region TeX-auto-cleanup-hook TeX-auto-symbol TeX-auto-ignore] 5 (#$ . 143464)]) #@57 Set the temporary variable in ENTRY to nil. (fn ENTRY) (defalias 'TeX-auto-clear-entry #[257 "8\301L\207" [TeX-auto-parser-temporary nil] 3 (#$ . 144160)]) (defvar LaTeX-auto-end-symbol nil) #@84 Add MATCH to TeX-auto-symbols. Check for potential LaTeX environments. (fn MATCH) (defalias 'TeX-auto-symbol-check #[257 "\211<\203\f\300\301\"\202\301!\211;\203%\302\303\"\203%\304\305\306\224\306\225O\"\207\211<\203>\211\211\205=\211@\304\307\"\210A\266\202\202+\207\304\307\"\207" [mapcar TeX-match-buffer string-match "^end\\(.+\\)$" add-to-list LaTeX-auto-end-symbol 1 TeX-auto-symbol] 7 (#$ . 144360)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\210\306\316\310\311\317DD\320\304\301\314\321&\210\306\322\310\311\323DD\324\304\301\314\325&\210\326\322!\207" [custom-declare-group TeX-file-extension nil "File extensions recognized by AUCTeX." :group TeX-file custom-declare-variable TeX-file-extensions funcall function #[0 "\300\207" [("tex" "sty" "cls" "ltx" "texi" "txi" "texinfo" "dtx")] 1] "File extensions used by manually generated TeX files." :type (repeat (regexp :format "%v")) TeX-all-extensions #[0 "\300\207" [("[^.\n]+")] 1] "All possible file extensions." (repeat (regexp :format "%v")) TeX-default-extension #[0 "\300\207" [#1="tex"] 1 #1#] "Default extension for TeX files." string make-variable-buffer-local] 8) #@41 File extensions of documentation files. (defvar TeX-doc-extensions '("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") (#$ . 145563)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable docTeX-default-extension funcall function #[0 "\300\207" [#1="dtx"] 1 #1#] "Default extension for docTeX files." :group TeX-file-extension :type string] 8) #@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 (#$ . 146043)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\317&\210\302\320\304\305\321DD\322\310\311\312\323&\210\302\324\304\305\325DD\326\310\311\312\327&\207" [make-variable-buffer-local TeX-output-extension custom-declare-variable TeX-Biber-file-extensions funcall function #[0 "\300\207" [("bib" "ris" "xml")] 1] "Valid file extensions for Biber files." :group TeX-file-extension :type (repeat (regexp :format "%v")) BibTeX-file-extensions #[0 "\300\207" [("bib")] 1] "Valid file extensions for BibTeX files." (repeat (regexp :format "%v")) BibLaTeX-style-extensions #[0 "\300\207" [("bbx")] 1] "Valid file extensions for BibLaTeX styles." (repeat (regexp :format "%v")) BibTeX-style-extensions #[0 "\300\207" [("bst")] 1] "Valid file extensions for BibTeX styles." (repeat (regexp :format "%v"))] 8) #@171 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. (fn FILE &optional EXTENSIONS) (defalias 'TeX-match-extension #[513 "\211\204\262\302\303\304\305#\306Q\307\310\")\207" [TeX-file-extensions case-fold-search "\\.\\(" mapconcat identity "\\|" "\\)$" t string-match] 7 (#$ . 147181)]) #@466 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 or is a member of `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'. (fn &optional STRING EXTENSIONS NODIR NOSTRIP) (defalias 'TeX-strip-extension #[1024 "\204\f\303 \206\n\304\262\204\262\211\204&\305\"\203&\306\211\224O\202'\307\310!\206/\311!\312=\204P\211\307\311!\230\204P\211\313\314 \"\235\204P\211\313\314\n\"\235\203T\315!\207\207" [TeX-file-extensions TeX-macro-global TeX-macro-private buffer-file-name "" TeX-match-extension 0 expand-file-name file-name-directory "./" t mapcar file-name-as-directory file-name-nondirectory] 10 (#$ . 147568)]) #@44 Return a list of available TeX tree roots. (defalias 'TeX-tree-roots #[0 "\300\301\302\303\"\211\203'\211@\304!\203 \211\235\203\202\211B\262A\266\202\202\210\211\237\207" [nil TeX-tree-expand ("$TEXMFHOME" "$TEXMFMAIN" "$TEXMFLOCAL" "$TEXMFDIST") "latex" file-readable-p] 5 (#$ . 148510)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-tree-roots funcall function #[0 "\300 \207" [TeX-tree-roots] 1] "List of all available TeX tree root directories." :group TeX-file :type (repeat directory)] 8) #@329 Return a list of files in directories determined by expanding VAR. Only files which match EXTENSIONS are returned. SCOPE defines the scope for the search and can be `local' or `global' besides nil. If NODIR is non-nil, remove directory part. If STRIP is non-nil, remove file extension. (fn VAR EXTENSIONS SCOPE NODIR STRIP) (defalias 'TeX-search-files-kpathsea #[1285 "C\205N\301=\203\302\202\303C\304\"\304\305=\203#\306\307\"\262\310\311\312\242\313#\314Q\240\210\315\316\317\320\321\n#\"\"\262\203K\317\320\322\"\"\207\211\266\202\207" [TeX-kpathsea-path-delimiter local ("./") TeX-tree-expand nil global delete "./" "\\.\\(?:" mapconcat identity "\\|" "\\)\\'" apply append mapcar make-closure #[257 "\302!\205\303\301?\300\242\304$\207" [V0 V1 file-readable-p directory-files t] 6 "\n\n(fn X)"] #[257 "\301\300\242\"\203\211\302\211\224O\207\207" [V0 string-match 0] 4 "\n\n(fn X)"]] 15 (#$ . 149073)]) #@432 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' (fn &optional DIRECTORIES EXTENSIONS NODIR STRIP) (defalias 'TeX-search-files #[1024 "\204\262\204\305\306 \n\"B\262\307 9\203 \202) \310U\203'\307\202) S\203\237@\211\205C\311!\205C\312!\205C\313!A\262\211\203\232@PA\262\314\f\"\204\226\311!\203\226\312!\203\200 \203\226\306\315\316!C\n\n\n$\"\262\210\202H\317\"\203\226\320?$B\262\210\202H\266\202*)\207" [TeX-file-extensions TeX-macro-private TeX-macro-global TeX-file-recurse TeX-ignore-file "./" append nil 0 file-readable-p file-directory-p directory-files string-match TeX-search-files file-name-as-directory TeX-match-extension TeX-strip-extension] 15 (#$ . 150025)]) #@710 Alist of filetypes with locations and file extensions. Each element of the alist consists of a symbol expressing the filetype, a variable which can be expanded on kpathsea-based systems into the directories where files of the given type reside, a list of absolute directories, relative directories below the root of a TDS-compliant TeX tree or a list of variables with either type of directories as an alternative for non-kpathsea-based systems and a list of extensions to be matched upon a file search. Note that the directories have to end with a directory separator. Each AUCTeX mode should set the variable buffer-locally with a more specific value. See `LaTeX-search-files-type-alist' for an example. (defvar TeX-search-files-type-alist '((texinputs "${TEXINPUTS}" ("tex/") TeX-file-extensions) (docs "${TEXDOCS}" ("doc/") TeX-doc-extensions) (bibinputs "${BIBINPUTS}" ("bibtex/bib/") BibTeX-file-extensions) (bstinputs "${BSTINPUTS}" ("bibtex/bst/") BibTeX-style-extensions)) (#$ . 151102)) #@592 Return a list of files in TeX's search path with type FILETYPE. FILETYPE is a symbol used to choose the search paths and extensions. See `TeX-search-files-type-alist' for supported symbols. The optional argument SCOPE sets the scope for the search. Besides nil the symbols `local' and `global' are accepted. `local' means to search in the current directory only, `global' in the global directories only and nil in both. If optional argument NODIR is non-nil, remove directory part. If optional argument STRIP is non-nil, remove file extension. (fn FILETYPE &optional SCOPE NODIR STRIP) (defalias 'TeX-search-files-by-type #[1025 "\304 \236\211A@\3058\3068\307\211\2119\203\310\311\"\202\262\312\f\f\f%\206\257 \313=\204B\307\314\315  $)\262 \316=\203M\211\202\257 \204X\317\320!\210\202\243\321\322\323\324\325 \"\"!\262\326@!\203q\262\202\243 \211\203\242\211@\211\203\232\211@\327\"\211\235\204\222\323C\"\262\210A\266\202\202y\210A\266\202\202r\210\323\314  $\")\207" [gc-cons-threshold TeX-search-files-type-alist TeX-file-recurse TeX-tree-roots 10000000 2 3 nil eval t TeX-search-files-kpathsea global TeX-search-files ("./") local error "No TeX trees available; configure `TeX-tree-roots'" TeX-delete-duplicate-strings apply append mapcar #[257 "\2119\203\211J\207\211C\207" [] 2 "\n\n(fn RAWDIR)"] file-name-absolute-p expand-file-name] 19 (#$ . 152109)]) #@44 Make text outside current group invisible. (defalias 'TeX-narrow-to-group #[0 "\212~\210`\300\211\301\302\300\303#\204\304\305!\266\203\2022`\262\306 \210`\262\211W\203-\304\305!\266\203\2022}\266\203)\207" [nil search-backward "{" t message "Nothing to be narrowed here." forward-sexp] 7 (#$ . 153545) nil]) (put 'TeX-narrow-to-group 'disabled t) #@95 Return a newly created list with element ELT. If ELT already is a list, return ELT. (fn ELT) (defalias 'TeX-listify #[257 "\211<\203\207\211C\207" [] 2 (#$ . 153909)]) #@121 Return the member ELT in LIST. Comparison done with HOW. Return nil if ELT is not a member of LIST. (fn ELT LIST HOW) (defalias 'TeX-member #[771 "\203\211@\"\204A\262\202\242\207" [] 6 (#$ . 154087)]) #@75 Return non-nil if an element of ELTS is a member of LIST. (fn ELTS LIST) (defalias 'TeX-elt-of-list-member #[514 "\3002 \211\205\211@\211\235\203\301\300\302\"\210A\266\202\202\2620\207" [found throw t] 7 (#$ . 154309)]) #@17 (fn KEY LIST) (defalias 'TeX-assoc #[514 "\300\301#\207" [assoc-string t] 6 (#$ . 154548)]) (make-obsolete 'TeX-assoc "use (assoc-string KEY LIST t) instead." "AUCTeX 13.0") #@93 Return the substring corresponding to the N'th match. See `match-data' for details. (fn N) (defalias 'TeX-match-buffer #[257 "\211\224\203\f\300\224\225\"\207\301\207" [buffer-substring-no-properties ""] 4 (#$ . 154732)]) #@172 Return non-nil if the text before point matches REGEXP. Optional second argument LIMIT gives a max number of characters to look backward for. (fn REGEXP &optional LIMIT) (defalias 'TeX-looking-at-backward #[513 "`\212\300\205 e`Z]\301#\205\302\225=)\207" [re-search-backward t 0] 8 (#$ . 154965)]) #@26 The current line number. (defalias 'TeX-current-line #[0 "\300\301\302 T\"\207" [format "%d" TeX-current-offset] 3 (#$ . 155277)]) #@56 Return current filename, relative to master directory. (defalias 'TeX-current-file-name-master-relative #[0 "\300\301 \302 \"\207" [file-relative-name buffer-file-name TeX-master-directory] 3 (#$ . 155414)]) #@72 Return t iff there's nothing but whitespace between (bob) and (point). (defalias 'TeX-near-bobp #[0 "\212\300\301x\210o)\207" [" \n" nil] 2 (#$ . 155628)]) #@271 Add NEW-ALIST to the ALIST-VAR. If an element with the same key as the key of an element of NEW-ALIST is already present in ALIST-VAR, add the new values to it; if a matching element is not already present, append the new element to ALIST-VAR. (fn ALIST-VAR NEW-ALIST) (defalias 'TeX-add-to-alist #[514 "\211\205>\211@\300@J\"C\211\242\2030\301\242J\"L\210\302\303\304\"A\"\210\305\242\306#\266\2027\305\306#\266\211A\262\202\207" [assoc delete mapc make-closure #[257 "\211\300\242A\235?\205\300\301\300\242C\"\240\207" [V0 append] 5 "\n\n(fn ELT)"] add-to-list t] 8 (#$ . 155792)]) #@38 Syntax table used while in TeX mode. (defvar TeX-mode-syntax-table (make-syntax-table) (#$ . 156406)) (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 #\210\305\334\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 124] 4) #@61 Specify whether to run command on master, buffer or region. (defvar TeX-command-current 'TeX-command-master (#$ . 157036)) #@61 Determine that the next command will be on the master file. (defalias 'TeX-command-select-master #[0 "\301\302!\210\303\211\207" [TeX-command-current message "Next command will be on the master file." TeX-command-master] 2 (#$ . 157165) nil]) #@56 Determine that the next command will be on the buffer. (defalias 'TeX-command-select-buffer #[0 "\301\302!\210\303\211\207" [TeX-command-current message "Next command will be on the buffer" TeX-command-buffer] 2 (#$ . 157415) nil]) #@56 Determine that the next command will be on the region. (defalias 'TeX-command-select-region #[0 "\301\302!\210\303\211\207" [TeX-command-current message "Next command will be on the region" TeX-command-region] 2 (#$ . 157654) nil]) (defvar TeX-command-force nil) #@57 Execute `TeX-command-list' NAME from a menu. (fn NAME) (defalias 'TeX-command-menu #[257 "\211 )\207" [TeX-command-force TeX-command-current] 2 (#$ . 157924)]) #@79 Print on PRINTER using method COMMAND to run NAME. (fn PRINTER COMMAND NAME) (defalias 'TeX-command-menu-print #[771 "\304\230?\205\304\230\205\211\305!,\207" [TeX-printer-list TeX-queue-command TeX-print-command TeX-printer-default "Other" TeX-command-menu] 7 (#$ . 158093)]) #@81 Return `TeX-printer-list' ENTRY as a menu item. (fn ENTRY LOOKUP COMMAND NAME) (defalias 'TeX-command-menu-printer-entry #[1028 "\300@\301@8\206F\"\207" [vector TeX-command-menu-print] 10 (#$ . 158391)]) #@61 Return `TeX-command-list' ENTRY as a menu item. (fn ENTRY) (defalias 'TeX-command-menu-entry #[257 "\211@\211\230\203 \203\303\304\305\"\306 \307\"\"B\207\211\n\230\2030 \2030\n\303\304\310\"\306 \311\"\"B\207\312\313DD\314\233\"\207" [TeX-command-Print TeX-printer-list TeX-command-Queue mapcar make-closure #[257 "\302\303 \300$\207" [V0 TeX-print-command TeX-command-menu-printer-entry 1] 6 "\n\n(fn ENTRY)"] append (("Other")) #[257 "\302\303 \300$\207" [V0 TeX-queue-command TeX-command-menu-printer-entry 2] 6 "\n\n(fn ENTRY)"] (("Other")) vconcat TeX-command-menu 5] 8 (#$ . 158613)]) #@75 Name to be displayed for the command menu in all modes defined by AUCTeX. (defconst TeX-command-menu-name "Command" (#$ . 159227)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\320\310\321&\207" [custom-declare-variable TeX-electric-escape funcall function #[0 "\300\207" [nil] 1] "If non-nil, ``\\'' will offer on-the-fly completion.\nIn Texinfo-mode, ``@'' will do that job instead and ``\\'' is not\naffected. See `TeX-electric-macro' for detail." :group TeX-macro :type boolean TeX-electric-sub-and-superscript #[0 "\300\207" [nil] 1] "If non-nil, insert braces after typing `^' and `_' in math mode." TeX-newline-function #[0 "\300\207" [newline] 1] "Function to be called upon pressing `RET'." TeX-indentation (choice (const newline) (const newline-and-indent) (const reindent-then-newline-and-indent) (sexp :tag "Other"))] 8) #@148 Either insert typed key ARG times or call `TeX-electric-macro'. `TeX-electric-macro' will be called if `TeX-electric-escape' is non-nil. (fn ARG) (defalias 'TeX-insert-backslash #[257 "\203\301 \207\302!\207" [TeX-electric-escape TeX-electric-macro self-insert-command] 3 (#$ . 160162) "*p"]) #@190 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. (fn ARG) (defalias 'TeX-insert-sub-or-superscript #[257 "\303!\210\205\304 \205 \nPc\210\305u\207" [TeX-electric-sub-and-superscript TeX-grop TeX-grcl self-insert-command texmathp -1] 3 (#$ . 160467) "*p"]) #@69 Call the function specified by the variable `TeX-newline-function'. (defalias 'TeX-newline #[0 "\301!\207" [TeX-newline-function call-interactively] 2 (#$ . 160866) nil]) #@43 Keymap for common TeX and LaTeX commands. (defvar TeX-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\332#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\341#\210\301\345\337#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\357#\210\301\361\362#\210\301\363\364#\210\301\365\366#\210\301\367\370#\210\301\371\372#\210\301\373\374#\210\301\375\376#\210\301\377\201@#\210\301\201A\201B#\210\301\201C\201D#\210\301\201E\201F#\210\301\201G\201H#\210\301\201I\201H#\210\301\201J\201K#\210\301\201L\201M#\210\301\201N\201O#\210\207" [make-sparse-keymap define-key "}" up-list "#" TeX-normal-mode "" "?" TeX-documentation-texdoc " " 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 ":" comment-or-uncomment-region "\"" TeX-uncomment ";" "%" "" TeX-PDF-mode " " TeX-interactive-mode "" TeX-source-correlate-mode "" TeX-pin-region "" TeX-toggle-debug-bad-boxes "" "" TeX-toggle-debug-warnings "" TeX-toggle-suppress-ignored-warnings "" TeX-view "" TeX-save-document "" TeX-command-region "" TeX-command-buffer "" TeX-command-master "" TeX-command-run-all " " 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] 5) (#$ . 161044)) #@62 Return a Command menu specific to the major MODE. (fn MODE) (defalias 'TeX-mode-specific-command-menu #[257 "\301\302\303\"\304F\207" [TeX-command-menu-name :filter make-closure #[128 "\301\300!\207" [V0 TeX-mode-specific-command-menu-entries] 3 "\n\n(fn &rest IGNORED)"] "Bug."] 6 (#$ . 162924)]) #@78 Return the entries for a Command menu specific to the major MODE. (fn MODE) (defalias 'TeX-mode-specific-command-menu-entries #[257 "\300\301\302\303\304\305\306\307\310\311\312\313\314\306\315\300\316\317\320 \"\321\"B\322BBBBBBBBBBBBBB\323\324\316\325\326!\"\"\"\207" [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))) 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"] ["Previous Error" TeX-previous-error :help "Jump to the previous error of the last TeX run" :visible TeX-parse-all-errors] ["Error Overview" TeX-error-overview :help "Open an overview of errors occured in the last TeX run" :visible TeX-parse-all-errors] ["Quick View" TeX-view :help "Start a viewer without prompting"] "TeXing Options" mapcar #[257 "\211@A@\300\301\302\"\303\304DD\305\306\307\310\311\304\nDE\312\301\313\n\"&\207" [vector format "Use %s engine" TeX-engine-set quote :style radio :selected eq TeX-engine :help "Use %s engine for compiling"] 14 "\n\n(fn X)"] TeX-engine-alist ("-" ["Generate PDF" TeX-PDF-mode :style toggle :selected TeX-PDF-mode :active (not (eq TeX-engine 'omega)) :help "Use PDFTeX to generate PDF instead of DVI"] ("PDF from DVI" :visible TeX-PDF-mode :help "Compile to DVI with (La)TeX and convert to PDF" ["Compile directly to PDF" (lambda nil (interactive) (setq TeX-PDF-from-DVI nil)) :style radio :selected (null (TeX-PDF-from-DVI)) :help "Compile directly to PDF without intermediate conversions"] ["dvips + ps2pdf" (lambda nil (interactive) (setq TeX-PDF-from-DVI "Dvips")) :style radio :selected (equal (TeX-PDF-from-DVI) "Dvips") :help "Convert DVI to PDF with dvips + ps2pdf sequence"] ["dvipdfmx" (lambda nil (interactive) (setq TeX-PDF-from-DVI "Dvipdfmx")) :style radio :selected (equal (TeX-PDF-from-DVI) "Dvipdfmx") :help "Convert DVI to PDF with dvipdfmx"]) ["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"] ["Correlate I/O" TeX-source-correlate-mode :style toggle :selected TeX-source-correlate-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"]) (["Compile and view" TeX-command-run-all :help "Compile the document until it is ready and open the viewer"]) delq nil TeX-command-menu-entry TeX-mode-specific-command-list] 20 (#$ . 163231)]) #@69 Return the list of commands available in the given MODE. (fn MODE) (defalias 'TeX-mode-specific-command-list #[257 "\301\211\211A\262\242\211\262\203&\3028:\203\3028>\203\211B\262\202\237\207" [TeX-command-list nil 4] 7 (#$ . 166863)]) #@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) :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) :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) :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) :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) :help "Hide the environment containing point"] ["Hide Current Comment" TeX-fold-comment :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :help "Hide the comment containing point"] "-" ["Show All in Current Buffer" TeX-fold-clearout-buffer :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :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) :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) :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) :help "Permanently show the item containing point"] "-" ["Hide or Show Current Item" TeX-fold-dwim :active (and (boundp 'TeX-fold-mode) TeX-fold-mode) :help "Hide or show the item containing point"]) (#$ . 167123)) (defvar TeX-customization-menu nil) (defvar TeX-common-menu-entries (byte-code "\301\302\303\304\305\306\307\310\311\312\"$\257\207" [AUCTeX-version ("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-documentation-texdoc :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 (if (eq major-mode 'doctex-mode) "LaTeX" 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!"] 11)) #@58 Mode-specific function to be called by `TeX-verbatim-p'. (defvar TeX-verbatim-p-function nil (#$ . 170558)) (make-variable-buffer-local 'TeX-verbatim-p-function) #@187 Return non-nil if position POS is in a verbatim-like construct. A mode-specific implementation is required. If it is not available, the function always returns nil. (fn &optional POS) (defalias 'TeX-verbatim-p #[256 "\205 \207" [TeX-verbatim-p-function] 2 (#$ . 170727)]) #@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 "%" (#$ . 171012)) (make-variable-buffer-local 'TeX-comment-start-regexp) #@73 Delete comment characters from the beginning of each line in a comment. (defalias 'TeX-uncomment #[0 "\212\301 \210\302\303P!\203o\204\304y\210\202`\305y\210\302\303P!\203,m\204,\305y\210\202\306`\"\262)\207" [TeX-comment-start-regexp beginning-of-line looking-at "^[ ]*" -1 1 uncomment-region] 4 (#$ . 171302) nil]) #@41 Comment or uncomment current paragraph. (defalias 'TeX-comment-or-uncomment-paragraph #[0 "\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 comment-region mark] 3 (#$ . 171640) nil]) #@42 Return non-nil if point is in a comment. (defalias 'TeX-in-comment #[0 "n\206\f?\206\fh\301=?\2053\212\302 \303\304\"\216`\305 \210\306!\204*\307\310#\205-\311 ?\262)\262)\207" [comment-start-skip 13 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] beginning-of-line looking-at re-search-forward t TeX-verbatim-p] 6 (#$ . 171948)]) #@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 #[0 "\212\301y\210\302\303w\210\304`d`G\\^\"\230)\207" [comment-start 0 " " nil buffer-substring-no-properties] 5 (#$ . 172332)]) #@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 #[0 "\212\301y\210\302`d`G\\^\"\230)\207" [comment-start 0 buffer-substring-no-properties] 5 (#$ . 172853)]) #@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 #[0 "\212\301 \210\302 \303\304\"\216\305\306\307Q!\205\310\311!)\262)\207" [TeX-comment-start-regexp beginning-of-line match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at "\\([ ]*" "+\\)+" match-string 0] 5 (#$ . 173153)]) #@302 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. (fn &optional COUNT LIMIT) (defalias 'TeX-forward-comment-skip #[512 "\204\301\262\302U\203\301\262\211\204d\262\303!\302\211W\205\257\304\302W\203.\305y\210\2021\306 \210\307\310\311Q!\205B\312 \313 \\\302\225{\212\302V\203O`X\202R`Y\205\207\302V\203`\301y\202b\305y\302U\205\207\211\203\201\307\310\311Q!\205\207\211\312 \313 \\\302\225{\230\202\207\307\314P!?)\203\235\302V\203\227\301y\210\202B\305y\210\202B\302V\203\246\301y\210\266\211T\262\202\207" [TeX-comment-start-regexp 1 0 abs nil -1 beginning-of-line looking-at "\\([ ]*" "+\\)+" line-beginning-position current-indentation "[ ]*"] 10 (#$ . 173610)]) #@314 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. (fn &optional COUNT LIMIT) (defalias 'TeX-backward-comment-skip #[512 "\204\300\262\301U\203\300\262\211\204e\262\302[\"\207" [1 0 TeX-forward-comment-skip] 5 (#$ . 174554)]) #@140 Skip forward over N comments. Just like `forward-comment' but only for positive N and can use regexps instead of syntax. (fn &optional N) (defalias 'TeX-comment-forward #[256 "\300 \210\301!\207" [comment-normalize-vars comment-forward] 3 (#$ . 175035)]) #@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 #[0 "\250\203\n\301\302\"\207\207" [comment-padding make-string 32] 3 (#$ . 175299)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\207" [custom-declare-group TeX-indentation nil "Indentation of TeX buffers in AUCTeX." :group AUCTeX custom-declare-variable TeX-brace-indent-level funcall function #[0 "\300\207" [2] 1] "The level of indentation produced by an open brace." :type integer] 8) #@41 Determine the indentation of a comment. (defalias 'TeX-comment-indent #[0 "\301\302!\203i\207\303\304x\210n\203\305\202iT]\207" [comment-column looking-at "%%%" " " nil 0] 2 (#$ . 175972)]) #@37 Count number of open/closed braces. (defalias 'TeX-brace-count-line #[0 "\212\301\302 \303\304w\210`W\203C\305 \204C\303f\262\303u\210\211\306\267\202?\\\211\262\202@Z\211\262\202@`W\203C\303u\210\202\303\204\266\203)\207" [TeX-brace-indent-level 0 line-end-position nil "^{}\\\\" TeX-in-comment #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (123 33 125 42 92 51))] 5 (#$ . 176176)]) #@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 "\300\301\302!!\303\211\203\211@\304@A#\210A\266\202\202\210\207" [make-syntax-table make-char-table syntax-table ((12 . ">") (10 . ">") (34 . " ") (40 . " ") (41 . " ")) modify-syntax-entry] 7) (#$ . 176627)) #@322 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 " ". (fn &rest ARGS) (defalias 'TeX-search-syntax-table #[128 "\303\304\305\306#\210\304\307\306#\210\304\310\306#\210\304\311 !\312#\210\n\313=\204'\304\310\314#\210\211\211\203<\211@\304@\306#\210A\266\202\202(\210\211\203a\211@\315\"\204O\316\317!\210\304\315\"A#\210A\266\202\202>\210\207" [TeX-search-syntax-table TeX-esc major-mode ((123 . "(}") (125 . "){") (91 . "(]") (93 . ")[") (40 . "()") (41 . ")(") (60 . "(>") (62 . ")<")) modify-syntax-entry 92 " " 64 37 string-to-char "\\" texinfo-mode "<" assoc error "Char not supported"] 9 (#$ . 177007)]) #@335 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. (fn &optional COUNT DEPTH LIMIT) (defalias 'TeX-find-balanced-brace #[768 "\203\300U\203\301\302!\202\202\303\203)\303W\203%\301\304!\202*\202*\303\214\203@\300V\203<e}\210\202@d}\210\305 p\306\307#\216\310\311\312\313\"!\210\3141]\315`#0\202_\210\316)\266\202)\207" [0 error "COUNT has to be <> 0" 1 "DEPTH has to be > 0" syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table TeX-search-syntax-table 123 125 (error) scan-lists nil] 11 (#$ . 177898)]) #@298 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. (fn &optional DEPTH LIMIT) (defalias 'TeX-find-closing-brace #[512 "\300\301#\207" [TeX-find-balanced-brace 1] 6 (#$ . 178737)]) #@296 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. (fn &optional DEPTH LIMIT) (defalias 'TeX-find-opening-brace #[512 "\300\301#\207" [TeX-find-balanced-brace -1] 6 (#$ . 179145)]) #@243 Return a list containing the start and end of a macro. If LOWER-BOUND is given, do not search backward further than this point in buffer. Arguments enclosed in brackets or braces are considered part of the macro. (fn &optional LOWER-BOUND) (defalias 'TeX-find-macro-boundaries #[256 "\214\211\203 \211d}\210`\302\211f\303H=\203\304 \204`\262\211\204;\212\305\302x\210`Sf\303H=\203:\304`S!\204:`S\262)\211\204\235\212\3062\233\307\3101R\311 \210\3070\202W\210\302\202\231\205\231\3121e\313 0\210\202k\210\314\306\302\"\210\315\316!\210`Sf\317>\203~\304`S!\203Z\305\302x\210`Sf\303H=\205\231\304`S!?\205\231`S\211\262)0\210)\211\205\261\212\320!b\210`W\205\260\211`B)\266\202)\207" [TeX-esc parse-sexp-ignore-comments nil 0 TeX-escaped-p "A-Za-z@*" abort t (error) up-list (error) backward-sexp throw forward-comment -1 (93 125) TeX-find-macro-end-helper] 6 (#$ . 179552)]) #@219 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. (fn START) (defalias 'TeX-find-macro-end-helper #[257 "\212\301 \302\303\"\216\3042\222Tb\210\305\306w\307U\203\306u\210\202\"\310\306w\210m\204\215\311\312!\204?\311\313P!\203W\212\314y\210\311\315!)\203W\314\224b\210\3161N\317 0\210\202\"\210\320\304`\"\210\202\"\311\321!\204p\311\313P!\203\205\212\314y\210\311\322!)\203\205\307\225b\210\323 \206\200\212\324\306w\210`)b\210\202\"\320\304`\"\210\202\"\320\304`\"0)\262)\207" [TeX-comment-start-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] found "A-Za-z@" nil 0 "*" looking-at "[ ]*\n?\\(\\[\\)" "[ ]*" 1 "[ ]*\\(\\[\\)" (scan-error) forward-sexp throw "[ ]*\n?{" "[ ]*{" TeX-find-closing-brace "^ \n"] 5 (#$ . 180464)]) #@205 Return the start of a macro. If LIMIT is given, do not search backward further than this point in buffer. Arguments enclosed in brackets or braces are considered part of the macro. (fn &optional LIMIT) (defalias 'TeX-find-macro-start #[256 "\300!@\207" [TeX-find-macro-boundaries] 3 (#$ . 181424)]) #@103 Return the end of a macro. Arguments enclosed in brackets or braces are considered part of the macro. (defalias 'TeX-find-macro-end #[0 "\300 A\207" [TeX-find-macro-boundaries] 1 (#$ . 181733)]) #@331 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. (fn STRING &optional BOUND NOERROR) (defalias 'TeX-search-forward-unescaped #[769 "\300\301\302%\207" [TeX-search-unescaped forward nil] 9 (#$ . 181935)]) #@332 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. (fn STRING &optional BOUND NOERROR) (defalias 'TeX-search-backward-unescaped #[769 "\300\301\302%\207" [TeX-search-unescaped backward nil] 9 (#$ . 182394)]) #@350 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. (fn REGEXP &optional BOUND NOERROR) (defalias 'TeX-re-search-forward-unescaped #[769 "\300\301\302%\207" [TeX-search-unescaped forward t] 9 (#$ . 182856)]) #@567 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. (fn PATTERN &optional DIRECTION REGEXP-FLAG BOUND NOERROR) (defalias 'TeX-search-unescaped #[1281 "\300=\203\203\301\202\302\202\203\303\202\304\30528\211#\2057\306\307\224!\204\310\305`\"\210\2020\207" [backward re-search-backward search-backward re-search-forward search-forward found TeX-escaped-p 0 throw] 10 (#$ . 183335)]) #@228 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. (fn &optional POS) (defalias 'TeX-escaped-p #[256 "\212\211\203\211b\210\301\302!\303x\304\"\305U)?\207" [TeX-esc mod regexp-quote nil 2 0] 4 (#$ . 184203)]) #@70 Return the name of the macro containing point, nil if there is none. (defalias 'TeX-current-macro #[0 "\301 \211\205\212\211b\210Gu\210\302`\303\304w\210`\")\207" [TeX-esc TeX-find-macro-start buffer-substring-no-properties "@A-Za-z" nil] 5 (#$ . 184578)]) #@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 (#$ . 184845)) (make-variable-buffer-local 'TeX-search-forward-comment-start-function) #@334 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. (fn &optional LIMIT) (defalias 'TeX-search-forward-comment-start #[256 "\203!\207\211\206 d\262\302 \303#\205\304\224\207" [TeX-search-forward-comment-start-function TeX-comment-start-regexp TeX-re-search-forward-unescaped t 0] 5 (#$ . 185240)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-font-list funcall function #[0 "\300\207" [((2 "{\\bf " "}") (3 "{\\sc " "}") (5 "{\\em " "\\/}") (9 "{\\it " "\\/}") (18 "{\\rm " "}") (19 "{\\sl " "\\/}") (20 "{\\tt " "}") (4 #1="" #1# t))] 1] "List of fonts used by `TeX-font'.\n\nEach entry is a list.\nThe first element is the key to activate the font.\nThe second element is the string to insert before point, and the third\nelement is the string to insert after point.\nIf the fourth and fifth element are strings, they specify the prefix and\nsuffix to be used in math mode.\nAn optional fourth (or sixth) element means always replace if t." :group TeX-macro :type (repeat (group :value (1 #1# #1#) (character :tag "Key") (string :tag "Prefix") (string :tag "Suffix") (option (group :inline t (string :tag "Math Prefix") (string :tag "Math Suffix"))) (option (sexp :format "Replace\n" :value t))))] 8) #@73 Determines the function which is called when a font should be replaced. (defvar TeX-font-replace-function 'TeX-font-replace (#$ . 186765)) #@67 A textual description of an ENTRY in `TeX-font-list'. (fn ENTRY) (defalias 'TeX-describe-font-entry #[257 "\300\301\302\303@!!\"\3048\305=\204\3068\305=\203\307\202F\300\310A@\3118\3048;\2034\3048\2025\312\3138;\203D\3138\202E\312%P\207" [format "%16s " key-description char-to-string 3 t 5 "-- delete font" "%14s %-3s %14s %-3s" 2 "" 4] 9 (#$ . 186910)]) #@173 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'. (fn REPLACE WHAT) (defalias 'TeX-font #[514 "\306 \210\307\"\310 A@\3118\206 \3128\313=\206 \3148\313=\262\2037\3128;\2037\3128\262\3158\262\204p\316\317\320\321#P r\322\323!q\210p\324 \210\325\211\313\211\313\326 \210\327\330!\210+\211\323q\210c\331!\210)\207\203z\"\207\332 \203\236\212\333 `V\203\223c\210\333 b\210\211c\202\234\211c\210\333 b\210c)\207c\210\212\211c)\207" [TeX-font-list default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks TeX-update-style assoc texmathp 2 3 t 5 4 "Font list: KEY TEXTFONT MATHFONT\n\n" mapconcat TeX-describe-font-entry "\n" get-buffer-create "*Help*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show TeX-active-mark mark inhibit-read-only standard-output TeX-font-replace-function] 13 (#$ . 187297) "*P\nc"]) #@200 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'. (fn START END) (defalias 'TeX-font-replace #[514 "\212\300\301!\204\302\303!\210\202\304 \210\212\305\306\211#\210)\212\307u\210\300\310!\203+\311\312!\210\313\202,\306)\2034\311\303!\210\211c)\207" [looking-at "{\\\\[a-zA-Z]+ " up-list -1 forward-sexp replace-match t -3 "\\\\/}" delete-char 3 nil] 6 (#$ . 188374)]) #@193 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'. (fn START END) (defalias 'TeX-font-replace-macro #[514 "\302\211\211\203?@A\262A\262@;\203$@\303\230\204$@B\262AA\262@;\203@\303\230\204@B\262\202\304\305\306#\262\212\3072pg\310U\204U\311\302x\210\305 !\302x\210\312!\203i\313\307\314\"\210\202K\315\316!\210\202K\210\317 p\320\321#\216\322\323\324\325\"!\210\326\327!\210)\266\212\330\314\211#\210)\331\316!\210c)\207" [TeX-font-list TeX-esc nil "" mapconcat regexp-quote "\\|" done 92 "a-zA-Z " looking-at throw t up-list -1 syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table TeX-search-syntax-table 123 125 forward-sexp 2 replace-match delete-char] 12 (#$ . 188891)]) (defvar TeX-symbol-marker nil) (defvar TeX-symbol-marker-pos 0) #@53 Character used to enter and leave math mode in TeX. (defvar TeX-dollar-sign 36 (#$ . 189851)) (defconst TeX-dollar-string (char-to-string TeX-dollar-sign)) (defconst TeX-dollar-regexp (byte-code "\302\303!\304 \305\303!\260\207" [TeX-dollar-string TeX-esc "^" regexp-quote "\\|[^" "]"] 7)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable TeX-math-toggle-off-input-method funcall function #[0 "\300\207" [t] 1] "If non-nil, auto turn off some input methods when entering math mode.\nSee `TeX-math-input-method-off-regexp'." :group TeX-macro :type boolean TeX-electric-math #[0 "\300\207" [nil] 1] "If non-nil, when outside math mode `TeX-insert-dollar' will\ninsert symbols for opening and closing inline equation and put\nthe point between them. If there is an active region,\n`TeX-insert-dollar' will put around it symbols for opening and\nclosing inline equation and keep the region active, with point\nafter closing symbol. If you press `$' again, you can toggle\nbetween inline equation, display equation, and no equation.\n\nIf non-nil and point is inside math mode right between a couple\nof single dollars, pressing `$' will insert another pair of\ndollar signs and leave the point between them.\n\nIf nil, `TeX-insert-dollar' will simply insert \"$\" at point,\nthis is the default.\n\nIf non-nil, this variable is a cons cell whose CAR is the string\nto insert before point, the CDR is the string to insert after\npoint. You can choose between \"$...$\" and \"\\(...\\)\"." (choice (const :tag "No electricity" nil) (const :tag "$...$" ("$" . "$")) (const :tag "\\(...\\)" ("\\(" . "\\)")) (cons :tag "Other" (string :tag "Insert before point") (string :tag "Insert after point")))] 8) #@437 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 and `blink-matching-paren' is non-nil. When outside math mode, the behavior is controlled by the variable `TeX-electric-math'. With raw \[universal-argument] prefix, insert exactly one dollar sign. With optional ARG, insert that many dollar signs. (fn &optional ARG) (defalias 'TeX-insert-dollar #[256 "\211\203\211<\203\305c\210\202K\211\203\306\307!\310\"c\210\202K\311 \204(\312 \203.\305c\210\202K\313 \203\251\203Lh\310=\203Lg\310=\203L\314c\210\315u\210\202K @;\203\240 @\316\317O\305\230\203\240\305c\210\320\321!\203i\322\323!\210\n\203K @\305\230\204\201\324\212\305\325x)\326\"\316U\203K\212 Ab\210\327 \203\222\330 !\210\202\234\322\331`\325\210`{\"\210)\202K\322\332 @\"\210\202K\203)\333 \203)`\334 V\203\274\335 \210\f\336=\203\327\337\340\334 \341#\203\327\342\343!\210\344\316\224!\210\202#\f\336=\203\362\337\345\334 \341#\203\362\342\346!\210\344\316\224!\210\202#\f\336=\203\337\347\334 \341#\204\n\337\350\334 \341#\203\342\351!\210\344\316\224!\210\202#\212@c\210)\335 \210Ac\210\352 \210\202K\203H@c\210\212Ac\210)\n\203K\315u\210\330 !\210\325u\210\202K\305c\210\353 \207" [TeX-electric-math texmathp-why blink-matching-paren blink-matching-delay last-command "$" make-string prefix-numeric-value 36 TeX-escaped-p TeX-verbatim-p texmathp "$$" -1 0 1 boundp TeX-math-close-double-dollar message "`TeX-math-close-double-dollar' has been removed,\nplease use `TeX-electric-math' instead." mod nil 2 pos-visible-in-window-p sit-for "Matches %s" "Math mode started with `%s' cannot be closed with dollar" TeX-active-mark mark exchange-point-and-mark TeX-insert-dollar re-search-forward "\\=\\$\\([^$][^z-a]*[^$]\\)\\$" t replace-match "$$\\1$$" set-mark "\\=\\\\(\\([^z-a]*\\)\\\\)" "\\\\[\\1\\\\]" "\\=\\\\\\[\\([^z-a]*\\)\\\\\\]" "\\=\\$\\$\\([^z-a]*\\)\\$\\$" "\\1" TeX-activate-region TeX-math-input-method-off] 5 (#$ . 191646) "P"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-math-input-method-off-regexp funcall function #[0 "\300\207" ["^\\(bulgarian\\|chinese\\|japanese\\|\\(?:kore\\|russi\\)an\\)"] 1] "Regexp matching input methods to be deactivated when entering math mode." :group TeX-misc :type regexp] 8) #@50 Toggle off input method when entering math mode. (defalias 'TeX-math-input-method-off #[0 "\205\303 \205 \205\304\n \"\205\305 \207" [TeX-math-toggle-off-input-method current-input-method TeX-math-input-method-off-regexp texmathp string-match deactivate-input-method] 3 (#$ . 194061)]) #@150 List of variables to reset with `\[universal-argument] \[TeX-normal-mode]'. AUCTeX libraries and styles should add variables for reset to this list. (defvar TeX-normal-mode-reset-list '(TeX-style-hook-list) (#$ . 194363)) #@200 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. (fn &optional ARG) (defalias 'TeX-normal-mode #[256 "\211\203\211\203\211@\211\303L\210A\266\202\202\210\304\305 \203$\306 \210\202'\307 \210)\310 \210\n\311=\2037\312\303\211\304#\210\313\304!\207" [TeX-normal-mode-reset-list TeX-auto-save TeX-master nil t buffer-modified-p save-buffer TeX-auto-write normal-mode shared TeX-master-file TeX-update-style] 5 (#$ . 194592) "*P"]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\210\306\316\310\311\317DD\320\304\301\314\315&\210\306\321\310\311\322DD\323\304\301\314\324&\210\306\325\310\311\326DD\327\304\301\330\331\314\332& \207" [custom-declare-group TeX-quote nil "Quoting in AUCTeX." :group AUCTeX custom-declare-variable TeX-open-quote funcall function #[0 "\300\207" [#1="``"] 1 #1#] "String inserted by typing \\[TeX-insert-quote] to open a quotation." :type string TeX-close-quote #[0 "\300\207" [#2="''"] 1 #2#] "String inserted by typing \\[TeX-insert-quote] to close a quotation." TeX-quote-after-quote #[0 "\300\207" [nil] 1] "Behaviour of \\[TeX-insert-quote].\nNil means standard behaviour; when non-nil, opening and closing\nquotes are inserted only after \"." boolean TeX-quote-language-alist #[0 "\300\207" [nil] 1] "Alist for overriding the default language-specific quote insertion.\nFirst element in each item is the name of the language as set by\nthe language style file as a string. Second element is the\nopening quotation mark. Third element is the closing quotation\nmark. Opening and closing quotation marks can be specified\ndirectly as strings or as functions returning a string. Fourth\nelement is a boolean specifying insertion behavior, overriding\n`TeX-quote-after-quote'. See Info node `(auctex)European' for\nvalid languages." :link (custom-manual "(auctex)European") (repeat (group (choice (const "czech") (const "danish") (const "dutch") (const "german") (const "ngerman") (const "french") (const "italian") (const "polish") (const "portuguese") (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)))] 10) #@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 (#$ . 197005)) (make-variable-buffer-local 'TeX-quote-language) #@306 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. (fn FORCE) (defalias 'TeX-insert-quote #[257 "\211\204(\306\307!\203\307\310!\203\307\311`S\"\204(\312 \204(\313 \203.\314=\204.\315\316!!\207\317 \210 @\320=\203< \202A\321 @\n\"\211\206F \211\203P\211A@\202Q \203[\3228\202\\\f\203f\3238\202g \324!\203q \262\324!\203{ \262\211\203\352o\203\207\325\202\350\212\326\327!\330\327!QGG]\")\203\247\331\332\333!G[!\210\334\202\350\212\335\336x)\337W\203\265\325\202\350h\325U\204\277\325\202\350\212\337u\210o)\203\320\331\337!\210\202\350\212\340u\210\341\342!)\203\343\331\337!\210\202\350\331\337!\210c\207o\203\362\202Kh\343$!U\203\377\325\202Kh\325U\203 \325\202K\212G[u\210\341\327!!)\203\"\331G[!\210\325\202K\212G[u\210\341\327!!)\203;\331G[!\210\325\202K\212\337u\210\341\342!)\203J\202Kc\207" [major-mode TeX-quote-language TeX-quote-language-alist TeX-open-quote TeX-close-quote TeX-quote-after-quote 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-char match-string 0 "\"\"" "\"" nil -1 -2 looking-at "[ \n]\\|\\s(" string-to-char TeX-esc] 11 (#$ . 197491) "*P"]) #@53 Insert point or comma, cleaning up preceding space. (defalias 'TeX-insert-punctuation #[0 "\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 (#$ . 199193) nil]) #@301 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. (fn ARG) (defalias 'TeX-insert-braces #[257 "\302 \203`\303 W\203\304 \210c\210\212\303 b\210 c)\207 c\210\212\211\203)\305\306!!\210c)\207" [TeX-grcl TeX-grop TeX-active-mark mark exchange-point-and-mark forward-sexp prefix-numeric-value] 4 (#$ . 199495) "P"]) #@302 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 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 #[0 "\302\303!\210\304\305\306 \307\310\311\312\313\314\315\316\257\317\320\321\322\323\324\325\326\"r\211q\210\327\330\"\216\331c\210\332\333\334\335\336\337\340\341\342\326& \210\343c\210\332\344\334\335\336\337\340\345\342\326& \210\346c\210\347 *\262#&)\207" [reporter-prompt-for-summary-p AUCTeX-version require reporter "Bug report subject: " reporter-submit-bug-report "bug-auctex@gnu.org" AUCTeX-date window-system LaTeX-version TeX-style-path TeX-auto-save TeX-parse-self TeX-master TeX-command-list nil #[0 "\212eb\210\301!\210\302u\210\303\304!\210\302u\210\303\305!)\207" [mail-header-separator re-search-forward nil delete-char 1 2] 2] propertize "\n" display generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "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. In addition check if the bug is reproducable with an\nup-to-date version of AUCTeX. So please upgrade to the version\navailable from " insert-text-button "https://www.gnu.org/software/auctex/" face link help-echo "mouse-2, RET: Follow this link" action #[257 "\300\301!\207" [browse-url "https://www.gnu.org/software/auctex/"] 3 "\n\n(fn BUTTON)"] follow-link " if your\ninstallation is older than the one available from the web site.\n\nIf the bug is triggered by a specific (La)TeX file, you should try\nto produce a minimal sample file showing the problem and include it\nin your report.\n\nYour report will be posted for the auctex package at the GNU bug\ntracker. Visit " "https://debbugs.gnu.org/cgi/pkgreport.cgi?pkg=auctex" #[257 "\300\301!\207" [browse-url "https://debbugs.gnu.org/cgi/pkgreport.cgi?pkg=auctex"] 3 "\n\n(fn BUTTON)"] "\nto browse existing AUCTeX bugs.\n------------------------------------------------------------------------\n\n" buffer-string] 20 (#$ . 200063) nil]) #@256 Run texdoc to read documentation. Prompt for selection of the package of which to show the documentation. If called with a prefix argument ARG, after selecting the package, prompt for selection of the manual of that package to show. (fn &optional ARG) (defalias 'TeX-documentation-texdoc #[256 "\302\303!\304C\304\211\305\306G\304$\210\307\310\"\262G\306U?\205\307\203\231r\311\312\313\"\240!q\210\314 \210\315\316P!c\210\317b\210\212\320\321\304\322#\203R\323\317!\323\324!BB\262\202<*\325\326\"\216\327\330!\204d\331\332!\202\227\203\223\333\334\242!!\210\3351\216\336\307\337!\"A\211\262\205\212\340\330\304\306\304\341&0\202\227\210\304\202\227\331\342\")\207\331\343\344\345\322\"\346\216\304\347\350\351 P#\352\353\"\210\354\304\"\210\355!\210)\210)rq\210\356 +\"\207" [standard-output process-connection-type thing-at-point symbol nil set-text-properties 0 TeX-read-string "View documentation for: " get-buffer-create format "*texdoc: %s*" erase-buffer shell-command-to-string "texdoc --list --nointeract " 1 re-search-forward "^ *\\([0-9]+\\) +\\([-~/a-zA-Z0-9_.${}#%,:\\ ()]+\\)" t match-string 2 make-closure #[0 "\301\300\242!\205\302\303\301\300\242!\"\207" [V0 get-buffer-window quit-window t] 4] executable-find "texdoc" message "texdoc not found" TeX-pop-to-buffer get-buffer (quit) assoc "Please enter the number of the file to view, anything else to skip: " call-process "--just-view" "No documentation found for %s" "%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] start-process-shell-command "Doc view" "texdoc --view " set-process-sentinel ignore set-process-query-on-exit-flag accept-process-output buffer-string] 12 (#$ . 202376) "P"]) #@51 Read documentation for AUCTeX in the info system. (defalias 'TeX-goto-info-page #[0 "\300\301!\207" [info "auctex"] 2 (#$ . 204133) 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-by-type 'docs 'global t t))) (lambda (doc) (call-process "texdoc" nil 0 nil "--view" doc))) (latex-info (latex-mode) (lambda 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 (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)))) (#$ . 204327)) #@110 Display documentation for string NAME. NAME may be a package, a command, or a document. (fn &optional NAME) (defalias 'TeX-doc #[256 "\302\211\2035\211@ A@>\203.\3038 \211\203-\211@B\211\235\203&\202)\211B\262\262\210A\266\202\202\210\211\204V\304\305!\203R\306\307!\211\205Q\310\305\302\311\302\312&\207\313\314!\207\315\316!\203\300\203f\317\230\203\300\320\321!\302\211\3222\214\211\205\211\211@@\235\203\202\323\322\324\"\210A\266\202\202p\2620\262\211\203\245\211@\325\326@\"\244\262A\266\202\202\217\210\327\203\262\330\331\"\202\263\332\302\211\211\211 &\262\266\204\310\313\333!\207\3222\352\211\211\205\347\211@@\235\203\340\323\322A\"\210A\266\202\202\315\2620\211\203\367\334\335\"8!\207\313\336!\207" [TeX-doc-backend-alist major-mode nil 2 executable-find "texdoc" read-from-minibuffer "Input for `texdoc': " call-process 0 "--view" message "No documentation found" called-interactively-p any "" thing-at-point symbol found throw t mapcar list completing-read format "Package, command, or document (default %s): " "Package, command, or document: " "No documentation specified" 3 assoc "Documentation not found"] 13 (#$ . 205676) nil]) #@61 Run ispell on current TeX buffer. (fn COMMAND STRING FILE) (defalias 'TeX-run-ispell #[771 "\211\300 \230\203 \301\302!\207\303 \207" [TeX-region-file call-interactively ispell-region ispell-buffer] 5 (#$ . 206900)]) #@76 Run ispell on all open files belonging to the current document. (fn NAME) (defalias 'TeX-ispell-document #[257 "\211\302\230\203\n\303 \262\304\305\306\307\310!\205\310!C\"\311#\312\305\313\314!\315 B\311#\316\305\317 \311#\320\260\321 \211\205Y\211@\322!A\262\211\203T\323\"\203T\212\324!\210\325 \210)\266\2023\207" [TeX-check-path TeX-file-extensions "" TeX-master-file "\\`\\(" mapconcat #[257 "\300\301\302!!!\207" [regexp-quote expand-file-name file-name-as-directory] 5 "\n\n(fn DIR)"] append file-name-directory "\\|" "\\).*\\(" regexp-quote file-name-nondirectory TeX-style-list "\\)\\.\\(" identity "\\)\\'" buffer-list buffer-file-name string-match switch-to-buffer ispell-buffer] 10 (#$ . 207125) (byte-code "\300 C\207" [TeX-master-file] 1)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable TeX-ispell-extend-skip-list funcall function #[0 "\300\207" [t] 1] "Whether to extend regions selected for skipping during spell checking." :group TeX-misc :type boolean] 8) #@271 Add SKIP to car of `ispell-tex-skip-alists'. SKIP is an alist with the format described in `ispell-tex-skip-alists'. Each element in SKIP is added on top of the car of `ispell-tex-skip-alists'. This only happens if `TeX-ispell-extend-skip-list' is non-nil. (fn SKIP) (defalias 'TeX-ispell-skip-setcar #[257 "\205. @ A@\211\203&\211@\211\235\203\202\211B\262A\266\202\202\n\210D\211\266\202\207" [TeX-ispell-extend-skip-list ispell-tex-skip-alists] 7 (#$ . 208172)]) #@271 Add SKIP to cdr of `ispell-tex-skip-alists'. SKIP is an alist with the format described in `ispell-tex-skip-alists'. Each element in SKIP is added on top of the cdr of `ispell-tex-skip-alists'. This only happens if `TeX-ispell-extend-skip-list' is non-nil. (fn SKIP) (defalias 'TeX-ispell-skip-setcdr #[257 "\205. @ A@\211\203&\211@\211\235\203\202\211B\262A\266\202\202\n\210D\211\266\202\207" [TeX-ispell-extend-skip-list ispell-tex-skip-alists] 7 (#$ . 208665)]) #@1191 Skip across ARG1, ARG2 and ARG3 number of braces and brackets. This function is a variation of `ispell-tex-arg-end'. It should be used when adding skip regions to `ispell-tex-skip-alists' for constructs like: \begin{tabularx}{300pt}[t]{lrc} ... or \fontspec{font name}[font features] where optional and/or mandatory argument(s) follow(s) a mandatory one. ARG1 is the number of mandatory arguments before the optional one, ARG2 the max. number of following optional arguments, ARG3 is the max. number of mandatory arguments following. Omitting argument means 1. Here some examples for additions to `ispell-tex-skip-alists': \begin{tabularx}{300pt}[t]{lrc} ... ARG 1 2 3 ("tabularx" TeX-ispell-tex-arg-end) or equivalent ("tabularx" TeX-ispell-tex-arg-end 1 1 1) \fontspec{font name}[font features] ARG1 ARG2 ARG3=0 ("\\\\fontspec" TeX-ispell-tex-arg-end 1 1 0) \raisebox{lift}[height][depth]{contents} ARG1 ARG2 ARG3=0 (checked by Ispell) ("\\\\raisebox" TeX-ispell-tex-arg-end 1 2 0) Optional arguments before the first mandatory one are all skipped. (fn &optional ARG1 ARG2 ARG3) (defalias 'TeX-ispell-tex-arg-end #[768 "\3001=\301\302!\203\303 \210\202\303\206\304!\210\305\301\302!\2033\211\206%\304W\2033\211T\262\303 \210\202\210\303\206:\304!0\207\210\306\307`\"\210\310\311!\207" [(error) looking-at "[ \n]*\\[" forward-sexp 1 0 message "Error skipping s-expressions at point %d" sit-for 2] 6 (#$ . 209159)]) #@432 Skip across an optional argument, ARG number of mandatory ones and verbatim content. This function always checks if one optional argument in brackets is given and skips over it. If ARG is a number, it skips over that many mandatory arguments in braces. Then it checks for verbatim content to skip which is enclosed by a character given in `TeX-ispell-verb-delimiters' or in braces, otherwise raises an error. (fn &optional ARG) (defalias 'TeX-ispell-tex-arg-verb-end #[256 "\3011F\302\303!\203 \304 \210\211\203\302\305!\203\304!\210\302\306\307Q!\2036\310u\210\311\312`Sf!P\310w\210\310u\202D\302\305!\203A\304 \202D\313\310!0\207\210\314\315\316\317\320#\"\210\321\322!\207" [TeX-ispell-verb-delimiters (error) looking-at "[ \n]*\\[" forward-sexp "{" "[" "]" nil "^" string error message "Verbatim delimiter is not one of %s" split-string "" t sit-for 2] 7 (#$ . 210709)]) #@59 Set up the abbrev table and variable for MODE. (fn MODE) (defalias 'TeX-abbrev-mode-setup '(macro . #[257 "\300\301!\302P!\303!\304\305\306\307\310\"F\311\312D\313BB\314\315BBF\207" [intern symbol-name "-abbrev-table" TeX-mode-prefix progn defvar nil format "Abbrev table for %s mode." define-abbrev-table quote (nil) abbrev-table-put (:parents (list text-mode-abbrev-table))] 10 (#$ . 211607)])) (byte-code "\300\301\302\"\210\303\304\305\306#\210\303\307\305\306#\210\303\310\305\306#\210\303\311\305\312#\207" [eval-after-load "desktop" #[0 "\300\211\203\211@\211\301\302!\235\204\303\302\301\302!B\"\210A\266\202\202\210\304\305\306\"\207" [(TeX-master) default-value desktop-locals-to-save set-default add-hook desktop-after-read-hook #[0 "\300\301!\207" [TeX-set-mode-name t] 2]] 7] put TeX-newline delete-selection t TeX-insert-quote TeX-insert-backslash TeX-insert-dollar #[0 "?\207" [TeX-electric-math] 1]] 4) #@135 Return non-nil iff `LST' is a list of strings. Used as function for validating a variable's `safe-local-variable' property. (fn LST) (defalias 'TeX--list-of-string-p #[257 "\211<\205\300\211\203\203@;\262A\262\202\211\262\207" [t] 3 (#$ . 212550)]) #@72 Return the name of the TeX section/paragraph/chapter at point, or nil. (defalias 'TeX-current-defun-name #[0 "\212\303\211\211\211m\204\304\305\306!)\262\203\303u\210l\204\307 \210\310\311\301!\2035\304\312\313\314\315\316 \"\"!\317Q\2026\320\303\305#\205x`T\262\321\225b\262\322\305\306!)\262\203T\307 \210\323\303w\210`\262\307 \210`\262\324\"\324b\325 ^\"\325 V\205w\326\nPQ\266\204)\207" [inhibit-changing-match-data LaTeX-section-label TeX-grcl nil "\\\\" t looking-at forward-sexp re-search-backward local-variable-p regexp-opt remove "part" mapcar car "\\*?" "\\\\\\(sub\\)*\\(section\\|paragraph\\|chapter\\)\\*?" 0 "[ ]*\\[" "^{" buffer-substring-no-properties line-end-position "..."] 12 (#$ . 212820)]) (provide 'tex)