texlive[51063] Master/texmf-dist: olsak-misc (9may19)
commits+karl at tug.org
commits+karl at tug.org
Thu May 9 23:26:05 CEST 2019
Revision: 51063
http://tug.org/svn/texlive?view=revision&revision=51063
Author: karl
Date: 2019-05-09 23:26:05 +0200 (Thu, 09 May 2019)
Log Message:
-----------
olsak-misc (9may19)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/olsak-misc/README
trunk/Master/texmf-dist/tex/generic/olsak-misc/qrcode.tex
Modified: trunk/Master/texmf-dist/doc/generic/olsak-misc/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/olsak-misc/README 2019-05-09 21:22:38 UTC (rev 51062)
+++ trunk/Master/texmf-dist/doc/generic/olsak-misc/README 2019-05-09 21:26:05 UTC (rev 51063)
@@ -22,6 +22,7 @@
1996--2016 ... files are created and released at
http://petr.olsak.net/ftp/olsak/makra/
<Jun. 2016> ver.1 ... files contributed to CTAN as one "bundle" olsak-misc
+<May 2019> ... qrcode: bug fixed
License:
-------
Modified: trunk/Master/texmf-dist/tex/generic/olsak-misc/qrcode.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/olsak-misc/qrcode.tex 2019-05-09 21:22:38 UTC (rev 51062)
+++ trunk/Master/texmf-dist/tex/generic/olsak-misc/qrcode.tex 2019-05-09 21:26:05 UTC (rev 51063)
@@ -138,11 +138,10 @@
\fi
}
-
-\long\def\isnextchar#1#2#3{\def\tmpa{#2}\def\tmpb{#3}%
+\long\def\isnextchar#1#2#3{\begingroup\toks0={\endgroup#2}\toks1={\endgroup#3}%
\let\tmp=#1\futurelet\next\isnextcharA
}
-\def\isnextcharA{\ifx\tmp\next\expandafter\tmpa\else\expandafter\tmpb\fi}
+\def\isnextcharA{\the\toks\ifx\tmp\next0\else1\fi\space}
\long\def\xaddto#1#2{\expandafter\xdef\expandafter#1\expandafter{#1#2}}
\let\g at addto@macro=\xaddto
@@ -2759,7 +2758,7 @@
}
\def\qrrestoreB#1{\advance \qr at j by1
\ifx1#1\vrule height\qrmodulesize width\qrmodulesize\else \kern\qrmodulesize\fi
- \ifnum\qr at size=\qr at j \padd\egroup \advance\qr at i by1
+ \ifnum\qr at size=\qr at j \vrule height\qrmodulesize width 0pt \padd\egroup \advance\qr at i by1
\ifnum\qr at size=\qr at i \padd\egroup \let\next=\relax \else \hbox\bgroup\padd \fi
\fi \next
}
@@ -2866,5 +2865,7 @@
History
-------
-Jun 2015 released
+Jun. 2015 released
Jul. 2015 \xprncodes=0space (bug fixed)
+Sep. 2018 \isnextchar processed in group
+May 2019 strut included for case of empty line (bug fixed)
More information about the tex-live-commits
mailing list