diff options
author | Karl Berry <karl@freefriends.org> | 2006-07-10 22:34:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-07-10 22:34:51 +0000 |
commit | 102bce50404c6f184c8dcea9c9f3910081cd5589 (patch) | |
tree | 0884f04c8f57ebb931ec49dc171a8b2ed4983617 /Master/texmf-dist/doc/latex/glossary/glossary.perl | |
parent | 8abaae73c1bd5624110e77ebafcfba25e7d0694e (diff) |
glossary update (11jul06)
git-svn-id: svn://tug.org/texlive/trunk@1811 c570f23f-e606-0410-a88d-b1316a301751
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 |