diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/glossary/glossary.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/glossary/glossary.perl | 34 |
1 files changed, 32 insertions, 2 deletions
diff --git a/Master/texmf-dist/doc/latex/glossary/glossary.perl b/Master/texmf-dist/doc/latex/glossary/glossary.perl index 6013c1edce2..b0de72c074c 100644 --- a/Master/texmf-dist/doc/latex/glossary/glossary.perl +++ b/Master/texmf-dist/doc/latex/glossary/glossary.perl @@ -1,7 +1,7 @@ # File : glossary.perl # Author : Nicola Talbot -# Date : 8 July 2005 -# Version : 1.02 +# Date : 5 December 2005 +# Version : 1.03 # Description : LaTeX2HTML implementation of glossary package. package main; @@ -771,6 +771,36 @@ sub do_cmd_resetallacronyms{ $_; } +sub do_cmd_unsetacronym{ + local($_) = @_; + local($cmdname); + + $cmdname = &missing_braces unless + (s/$next_pair_pr_rx/$cmdname=$2;''/eo); + + if (defined %{$acronym{$cmdname}}) + { + $global{"${cmdname}first"} = 0; + } + else + { + &write_warnings("acronym '$cmdname' not defined"); + } + + $_; +} + +sub do_cmd_unsetallacronyms{ + local($_) = @_; + + foreach $key (keys %acronym) + { + $global{"${key}first"} = 0; + } + + $_; +} + %savedglosentry = (); # This command is deprecated |