summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/glossary/glossary.perl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-07-10 22:34:51 +0000
committerKarl Berry <karl@freefriends.org>2006-07-10 22:34:51 +0000
commit102bce50404c6f184c8dcea9c9f3910081cd5589 (patch)
tree0884f04c8f57ebb931ec49dc171a8b2ed4983617 /Master/texmf-dist/doc/latex/glossary/glossary.perl
parent8abaae73c1bd5624110e77ebafcfba25e7d0694e (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.perl34
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