;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@57 List of sectioning commands available in "titleps.sty". (defvar LaTeX-titleps-section-command-list '("part" "chapter" "section" "subsection" "subsubsection" "paragraph" "subparagraph") (#$ . 150)) #@167 Remove "chapter" from variable `LaTeX-titleps-section-command-list' and return the remainder. Removal is based on the return value of function `LaTeX-largest-level'. (defalias 'LaTeX-titleps-section-command-list #[0 "\301 \302W\203\n\300J\207\303\304\"\207" [LaTeX-titleps-section-command-list LaTeX-largest-level 2 remove "chapter"] 3 (#$ . 354)]) #@57 Match the argument of "\newpagestyle" from titleps.sty. (defvar LaTeX-titleps-newpagestyle-regexp '("\\\\newpagestyle[ \n %]*{\\([^}]+\\)}" 1 LaTeX-auto-pagestyle) (#$ . 711)) (byte-code "\301\302\303\304#\210\305\306\307#\207" [TeX-dialect add-hook TeX-update-style-hook TeX-auto-parse t TeX-add-style-hook "titleps" #[0 "\302!\210\303 \211\203\211@\304\305P\306B!\210A\266\202\202\210\304\307\310\311\312\313\314\315\316\317\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&'\210\356\357!\205W \360=\205W\361\362\363\"\207" [LaTeX-titleps-newpagestyle-regexp TeX-install-font-lock TeX-auto-add-regexp LaTeX-titleps-section-command-list TeX-add-symbols "title" (0) ("newpagestyle" (TeX-arg-eval (lambda nil (let ((ps (TeX-read-string (TeX-argument-prompt nil nil "Page style")))) (LaTeX-add-pagestyles ps) (format "%s" ps)))) (TeX-arg-conditional (y-or-n-p "With optional global style? ") ([t] nil) (t))) ("renewpagestyle" TeX-arg-pagestyle (TeX-arg-conditional (y-or-n-p "With optional global style? ") ([t] nil) (t))) ("sethead" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([3] nil nil nil) (3))) ("setfoot" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([3] nil nil nil) (3))) ("sethead*" 3) ("setfoot*" 3) ("settitlemarks" (TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt nil nil "Level names") (LaTeX-titleps-section-command-list)) ",")) ("settitlemarks" (TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt nil nil "Level names") (LaTeX-titleps-section-command-list)) ",")) ("headrule" 0) ("setheadrule" "Thickness") ("footrule" 0) ("setfootrule" "Thickness") ("makeheadrule" 0) ("makefootrule" 0) ("setmarkboth" t) ("resetmarkboth" 0) ("widenhead" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([2] nil nil) (2))) ("widenhead*" 2) ("TitlepsPatchSection" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Sectioning command") (LaTeX-titleps-section-command-list))) ("TitlepsPatchSection*" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Sectioning command") (LaTeX-titleps-section-command-list))) ("bottitlemarks" 0) ("toptitlemarks" 0) ("firsttitlemarks" 0) ("nexttoptitlemarks" 0) ("outertitlemarks" 0) ("innertitlemarks" 0) ("newtitlemark" (TeX-arg-macro "Command name")) ("newtitlemark*" (TeX-arg-counter "Variable name")) ("pretitlemark" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Sectioning command") (LaTeX-titleps-section-command-list)) "Text") ("pretitlemark*" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Sectioning command") (LaTeX-titleps-section-command-list)) "Text") ("ifsamemark" (TeX-arg-macro "Marks group: \\") (TeX-arg-macro "Command: \\") 2) ("setfloathead" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([3] nil nil nil nil [nil]) (4 [nil]))) ("setfloatfoot" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([3] nil nil nil nil [nil]) (4 [nil]))) ("setfloathead*" 4 [nil]) ("setfloatfoot*" 4 [nil]) ("nextfloathead" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([3] nil nil nil nil [nil]) (4 [nil]))) ("nextfloatfoot" (TeX-arg-conditional (y-or-n-p "With optional even pages? ") ([3] nil nil nil nil [nil]) (4 [nil]))) ("nextfloathead*" 4 [nil]) ("nextfloatfoot*" 4 [nil]) featurep font-latex font-latex-setup font-latex-add-keywords (("newpagestyle" "{[{") ("renewpagestyle" "{[{") ("settitlemarks" "*{") ("widenhead" "*[[{{") ("TitlepsPatchSection" "*{") ("newtitlemark" "*{") ("pretitlemark" "*{{") ("nextfloathead" "*[[[{{{{[") ("nextfloatfoot" "*[[[{{{{[")) function] 40]] 4) #@42 Package options for the titleps package. (defvar LaTeX-titleps-package-options '("nopatches" "outermarks" "innermarks" "topmarks" "botmarks" "psfloats" "extramarks") (#$ . 4424))