Typesetting captions with the caption package - Departamento de ...

65 \newcommand\caption@typ@{caption@typ@} % This saves 74 words of TeX memory
66 \def\caption@setuptype[#1]#2{%
67 \@ifundefined{\caption@typ@#1}%
68 {\@namedef{\caption@typ@#1}{#2}}%
69 {\expandafter\l@addto@macro\csname\caption@typ@#1\endcsname{,#2}}}
70 \newcommand\caption@setup{\caption@setkeys{caption}}
\caption@setkeys This one simply calls \setkeys{〈package〉}{〈args〉} but lets the error messages refer
to the 〈package〉 package instead of the keyval package.
71 \newcommand*\caption@setkeys{%
72 \@dblarg\caption@@setkeys}
73 \long\def\caption@@setkeys[#1]#2#3{%
74 \ifnum\caption@keydepth=0\relax
75 \let\caption@KV@errx\KV@errx
76 \let\caption@KV@err\KV@err
77 \let\KV@errx\caption@Error
78 \let\KV@err\caption@Error
79 \fi
80 \caption@stepcounter\caption@keydepth
81 %
82 \def\caption@Package{#1}%
83 \caption@Debug{\protect\setkeys{#2}{#3}}%
84 \setkeys{#2}{#3}%
85 \def\caption@Package{caption}%
86 %
87 \caption@addtocounter\caption@keydepth\m@ne
88 \ifnum\caption@keydepth=0\relax
89 \let\KV@errx\caption@KV@errx
90 \let\KV@err\caption@KV@err
91 \fi}
92 \caption@newcounter\caption@keydepth
\caption@settype \caption@settype{〈type〉}
Caption options which have been saved with \captionsetup[〈type〉] can be executed
using this command. (It simply executes the saved option list, if there is any.)
93 \newcommand*\caption@settype[1]{%
94 \@ifundefined{\caption@typ@#1}{}{%
95 \caption@esetup{\csname\caption@typ@#1\endcsname}}}
\caption@esetup \caption@esetup{〈keyval-list of options〉}
To execute a keyval-list of options saved within a macro we need this special version of
\caption@setup which expands the argument first.
96 \newcommand*\caption@esetup[1]{%
97 \edef\caption@tempa{\noexpand\caption@setup{#1}}%
98 \caption@tempa}
\clearcaptionsetup \clearcaptionsetup{〈type〉}
This removes the saved option list associated with 〈type〉.
99 \newcommand*\clearcaptionsetup[1]{\@nameundef{\caption@typ@#1}}
30