summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/glossary/glossary.perl
diff options
context:
space:
mode:
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