;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@93 Insert ENVIRONMENT and make sure there is no commented empty line inside. (fn ENVIRONMENT) (defalias 'LaTeX-env-no-comment #[257 "\302\211\303\230\205\304\305\306\211\307#\"\310\311\"\262\"\210\312 ?\2054\212\313 \210\314\315 \316Q!)\2054\317 \320 |\210\321 \207" [TeX-esc TeX-comment-start-regexp LaTeX-insert-environment "macro" TeX-read-string TeX-argument-prompt nil "Macro" format "{%s}" TeX-active-mark beginning-of-line looking-at "[ ]+$\\|[ ]*" "+[ ]*$" line-beginning-position line-end-position indent-according-to-mode] 8 (#$ . 150)]) #@96 Make sure the macrocode environment is properly formatted after insertion. (fn ENV START END) (defalias 'LaTeX-doc-after-insert-macrocode #[771 "\300\301\302#\205+\212\211b\210\303\304x\210n\203\305c\210\306 \210b\210\303\304x\210n\205*\305c\210\306 )\207" [TeX-member ("macro" "macrocode" "macrocode*") string-equal " " nil "%" indent-according-to-mode] 7 (#$ . 713)]) (TeX-add-style-hook "doc" #[0 "\300\301\302!\303\304#\210\300\302\305\304#\210\300\302\306\304#\210\307\310\311\312\304$\210\313\314\315\316\317$\210\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\366\370\371\372\373\374\375\376\377\201@\201A\201B\201C\201D\201E\201F\201G\201H\201I\201J\201K\201L\201M\201N\201O\201P\201Q\201R\201S\201T\201U\201V\201W\201X\201Y\201Z\201[\201\\\201]\201^&O\210\201_\201`!\210\201a\201b\201c\201d#\207" [add-to-list make-local-variable LaTeX-indent-environment-list ("macrocode" current-indentation) t ("macrocode*" current-indentation) ("macro" current-indentation) add-hook LaTeX-after-insert-env-hook LaTeX-doc-after-insert-macrocode nil LaTeX-add-environments "theglossary" ("macrocode" LaTeX-env-no-comment) ("macrocode*" LaTeX-env-no-comment) ("macro" LaTeX-env-no-comment) TeX-add-symbols "EnableCrossrefs" "DisableCrossrefs" ("DoNotIndex" t) "DontCheckModules" "CheckModules" "Module" ("DescribeMacro" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Macro") TeX-esc))) (format "%s" name))))) ("DescribeEnv" "Environment") "verbatim" "verb" ("parg" "Argument") ("oarg" "Argument") ("marg" "Argument") ("meta" "Text") ("cs" "Name") ("cmd" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name") TeX-esc))) (format "%s" name))))) "makelabel" ("MacroFont" t) ("AltMacroFont" t) "PrintMacroName" "PrintDescribeMacro" "PrintDescribeEnv" "PrintEnvName" "MakePrivateLetters" "actualchar" "quotechar" "levelchar" "encapchar" "verbatimchar" "SpecialIndex" "SpecialMainIndex" "SpecialMainEnvIndex" "SpecialUsageIndex" "SpecialEnvIndex" "SortIndex" "LeftBraceIndex" "RightBraceIndex" "PercentIndex" "OldMakeindex" "IndexPrologue" "IndexParms" "subitem" "subsubitem" "indexspace" "efill" "pfill" "PrintIndex" ("changes" "version" TeX-arg-date t) "generalname" "RecordChanges" "GlossaryPrologue" "GlossaryParms" "PrintChanges" "AlsoImplementation" ("StopEventually" t) "OnlyDescription" "Finale" "IndexInput" "maketitle" "MakeShortVerb" "DeleteShortVerb" "MakeShortverb" "DeleteShortverb" "CheckSum" "CharacterTable" "CharTableChanges" "CodelineNumbered" "CodelineIndex" "PageIndex" "theCodelineNo" "DocstyleParms" "MakePercentIgnore" "MakePercentComment" ("DocInput" (TeX-arg-eval (lambda nil (let ((file (file-relative-name (read-file-name "File to input: " nil nil nil nil (lambda (x) (string-match "\\.fdd$\\|\\.dtx$" x))) (TeX-master-directory)))) (format "%s" file))))) ("DocInclude" (TeX-arg-eval (lambda nil (let ((file (file-relative-name (read-file-name "File to include: " nil nil nil nil (lambda (x) (string-match "\\.fdd$\\|\\.dtx$" x))) (TeX-master-directory)))) (format "%s" file))))) "GetFileInfo" "filename" "fileinfo" TeX-run-style-hooks "shortvrb" LaTeX-add-lengths "MacrocodeTopsep" "MacroTopsep" "MacroIndent"] 80] TeX-dialect)