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