;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@100 Input a value after PROMPT with completion from LIST and HISTORY. (fn LIST &optional PROMPT HIST) (defalias 'TeX-arg-compl-list #[769 "@\211\203\\\211<\203\\\211@A@\206\301P\3028\3038\206 \3048\305 A\262\n\306\267\202Y \305\305&\262\307\310#\202Z \305\305&\211\262\202Z\305)\207\311\301P\305\211\211&\207" [crm-separator ": " 2 3 4 nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (completing-read-multiple 49 completing-read 71)) mapconcat identity completing-read] 17 (#$ . 151)]) #@207 Ask for WHAT with PROMPT with DEFAULT. The corresponding lists LaTeX-pst--\(list\|history\) have to exist. (Used to define functions named LaTeX-pst-.)) (fn WHAT PROMPT DEFAULT &optional ARG) (defalias 'LaTeX-pst-what #[1027 "\300\301\302Q!\300\301\303Q!\204\304J#\262\305\230\203\"\207\306\"\210\207" [intern "LaTeX-pst-" "-list" "-history" TeX-arg-compl-list "" add-to-list] 10 (#$ . 726)]) #@94 Return number as string asked for with PROMPT if no number passed with ARG. (fn PROMPT ARG) (defalias 'LaTeX-pst-input-int #[514 "\211\247\204 \300\301P\302\"\262\303!\207" [read-number ": " 2 number-to-string] 5 (#$ . 1156)]) #@92 Enclose string returned by the `funcall' SYMBOL in OP and CL character. (fn SYMBOL OP CL) (defalias 'LaTeX-pst-enclose-obj #[771 " \211\205\300!\300!\261\207" [char-to-string] 8 (#$ . 1394)]) #@140 Ask for possible value of parameter PARAM given as string available through package name PNAME and return "param=value". (fn PARAM PNAME) (defalias 'LaTeX-package-parameter-value #[514 "\300\301\302\303Q!\"\210\301\302\304Q!J\301\302\305Q!J\306\"\203/\301\302\307\310\311 \"\312\260!\2027\306\"\2057\313\314\315J\316P\301\302 \317Q!#\262\203R\300\"\210\211\320\230\203Z\320\207\321Q\207" [add-to-list intern "LaTeX-" "-parameters-name-list" "-parameters-completion-regexp" "-parameters-boolean-regexp" string-match "-" match-string 0 "-list" LaTeX-pst-boolean-list nil TeX-arg-compl-list "(Press TAB for completions) " "-parameters-value-history" "" "="] 13 (#$ . 1601)]) #@166 Set values for elements of PARAM from package PNAME and further explicitly typed in parameters and return a comma separated list as string. (fn PARAM PNAME NOSKIP) (defalias 'LaTeX-package-parameters-pref-and-chosen #[771 "\300\301\302\303Q!\304\211\203:\203:\211A\262\242\262!\262\211\300\230\204.\300\230\2032\300\2023\305Q\262\202\203z\306\307\301\302 \310Q!J\304\211\211\301\302 \311Q!&\211\262\300\230\204z!\262\211\300\230\204n\300\230\203r\300\202s\305Q\262\202>\312\301\302\313Q!\"\210\207" ["" intern "LaTeX-" "-parameter-value" nil "," completing-read "Parameter name (RET to stop): " "-parameters-name-list" "-parameters-name-history" add-to-list "-parameters-history"] 17 (#$ . 2307)]) #@109 Ask for parameters and manage several parameter lists for package PNAME (fn OPTIONAL PNAME PREPARAM PARAM) (defalias 'LaTeX-package-parameters #[1028 "\300\301\302Q!\300\301\303Q!\300\301\304Q!J\203\"<\203\"!\262\305\306\307\211\211&\262\204;\307\310\"\262\202@J@\262\311\312\230\204M\307=\203Q\202a\312\230\203\\\312\202`\313PP\"\207" [intern "LaTeX-" "-parameters-pref-and-chosen" "-parameters-history" "-parameters-name-list" TeX-completing-read-multiple "Params (use for history or RET for choices): " nil t TeX-argument-insert "" ","] 14 (#$ . 3058)]) #@41 A list of values for point in pstricks. (defvar LaTeX-pst-point-list (list "0,0") (#$ . 3669)) #@42 History of values for point in pstricks. (defvar LaTeX-pst-point-history LaTeX-pst-point-list (#$ . 3770)) #@40 Ask for a point and manage point list. (defalias 'LaTeX-pst-point #[0 "\301\302\303@\304Q@#\207" [LaTeX-pst-point-history LaTeX-pst-what "point" "Point (default " ")"] 5 (#$ . 3883)]) #@46 Enclose point in parentheses. (fn OPTIONAL) (defalias 'LaTeX-pst-point-in-parens #[257 "\300\301\302\303#\207" [LaTeX-pst-enclose-obj LaTeX-pst-point 40 41] 5 (#$ . 4075)]) #@41 A list of values for angle in pstricks. (defvar LaTeX-pst-angle-list (list "0") (#$ . 4255)) #@42 History of values for angle in pstricks. (defvar LaTeX-pst-angle-history nil (#$ . 4354)) #@39 Ask for a angle and manage angle list (defalias 'LaTeX-pst-angle #[0 "\301\302\303@\304Q@#\207" [LaTeX-pst-angle-list LaTeX-pst-what "angle" "Angle (default " ")"] 5 (#$ . 4450)]) #@42 A list of values for extdir in pstricks. (defvar LaTeX-pst-extdir-list (list "1") (#$ . 4638)) #@43 History of values for extdir in pstricks. (defvar LaTeX-pst-extdir-history nil (#$ . 4739)) #@53 Ask for a extdir and manage extdir list (fn DESCR) (defalias 'LaTeX-pst-extdir #[257 "\301\302\303@\304R@#\207" [LaTeX-pst-extdir-list LaTeX-pst-what "extdir" " (default " ")"] 7 (#$ . 4837)]) #@44 A list of values for delpoint in pstricks. (defvar LaTeX-pst-delpoint-list nil (#$ . 5040)) #@45 History of values for delpoint in pstricks. (defvar LaTeX-pst-delpoint-history nil (#$ . 5138)) #@42 A list of values for arrows in pstricks. (defvar LaTeX-pst-arrows-list '("->" "<-" "<->" ">-<" ">-" "-<" "<<->>" "<<-" "->>" "|-|" "|-" "-|" "|*-|*" "[-]" "[-" "-]" "(-)" "(-" "-)" "*-*" "*-" "-*" "0-0" "0-" "-0" "c-c" "c-" "-c" "C-C" "C-" "-C" "cc-cc" "cc-" "-cc" "|<->|" "|<-" "->|" "|<*->|*" "|<*-" "->|*" "-") (#$ . 5240)) #@43 History of values for arrows in pstricks. (defvar LaTeX-pst-arrows-history nil (#$ . 5573)) #@49 Ask for a arrow type and manage arrow type list (defalias 'LaTeX-pst-arrows #[0 "\300\301\302\303#\206 \304\207" [LaTeX-pst-what "arrows" "Arrow type" nil ""] 4 (#$ . 5671)]) #@44 A list of values for dotstyle in pstricks. (defvar LaTeX-pst-dotstyle-list '((completing-read "Dot style" nil LaTeX-pst-dotstyle-history) "*" "o" "+" "|" "triangle" "triangle*" "square" "square*" "pentagon" "pentagon*") (#$ . 5853)) #@45 History of values for dotstyle in pstricks. (defvar LaTeX-pst-dotstyle-history nil (#$ . 6092)) #@44 A list of values for refpoint in pstricks. (defvar LaTeX-pst-refpoint-list '((completing-read "Reference point" t LaTeX-pst-refpoint-history) "l" "r" "t" "tl" "lt" "tr" "rt" "b" "bl" "br" "lb" "rb" "B" "Bl" "Br" "lB" "rB") (#$ . 6194)) #@45 History of values for refpoint in pstricks. (defvar LaTeX-pst-refpoint-history nil (#$ . 6436)) #@45 Ask for a refpoint and manage refpoint list (defalias 'LaTeX-pst-refpoint #[0 "\300\301\302\303#\207" [LaTeX-pst-what "refpoint" "Reference point" nil] 4 (#$ . 6538)]) #@42 History of values for color in pstricks. (defvar LaTeX-pst-color-history nil (#$ . 6712)) #@55 A list of values for user defined styles in pstricks. (defvar LaTeX-pst-style-list '((completing-read "Defined Style" t)) (#$ . 6808)) #@47 History of values for parameters in pstricks. (defvar LaTeX-pst-parameters-history nil (#$ . 6949)) #@42 History of parameter values in pstricks. (defvar LaTeX-pst-parameters-value-history nil (#$ . 7055)) #@40 A list of parameter names in pstricks. (defvar LaTeX-pst-basic-parameters-name-list '("arcsep" "arcsepA" "arcsepB" "arrowinset" "arrowlength" "arrows" "arrowscale" "arrowsize" "border" "bordercolor" "boxsep" "bracketlength" "cornersize" "curvature" "dash" "dimen" "dotangle" "dotscale" "dotsep" "dotsize" "dotstyle" "doublecolor" "doubleline" "doublesep" "doubleset" "fillcolor" "fillstyle" "framearc" "framesep" "gangle" "gridcolor" "griddots" "gridlabelcolor" "gridlabels" "gridwidth" "hatchangle" "hatchcolor" "hatchsep" "hatchsepinc" "hatchwidth" "hatchwidthinc" "header" "labelsep" "liftpen" "linearc" "linecolor" "linestyle" "linetype" "linewidth" "rbracketlength" "ref" "runit" "shadow" "shadowangle" "shadowcolor" "shadowsize" "showgrid" "showpoints" "style" "subgridcolor" "subgriddiv" "subgriddots" "subgridwidth" "swapaxes" "tbarsize" "trimode" "unit" "xunit" "yunit") (#$ . 7162)) #@49 List of binary values for key=value completion. (defvar LaTeX-pst-boolean-list '("true" "false") (#$ . 8061)) #@40 List of colors predefined in PSTricks. (defvar LaTeX-pst-color-list '("black" "darkgray" "gray" "lightgray" "white" "red" "green" "blue" "cyan" "magenta" "yellow") (#$ . 8177)) #@42 List of fill styles defined in PSTricks. (defvar LaTeX-pst-fillstyle-list '("none" "solid" "vlines" "vlines*" "hlines" "hlines*" "crosshatch" "crosshatch*" "boxfill") (#$ . 8360)) #@55 List of keys and values for PSTricks macro arguments. (defvar LaTeX-pst-basic-parameters-list '(("unit") ("xunit") ("yunit") ("runit") ("linewidth") ("linecolor" LaTeX-pst-color-list) ("fillstyle" LaTeX-pst-fillstyle-list) ("fillcolor" LaTeX-pst-color-list) ("arrows" LaTeX-pst-arrows-list) ("showpoints" LaTeX-pst-boolean-list) ("linearc") ("framearc") ("cornersize" ("relative" "absolute")) ("gangle") ("arcsepA") ("arcsepB") ("arcsep") ("curvature") ("dotstyle" ("*" "o" "Bo" "x" "+" "B+" "asterisk" "Basterisk" "oplus" "otimes" "|" "B|" "square" "Bsquare" "square*" "diamond" "Bdiamond" "diamond*" "triangle" "Btriangle" "triangle*" "pentagon" "Bpentagon" "pentagon*")) ("dotsize") ("dotscale") ("dotangle") ("gridwidth") ("gridcolor" LaTeX-pst-color-list) ("griddots") ("gridlabels") ("gridlabelcolor" LaTeX-pst-color-list) ("subgriddiv") ("subgridwidth") ("subgridcolor" LaTeX-pst-color-list) ("subgriddots") ("plotstyle" ("dots" "line" "polygon" "curve" "ecurve" "ccurve")) ("plotpoints") ("origin") ("swapaxes" LaTeX-pst-boolean-list) ("linestyle" ("none" "solid" "dashed" "dotted")) ("dash") ("dotsep") ("border") ("bordercolor" LaTeX-pst-color-list) ("doubleline" LaTeX-pst-boolean-list) ("doublesep") ("doublecolor" LaTeX-pst-color-list) ("shadow" LaTeX-pst-boolean-list) ("shadowsize") ("shadowangle") ("shadowcolor" LaTeX-pst-color-list) ("dimen" ("outer" "inner" "middle")) ("hatchwidth") ("hatchsep") ("hatchcolor" LaTeX-pst-color-list) ("hatchangle") ("addfillstyle" LaTeX-pst-fillstyle-list) ("arrowsize") ("arrowlength") ("arrowwinset") ("tbarsize") ("bracketlength") ("rbracketlength") ("arrowscale") ("linetype") ("liftpen") ("labelsep") ("labels" ("all" "x" "y" "none")) ("showorigin" LaTeX-pst-boolean-list) ("ticks" ("all" "x" "y" "none")) ("tickstyle" ("full" "top" "bottom")) ("ticksize") ("axesstyle" ("axes" "frame" "none")) ("framesep") ("boxsep") ("trimode" ("*" "U" "D" "R" "L")) ("href") ("vref") ("radius") ("nodesep") ("arcangle") ("angle") ("arm") ("loopsize") ("ncurv") ("boxsize") ("offset") ("ref") ("nrot") ("npos") ("shortput" ("none" "nab" "tablr" "tab")) ("tpos") ("rot") ("mnode" ("R" "r" "C" "f" "p" "circle" "oval" "dia" "tri" "dot" "none")) ("emnode" ("R" "r" "C" "f" "p" "circle" "oval" "dia" "tri" "dot" "none")) ("name") ("nodealign" LaTeX-pst-boolean-list) ("mcol" ("l" "r" "c")) ("rowsep") ("colsep") ("mnodesize")) (#$ . 8546)) #@43 A list of all parameters with completion. (defvar LaTeX-pst-parameters-name-list LaTeX-pst-basic-parameters-name-list (#$ . 10931)) #@41 History of parameter names in pstricks. (defvar LaTeX-pst-parameters-name-history nil (#$ . 11069)) #@43 Regexp for `string-match'ing a parameter. (defvar LaTeX-pst-parameters-completion-regexp "\\(arrows\\|linestyle\\|fillstyle\\|color\\|trimode\\|dotstyle\\|\\\\|show[a-zA-Z]+\\)" (#$ . 11363)) #@67 See documentation of `LaTeX-package-parameter-value'. (fn PARAM) (defalias 'LaTeX-pst-parameter-value #[257 "\300\301\"\207" [LaTeX-package-parameter-value "pst"] 4 (#$ . 11516)]) #@95 See documentation of `LaTeX-package-parameters-pref-and-chosen'. (fn PARAM &optional NOSKIP) (defalias 'LaTeX-pst-parameters-pref-and-chosen #[513 "\300\301#\207" [LaTeX-package-parameters-pref-and-chosen "pst"] 6 (#$ . 11704)]) #@70 Prompt for general parameters of a PSTricks argument. (fn OPTIONAL) (defalias 'LaTeX-pst-parameters #[257 "\301\"\207" [LaTeX-pst-basic-parameters-list TeX-arg-key-val] 4 (#$ . 11942)]) #@70 Return \psarc arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-psarc #[513 "\301 ?\205 \302 \203\303\304\"\202\305\203 \303\306\"\202!\305\307\310\311!\312\313 \312\313 \314\261 \207" [current-prefix-arg LaTeX-pst-arrows LaTeX-pst-point format "{%s}" "" "(%s)" "{" LaTeX-pst-extdir "Radius" "}{" LaTeX-pst-angle "}"] 13 (#$ . 12137)]) #@73 Return \pscircle arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-pscircle #[513 "\300\301 \302\303\304!\305\261\207" ["(" LaTeX-pst-point "){" LaTeX-pst-extdir "Radius" "}"] 7 (#$ . 12523)]) #@69 Return \rput arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-rput #[513 "\301 \205\302 \203\303\304Q\202\305\203\306\307Q\202 \305\310\311 \312\261\207" [current-prefix-arg LaTeX-pst-refpoint LaTeX-pst-angle "[" "]" "" "{" "}" "(" LaTeX-pst-point ")"] 9 (#$ . 12755)]) #@69 Return \uput arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-uput #[513 "\300\301!\302 \203\303\304Q\202\305\203\306\302 \307Q\202\310\303\311 \312\313 \314\261\207" [LaTeX-pst-extdir "Distance" LaTeX-pst-refpoint "{" "}" "" "[" "]" "[]" LaTeX-pst-angle "}(" LaTeX-pst-point ")"] 11 (#$ . 13079)]) #@86 Return \multirput or \multips arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-multirputps #[513 "\301 \205\302 \303 \304\305\306\307#\310\311\312\"\203\313\314\"\202 \315\203,\313\316\"\202-\315\317\320\321\322\261 \207" [current-prefix-arg LaTeX-pst-refpoint LaTeX-pst-angle LaTeX-pst-point LaTeX-pst-what "delpoint" "Increment (default 1,1)" "1,1" LaTeX-pst-input-int "Repetitions" nil format "[%s]" "" "{%s}" "(" ")(" "){" "}"] 16 (#$ . 13429)]) #@91 Return \psline or \ps[ce]?curve[*] arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-psline #[513 "\300 \301 \301 \203\302\303\"\202\304\305\306\261\210\211\304\230?\2056\230?\2056\305\306\261\210\211\262\301 \262\202\207" [LaTeX-pst-arrows LaTeX-pst-point format "{%s}" "" "(" ")"] 9 (#$ . 13937)]) #@67 Return \psdot[s]? arguments after querying. (fn OPTIONAL SINGLE) (defalias 'LaTeX-pst-macro-psdots #[514 "\300 \203\n\211\202\f\300 \301\302\261\210\211\303\230?\2050\230?\2050\211\262\301\302\261\210\300 \262\202\207" [LaTeX-pst-point "(" ")" ""] 7 (#$ . 14293)]) #@73 Return \parabola arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-parabola #[513 "\300 \211\203 \301\302\"\202\303\304\305 \306\305 \307\261\207" [LaTeX-pst-arrows format "{%s}" "" "(" LaTeX-pst-point ")(" ")"] 9 (#$ . 14580)]) #@99 Return point and 2 paired lengths in separate parens as arguments. (fn OPTIONAL PROMPT1 PROMPT2) (defalias 'LaTeX-pst-macro-pnt-twolen #[771 "?\205\301 \211\203\302\303\"\202\304\305\306!\307\306!\310\261\207" [current-prefix-arg LaTeX-pst-point format "(%s)" "" "(" LaTeX-pst-extdir "," ")"] 10 (#$ . 14852)]) #@73 Return \psbezier arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-psbezier #[513 "\300 \301 \301 \301 \203\302\303\"\202\304\305\306\307\261\210\230?\2053\305\307\261\210\211\262\301 \262\202\207" [LaTeX-pst-arrows LaTeX-pst-point format "{%s}" "" "(" ")(" ")"] 12 (#$ . 15182)]) #@74 Return \pspolygon arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-pspolygon #[513 "\300 \300 \300 \301\302\303\261\210\230?\205%\301\303\261\210\211\262\300 \262\202\207" [LaTeX-pst-point "(" ")(" ")"] 10 (#$ . 15519)]) #@72 Return \psframe arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-psframe #[513 "?\205\301 \301 \203\302\303\"\202\304\305\306\261\207" [current-prefix-arg LaTeX-pst-point format "(%s)" "" "(" ")"] 8 (#$ . 15791)]) #@71 Return \psgrid arguments after querying. (fn OPTIONAL &optional ARG) (defalias 'LaTeX-pst-macro-psgrid #[513 "\203 @\202\n\301\211\302V\205\303 \301V\205\303 \301V\205\"\303 \203-\304\305\"\202.\306\203:\304\307#\202;\306\261\207" [current-prefix-arg 0 4 LaTeX-pst-point format "(%s)" "" "(%s)(%s)"] 11 (#$ . 16055)]) #@67 Return \newpsobject arguments after querying. (fn &optional ARG) (defalias 'LaTeX-pst-macro-newpsobject #[256 "\300\301\302!\303\300\304\305\306 \"\303\261\207" ["{" TeX-read-string "New PSObject Name: " "}" completing-read "Parent Object: " TeX-symbol-list] 8 (#$ . 16401)]) #@44 Create new pspicure environment. (fn ENV) (defalias 'LaTeX-pst-env-pspicture #[257 "\300\301\302\303\304#\305\"\306\307\310\311#\306\307\312\313#\304\314\230?\205\315\316\"\311\230\203(\314\202,\315\317\"\320\321\260\262\322\"\207" [multi-prompt-key-value TeX-argument-prompt t "Options" nil (("showgrid") ("shift")) LaTeX-pst-what "point" "Lower left (default 0,0)" "0,0" "Upper right (default 1,1)" "1,1" "" format "[%s]" "(%s)" "(" ")" LaTeX-insert-environment] 10 (#$ . 16685)]) #@69 List of regular expressions to extract arguments of \newps* macros. (defvar LaTeX-auto-pstricks-regexp-list '(("\\\\newps\\(object\\){\\([a-zA-Z]+\\)}{\\([a-zA-Z]+\\)}" (1 2 3) LaTeX-auto-pstricks) ("\\\\newps\\(fontdot\\){\\([a-zA-Z]+\\)}" (1 2) LaTeX-auto-pstricks) ("\\\\newps\\(style\\){\\([a-zA-Z]+\\)}" (1 2) LaTeX-auto-pstricks) ("\\\\define\\(color\\){\\([a-zA-Z]+\\)}{\\(rgb\\|cmyk\\)}" (1 2 3) LaTeX-auto-pstricks) ("\\\\new\\(rgb\\|hsb\\|cmyk\\)\\(color\\){\\([a-zA-Z]+\\)}" (2 3 1) LaTeX-auto-pstricks)) (#$ . 17188)) #@44 Temporary for parsing \newps* definitions. (defvar LaTeX-auto-pstricks nil (#$ . 17724)) #@63 Move symbols from `LaTeX-auto-pstricks' to `TeX-auto-symbol'. (defalias 'LaTeX-pst-cleanup #[0 "\301\302\"\207" [LaTeX-auto-pstricks mapcar #[257 "\211@\211\304\230\203A@\305\3068\307 \"AA@DB\211\207\211\310\230\2034A@\211 \235\203, \207\311 C\"\211\207\211\312\230\203MA@\211\n\235\203E\n\207\311\nC\"\211\207\211\313\230\205{A@\211 \235\204b\311 C\"\210\314A@P\211 \235\203r \202y\311 C\"\211\262\207" [TeX-auto-symbol LaTeX-pst-dotstyle-list LaTeX-pst-style-list LaTeX-pst-color-list "object" assoc 2 TeX-symbol-list "fontdot" append "style" "color" "-"] 6 "\n\n(fn LIST)"]] 3 (#$ . 17819)]) #@41 Clear `LaTeX-auto-pstricks' before use. (defalias 'LaTeX-pst-prepare #[0 "\301\211\207" [LaTeX-auto-pstricks nil] 2 (#$ . 18448)]) (byte-code "\300\301\302\303#\210\300\304\305\"\210\300\306\307\303#\207" [add-hook TeX-auto-prepare-hook LaTeX-pst-prepare t TeX-auto-cleanup-hook LaTeX-pst-cleanup TeX-update-style-hook TeX-auto-parse] 4) #@263 With ARG as prefix-argument insert new parameter(s) behind nearest backward LaTeX macro in brackets. Without ARG add parameter(s) to the already existing ones at the end of the comma separated list. Point has to be within the sexp to modify. (fn &optional ARG) (defalias 'LaTeX-pst-parameters-add #[256 "\300\301\302\"\303\301\211\203\304\305!\210\306v\210\307\301\310\311#\210\202L\312\306!\210\313u\210\212`\262\312\313!\210\314\315\316#\203=\317\306!\320Q\262\202*\321\313O\322P\262\323\"\262)\205d\203X\324\202Y\325\261\210\211\205d\326\327!\207" [LaTeX-pst-parameters-pref-and-chosen nil t "\\(" re-search-backward "\\\\\\([a-zA-Z]\\)" 1 insert-pair 91 93 up-list -1 re-search-forward "\\([a-zA-Z]+\\)=" limit match-string-no-properties "\\|" 0 ")" string-match "" "," message "At least one Parameters appears twice. PLEASE CHECK!"] 9 (#$ . 18794) "P"]) #@40 Expression matching a parameter value. (defvar LaTeX-pst-value-regexp "\\([-!.a-zA-Z0-9]*\\s\\?[-!.a-zA-Z0-9]+\\)" (#$ . 19683)) #@62 Remove value of current parameter and return parameter name. (defalias 'LaTeX-pst-parameter-remove-value #[0 "\301\302\303Q!\210\304\305!\210\306\307!\304!\210\307\224\307\225|\210\207" [LaTeX-pst-value-regexp re-search-backward "\\(\\s(\\|,\\)[a-zA-Z]+\\([a-zA-Z]\\|=\\|=" "\\)" re-search-forward "\\([a-zA-Z]+\\)=" match-string-no-properties 1] 4 (#$ . 19818)]) #@41 Replace parameter value with a new one. (defalias 'LaTeX-pst-parameter-change-value #[0 "\301 \302\"\205 \303\304\305\306\307\"\310Q!!\205 \304\305\306\307\"\310Q!\311J\312\313#c\207" [LaTeX-pst-parameters-completion-regexp LaTeX-pst-parameter-remove-value string-match boundp intern "LaTeX-pst-" match-string 0 "-list" TeX-arg-compl-list "New Value" LaTeX-pst-parameters-value-history] 7 (#$ . 20190) nil]) (TeX-add-style-hook "pstricks" #[0 "\304\235\204 \305=\204\306\307\310 \"\210\311\312\313\314#\210\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\356\357\360\361\362\363\364\365\366\367\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^\201_\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&m\207" [TeX-active-styles TeX-engine TeX-PDF-from-DVI LaTeX-auto-pstricks-regexp-list "pst-pdf" xetex "Dvips" mapc TeX-auto-add-regexp LaTeX-add-environments ("pspicture" LaTeX-pst-env-pspicture) "overlaybox" "psclip" TeX-add-symbols ("AltClipMode" 0) ("DontKillGlue" 0) ("KillGlue" 0) ("NormalCoor" 0) ("SpecialCoor" 0) ("PSTricksLoaded" 0) ("PSTricksOff" 0) ("altcolormode" 0) ("pslinecolor" 0) ("pslinestyle" 0) ("pslinetype" 0) ("pslinewidth" 0) ("pslabelsep" 0) ("radian" 0) ("psunit" 0) ("psrunit" 0) ("psxunit" 0) ("psyunit" 0) ("arrows" (TeX-arg-eval LaTeX-pst-arrows)) ("clipbox" ["Border"] t) ("closedshadow" [LaTeX-pst-parameters]) ("openshadow" [LaTeX-pst-parameters]) "closepath" "code" "coor" "curveto" "degrees" "dim" "endpsclip" "file" "fill" "grestore" "gsave" "lineto" "movepath" "moveto" "mrestore" "msave" "newpath" "rcoor" "rcurveto" "rlineto" "rotate" "scale" "stroke" "swapaxes" "translate" ("newcmykcolor" "Name" "Quadruple") ("newrgbcolor" "Name" "Triple") ("newhsbcolor" "Name" "Triple") ("newgray" "Name" "Value") ("newpsobject" LaTeX-pst-macro-newpsobject LaTeX-pst-parameters) ("newpsstyle" "New PSStyle Name" LaTeX-pst-parameters) ("newpsfontdot" "New PSDot Name" ["Factors"] "Fontname" "Character Number (Hex)") ("parabola" [LaTeX-pst-parameters] LaTeX-pst-macro-parabola) ("parabola*" [LaTeX-pst-parameters] LaTeX-pst-macro-parabola) ("psarc" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) ("psarc*" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) ("psarcn" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) ("pswedge" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) ("psbezier" [LaTeX-pst-parameters] LaTeX-pst-macro-psbezier) ("psbezier*" [LaTeX-pst-parameters] LaTeX-pst-macro-psbezier) ("pscbezier" [LaTeX-pst-parameters] LaTeX-pst-macro-pspolygon) ("pscircle" [LaTeX-pst-parameters] LaTeX-pst-macro-pscircle) ("psccurve" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("psccurve*" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("pscurve" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("pscurve*" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("pscustom" [LaTeX-pst-parameters]) ("psdiamond" [LaTeX-pst-parameters] (LaTeX-pst-macro-pnt-twolen "Width" "Height")) ("pstriangle" [LaTeX-pst-parameters] (LaTeX-pst-macro-pnt-twolen "Width" "Height")) ("psdot" [LaTeX-pst-parameters] (LaTeX-pst-macro-psdots t)) ("psdots" [LaTeX-pst-parameters] (LaTeX-pst-macro-psdots nil)) ("psecurve" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("psecurve*" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("psellipse" [LaTeX-pst-parameters] (LaTeX-pst-macro-pnt-twolen "Radius x" "Radius y")) ("psellipse*" [LaTeX-pst-parameters] (LaTeX-pst-macro-pnt-twolen "Radius x" "Radius y")) ("psframe" [LaTeX-pst-parameters] LaTeX-pst-macro-psframe) ("psframe*" [LaTeX-pst-parameters] LaTeX-pst-macro-psframe) ("psframebox" [LaTeX-pst-parameters] t) ("pscirclebox" [LaTeX-pst-parameters] t) ("psdblframebox" [LaTeX-pst-parameters] t) ("psdiabox" [LaTeX-pst-parameters] t) ("psovalbox" [LaTeX-pst-parameters] t) ("psshadowbox" [LaTeX-pst-parameters] t) ("pstribox" [LaTeX-pst-parameters] t) ("psscalebox" "Scaling Factor(s)" t) ("psscaleboxto" LaTeX-pst-point-in-parens t) ("psgrid" [LaTeX-pst-parameters] LaTeX-pst-macro-psgrid 0) ("psline" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) ("psoverlay" t) ("pspolygon" [LaTeX-pst-parameters] LaTeX-pst-macro-pspolygon) ("pspolygon*" [LaTeX-pst-parameters] LaTeX-pst-macro-pspolygon) ("psset" LaTeX-pst-parameters) ("pssetlength" TeX-arg-macro "Length") ("psaddtolength" TeX-arg-macro "Length") ("degrees" ["Full Circle"]) ("qdisk" LaTeX-pst-point-in-parens "Radius") ("qline" LaTeX-pst-point-in-parens LaTeX-pst-point-in-parens) "pslongbox" "psrotatedown" "psrotateleft" "psrotateright" ("rput" LaTeX-pst-macro-rput t) ("rput*" LaTeX-pst-macro-rput t) ("cput" [LaTeX-pst-parameters] (TeX-arg-eval LaTeX-pst-angle) LaTeX-pst-point-in-parens t) ("uput" LaTeX-pst-macro-uput t) ("multirput" (LaTeX-pst-macro-multirputps t) t) ("multips" (LaTeX-pst-macro-multirputps nil) t)] 110] TeX-dialect) #@31 Package options for pstricks. (defvar LaTeX-pstricks-package-options '("97" "plain" "DIA" "vtex" "distiller" "noxcolor") (#$ . 25317))