From a9869fad76cd5f0183a802e42782959f7f72b9da Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 10 Oct 2010 17:28:56 +0000 Subject: undolabl update (29jul10) git-svn-id: svn://tug.org/texlive/trunk@20043 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/undolabl/undolabl.sty | 25 +++++++++++------------ 1 file changed, 12 insertions(+), 13 deletions(-) (limited to 'Master/texmf-dist/tex/latex/undolabl') diff --git a/Master/texmf-dist/tex/latex/undolabl/undolabl.sty b/Master/texmf-dist/tex/latex/undolabl/undolabl.sty index c57a9d683dd..e72d5fa8f6e 100644 --- a/Master/texmf-dist/tex/latex/undolabl/undolabl.sty +++ b/Master/texmf-dist/tex/latex/undolabl/undolabl.sty @@ -33,7 +33,7 @@ %% (eu_angelion@web.de) and first published in the comp.text.tex %% newsgroup at Sun, 20 Apr 2008 16:39:26 +0200, with subject: %% Re: How to undefine/overwrite a label? (see e.g. -%% http://groups.google.de/group/comp.text.tex/msg/5ba8d4722e5cd326). +%% http://groups.google.de/group/comp.text.tex/msg/af6cfe93917097da?dmode=source). %% While Ulrich Diez neither wanted to create a package himself yet %% nor have one published under his name, he granted the %% publication of his code. Therefore: Thanks! @@ -46,7 +46,7 @@ \NeedsTeXFormat{LaTeX2e}[1994/06/01] -\ProvidesPackage{undolabl}[2010/07/15 v1.0d +\ProvidesPackage{undolabl}[2010/09/12 v1.0g Overriding labels (HMM)] \newcommand\overridelabel[1]{% @@ -57,25 +57,25 @@ \@esphack } -\newcommand\undonewlabel{\@und@newl@bel r}% +\newcommand\undonewlabel{\@und@newl@bel r} \newcommand\@und@newl@bel[2]{% \@ifundefined{#1@#2}{% - \PackageError{undolabl}{Label `#2' shall be overridden ^^J + \PackageError{undolabl}{Label `#2' shall be overridden ^^J% although it does not yet exist}{% A label which does not exist cannot be overridden.}% }{% \expandafter\global \expandafter\let \csname #1@#2\endcsname\relax - }% + }% } \newcommand\@overriddenmessage[2]{% \@ifundefined{#1@#2}{\global\@namedef{#1@#2}{i}}{% \expandafter\g@addto@macro\csname #1@#2\endcsname{i}% }% - \PackageWarning{undolabl}{Label `#2' overridden} + \PackageWarning{undolabl}{Label `#2' overridden}% } \newcommand\undolabl@testdef[3]{% @@ -90,20 +90,19 @@ }% \expandafter\@gobble \fi - }% - {% - \@testdef{#1}{#2}{#3}% - }% - }% + }{\@testdef{#1}{#2}{#3}% + }% + } -\protected@write\@auxout{}{\string\reset@newl@bel}% +\protected@write\@auxout{}{\string\reset@newl@bel} \newcommand\reset@newl@bel{% \ifx\@newl@bel\@testdef \let\@newl@bel\undolabl@testdef \let\undonewlabel\@gobble \fi - }% + } + \endinput %% %% End of file `undolabl.sty'. -- cgit v1.2.3