%% -- translate-file=il2-pl --
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Contents: Special Commands (LShort2e Introduction)
% File: lshort2e.sty (Polish translation)
% By Tobias Oetiker
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Dopasowanie do potrzeb polskiego tłumaczenia:  TP
% Ostatnie modyfikacje: grudzień 2006, TP
% Komentarze angielskie z reguły pochodzą od TO, polskie od TP
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\errorcontextlines=10
%
%save pageref an label
% Przed dołączeniem amsmath robimy zaślepkę celem
% zademostrowania `generycznego` LaTeXa
\let\ORInfss@text \nfss@text
\def\RestoreStandardLaTeX{\let\nfss@text \ORInfss@text}
%
\let\lsspageref=\pageref
\ProvidesPackage{lshort2e}
\RequirePackage{verbatim}
\RequirePackage{fancyhdr}
\RequirePackage{calc}
\RequirePackage{amsmath,latexsym,amsthm}
\RequirePackage[psamsfonts]{amssymb}

%\RequirePackage{textcomp}
%\RequirePackage{type1cm}% remove size restrictions
%\RequirePackage{aeguill}
% some packages which draw a euro
\RequirePackage{textcomp}
% need some magic here to keep the original definition of rightarrow
\newcommand{\org@Rightarrow}{}
\let\org@Rightarrow\Rightarrow
\usepackage{marvosym}
\let\MVRightarrow\Rightarrow
\let\Rightarrow\org@Rightarrow
%
\RequirePackage[gen]{eurosym} % redefines \EUR
\RequirePackage{textcomp}
\RequirePackage{marvosym} % defines \EUR via \newcommand
\RequirePackage{eurosym} % defines \EUR via \def
%
\RequirePackage{mflogo}
\RequirePackage{cmmib57}% Use blueSky cmmib5 cmmib7 cmsy
% UWAGA: Pakiet xy musi być dołączony do dokumentu po dołączeniu polski
% bo polecenie \ar jest zdefiniowane w obu: 
%\RequirePackage[all,arrow]{xy} % do pliku głównego bo jest w konflikcie z xy
%
% Lets have some nice headings
\pagestyle{fancyplain}
\renewcommand{\chaptermark}[1]{\markboth{#1}{}}
%% kwiecień 2000 :: dodajemy kropkę na końcu:
%\renewcommand{\sectionmark}[1]{\markright{\thesection{} #1}}
\renewcommand{\sectionmark}[1]{\markright{\thesection{.} #1}}
\lhead[\fancyplain{}{\renewcommand\familydefault{\rmdefault}%
      \normalfont \small\bfseries\thepage}]
     {\fancyplain{}{\renewcommand\familydefault{\rmdefault}%
      \normalfont \small\bfseries\rightmark}}
\rhead[\fancyplain{}{\renewcommand\familydefault{\rmdefault}%
     \normalfont
     \small\bfseries\leftmark}]
    {\fancyplain{}{\renewcommand\familydefault{\rmdefault}%
     \normalfont \small\bfseries\thepage}}
\cfoot[]{}
\addtolength{\headheight}{1.6pt}
%
%
% Earlier paragraphs were separated by some space
%
%\setlength{\parindent}{0pt}
%\setlength{\parskip}{1.5ex plus 0.7ex minus 0.6ex}

\newcommand{\CTANref}{\begingroup \urlstyle{tt}\Url}     % 
\newcommand{\Postscript}{\PostScript} %% --tp--
\newcommand{\PostScript}{Postscript} %% --tp--
\newcommand{\PSi}{\PostScript\index{PostScript}}
\newcommand{\EPSi}{Encapsulated \acro{PostScript}%
\index{Encapsulated PostScript@Encapsulated \textsc{PostScript}}%
\index{PostScript@\textsc{PostScript}!Encapsulated}}

% Niektóre pozycje literatury są wyróżnione w ten sposób, że oprócz numeru
% drukwany jest także skrót tytułu, zmieniam tylko na numer:
\newcommand{\manual}{\cite{manual}} 
\newcommand{\companion}{\cite{companion}} 
\newcommand{\guide}{\cite{local}}
\newcommand{\graphicscompanion}{\cite{graphicscompanion}} 
\newcommand{\hobby}{\cite{metapost}}
\newcommand{\hoenig}{\cite{unbound}}
\newcommand{\graphicsinlatex}{\cite{ursoswald}}
%
\newcommand{\contrib}[3]{#1\quad$<$\texttt{#2}$>${\small
   \\\quad\textit{#3}}\par \vskip1ex}
%
% Some commands for helping with INDEX creation
%\newcommand{\bs}{\symbol{'134}}%Print backslash
\providecommand{\bs}{\symbol{'134}}%Print backslash
%
%\newcommand{\bs}{\ensuremath{\mathtt{\backslash}}}%Print backslash
%
% Index entry for a command (\cih for hidden command index)
% \ci = do składu/indeksu  ; \cih nie wstawia argumentu do składu 
\newcommand{\cih}[1]{%
%\index{instrukcja!#1@\texttt{\bs#1}}% -- nie potrzeba --
\index{#1@\texttt{\hspace*{-1.2ex}\bs #1}}}
\newcommand{\ci}[1]{\cih{#1}\texttt{\bs#1}}
\newcommand{\cmd}[1]{\texttt{\bs#1}}
%
% Package
% pai = do składu/indeksu ; pkg = do składu
\newcommand{\pai}[1]{%
%\index{pakiet!#1@\textsf{#1}}% -- nie potrzeba --
\index{#1@\textsf{#1}}%
{\normalfont\textsf{#1}}}
\def\pkg#1{{\normalfont\textsf{#1}}}
%
% Rozszerzenie plików? Nazwy plików (eei oraz eeih)
% eei = do składu/indeksu ; ee = tylko do składu ; eeih = do indeksu
\newcommand{\eei}[1]{\eeih{#1}\texttt{#1}}
%\newcommand{\eeih}[1]{\index{rozszerzenie!\texttt{#1}}}
% lepiej tak:
\newcommand{\eeih}[1]{%%
\if.\LSCAR#1\\% Pomiń wiodącą kropkę przy sortowaniu
   \index{\LSCDR#1\\@\texttt{\hspace*{-1.2ex}#1} (plik)}\else
   \index{#1@\texttt{#1} (plik)}\fi }
\newcommand{\ee}[1]{\texttt{#1}}
\def\LSCAR#1#2\\{#1}\def\LSCDR#1#2\\{#2}%makra pomocnicze
%
% Index entry for an environment
% ei = do składu/indeksu ; envir = do składu
\newcommand{\ei}[1]{%
%\index{otoczenie!\texttt{#1}}% -- nie potrzeba --
\index{#1@\texttt{#1}}\texttt{#1}}
\def\envr#1{\texttt{#1}}
%
% Package/class option
% popti = do składu/indeksu ; poptih = do indeksu ; popt = do składu
\newcommand{\popti}[1]{\poptih{#1}\texttt{#1}}
\newcommand{\poptih}[1]{\index{#1@\texttt{\emph{#1}}}}
\newcommand{\popt}[1]{\texttt{#1}}
%
% Input Encoding
% iei/fei = do składu/indeksu ; ieih/feih = tylko do indeksu
\newcommand{\ieih}[1]{\index{kodowanie!#1@\texttt{\emph{#1}}}%
  \index{#1@\texttt{\emph{#1}}}}
\newcommand{\iei}[1]{\ieih{#1}\texttt{#1}}
%
%Font Encoding
\newcommand{\feih}[1]{\index{kodowanie!#1@\texttt{\emph{#1}}}%
  \index{#1@\texttt{\emph{#1}}}}
\newcommand{\fei}[1]{\feih{#1}\texttt{#1}}
%
% Nazwy programów
\newcommand{\prgi}[1]{\prgih{#1}#1}%
\newcommand{\prgih}[1]{\index{#1@\protect\underline{#1}}}
\newcommand{\prg}[1]{#1}%%
%
% Indexentry for a word (Word inserted into the text)
\newcommand{\wi}[1]{\index{#1}#1}
\newcommand{\wwi}[2]{\index{#2}#1}
%
\def\MSWindows{\prg{MS~Windows}}
\def\MSWord{\prg{MS~Word}}
\newcommand{\WYSIWYG}{\acro{WYSIWYG}}
%
% Typesetting Commands
%
\newenvironment{command}%
    {\nopagebreak
     \par\small
     %\addvspace{3.2ex plus 0.8ex minus 0.2ex}% --tp--
     \addvspace{2.0ex plus 0.5ex minus 0.25ex}%
     \vskip -\parskip
     \noindent%
     \begin{tabular}{|l|}\hline\rule{0pt}{1em}\ignorespaces}%
    {\\\hline\end{tabular}\par
       \nopagebreak
       %\addvspace{3.2ex plus 0.8ex minus 0.2ex}%
       \addvspace{2.0ex plus 0.5ex minus 0.25ex}% --tp--
     \vskip -\parskip}
%
% Type setting Code Fragments
%
\newenvironment{code}{%\smallskip % bez zbędnego odstępu
   \begin{xquote}} % quote ma nie wiadomo po co wcięcie, dlatego
  {\end{xquote}    % definiujemy xquote, które nie ma wcięcia
  %\smallskip %% ditto, jak początek
 }
%
\newenvironment{xquote}
  {\list{}{\leftmargin=0pt\rightmargin\leftmargin}%
   \item\relax}{\endlist}
%
% Intro Environment
\newenvironment{intro}{\sffamily}{\vspace*{2ex minus 1.5ex}}
%
%
% Symbol Entry for Math Symbol Tables
%
\newcommand{\X}[1]{$#1$&\texttt{\string#1}\hspace*{1ex}}
\newcommand{\Xwospc}[1]{$#1$&\texttt{\string#1}}% na potrzeby tabeli 3.3
% normal text .... 
\newcommand{\SC}[1]{#1&\texttt{\string#1}\hspace*{1ex}}
% for accents in text mode
\newcommand{\A}[1]{#1&\texttt{\string#1}\hspace*{1ex}}
\newcommand{\B}[2]{#1#2&\texttt{\string#1{} #2}\hspace*{1ex}}

\newcommand{\W}[2]{$#1{#2}$&
  \texttt{\string#1}\texttt{\string{\string#2\string}}\hspace*{1ex}}
\newcommand{\Y}[1]{$\big#1$ &\texttt{\string#1}}  %
% Mathsymbol Table
% Na razie taka ręczna korekta na wypadek za szerokich tabel:
% \def\AdjustStBox{-10pt} dla stron parzystych wielkości ujemne, dla niep. dodatnie
% wielkość przesunięcia jest drukowana do pliku .log
% można to zautomatyzować ale na razie mi się nie chce [tp], bo korekta
% dotyczy tylko 3 tabel (patrz lssym.tex)
\def\AdjustStBoxReset{\def\Adjust@St@Box{\relax}}%
\def\AdjustStBox#1{\def\Adjust@St@Box{\hspace*{#1}}}
\AdjustStBoxReset
\newdimen\STableWd
%% [/tp]
\newsavebox{\symbbox}
\newenvironment{symbols}[1]%
{\par\vspace*{2ex}
\renewcommand{\arraystretch}{1.1}
\begin{lrbox}{\symbbox}
\hspace*{4ex}%% po co to? nieważne [tp]
\begin{tabular}{@{}#1@{}}}%
{\end{tabular}\end{lrbox}%
%% [tp]
%% Niektóre tabele są szersze niż \textwidth %% tp
%% ten sam trik co dla przykładu:
\STableWd=\wd\symbbox
\ifdim\STableWd >\textwidth \advance \STableWd by -\textwidth
\typeout{Uwaga ** tabela: \thetable\space jest o \the\STableWd\space szersza 
     od szer. kolumny **}% 
\fi
%% -------------------> dodane \Adjust@St@Box oraz \AdjustStBoxReset
%% to ostatnie zawsze resetuje \Adjust@St@Box aby zmiany dotyczyły
%% tylko bierzącej tabeli
%% [/tp]
\makebox[\textwidth]{\Adjust@St@Box\usebox{\symbbox}%
\AdjustStBoxReset}\par\medskip}
%
% Special Prep for AMS Symbols Printout
% Should work if AMS is not available
%
% we have no PS versions of the rsfs fonts ... so this is a nogo for pdf
%\ifpdf \else
\IfFileExists{mathrsfs.sty}
  {\RequirePackage{mathrsfs}\let\MathRSFS\mathscr\let\mathscr\relax}{}
%\fi %% **// koniec \ifpdf //
\IfFileExists{amssymb.sty}
  {\let\noAMS\relax \RequirePackage{amssymb}}
  {\def\noAMS{\endinput}\RequirePackage{latexsym}}
\IfFileExists{eucal.sty}
  {\RequirePackage[mathscr]{eucal}}
  {\IfFileExists{euscript.sty}
  {\RequirePackage{euscript}}{}}
%\IfFileExists{eufrak.sty}
%  {\RequirePackage{eufrak}}{}
\IfFileExists{amsbsy.sty}
  {\RequirePackage{amsbsy}}{}
%
% Print |--| to show a distance
\newcommand{\demowidth}[1]{\rule{0.3pt}{1.3ex}\rule{#1}{0.3pt}\rule{0.3pt}{1.3ex}}
%
% This is an environment to set LaTeX examples. On the left side the 
% source text and on the right side the typeset text.
%
% \begin{example}
% \Large This is Large
% \end{example}
%
% This Part is stolen from the verbatim.sty by FMi
% 
\newwrite\example@out
\newcounter{exacnt}
\setcounter{exacnt}{1}

\newlength{\savefboxrule}
\newlength{\savefboxsep}
\newlength{\outdent}
\setlength{\outdent}{2cm}
\addtolength{\headwidth}{\outdent}
 %%
\newenvironment{example}{\begingroup
  \FormatChapterHeadinsideExample % zmniejsza odstępy/stopień pisma 
  \begingroup %% Lets Keep the Changes Local
  \hfuzz 9.0pt %% może wystawać aż tyle 
  \@bsphack
  \immediate\openout \example@out \jobname.exa
  \let\do\@makeother\dospecials\catcode`\^^M\active
  \def\verbatim@processline{%
    \immediate\write\example@out{\the\verbatim@line}}%
  \verbatim@start}%
{\immediate\closeout\example@out\@esphack\endgroup%
  \stepcounter{exacnt}%
  \setlength{\parindent}{0pt}%
  \par %%\nobreak
  \addvspace{1.0ex plus 0.5ex minus 0.5ex}\vskip -\parskip 
  %%\nobreak
  \noindent
  \@ifundefined{r@exa:\theexacnt}{\hspace*{0pt}}{%
    \ifpdf % We're not running pdftex
       \ifx\realpageref\undefined
         % HyPsd@pageref jest wewnętrznym poleceniem pakietu hyperref v 6.69c;
         % natomiast we wcześniejszych wersjach pakietu działało polecenie `realpageref'
         % dokładnie nie wiem kiedy przestało -- stąd kulawe rozwiązanie poprzez 
         % \undefined *** TP *** kwiecień ** 2000
         % 12/2006 powyższe już chyba niepotrzebne, ale ww. działa więc nie ruszam (TP).
         \ifodd\HyPsd@pageref{exa:\theexacnt}\hspace*{0pt}\else\hspace*{-\outdent}\fi%
       \else
         \ifodd\realpageref{exa:\theexacnt}\hspace*{0pt}\else\hspace*{-\outdent}\fi%
       \fi
    \else
    \ifodd\pageref{exa:\theexacnt}%
       \hspace*{0pt}\else\hspace*{-\outdent}\fi%
    \fi
}%
%\fi
   \makebox[\textwidth][l]{%
    \raisebox{-\height}[0pt][\totalheight]{%
      \begin{minipage}[t]{0.5\outdent+0.46\textwidth-3mm}%
        \hfuzz\ExampleHFuzz%% *** TP ***
        \small\verbatiminput{\jobname.exa}
      \end{minipage}}%
    \hspace{5mm}%
    \setlength{\savefboxrule}{\fboxrule}%
    \setlength{\fboxrule}{0.1pt}%
    \setlength{\savefboxsep}{\fboxsep}%
    \setlength{\fboxsep}{3mm}%
    \raisebox{-\height}[0pt][\totalheight]{%
      \fbox{%
        \begin{minipage}[t]{%
               0.5\outdent+0.54\textwidth-2mm-2\fboxrule-2\fboxsep-0.7ex}%
          \setlength{\fboxrule}{\savefboxrule}%
          \setlength{\fboxsep}{\savefboxsep}%
          \setlength{\fboxrule}{0.5pt}%
          \setlength{\parskip}{1ex plus 0.4ex minus 0.2ex}%
          \begin{trivlist}\item\small
            \abovedisplayskip=3pt plus 1pt minus 1pt %% *** TP ***
            \abovedisplayshortskip=3pt plus 1pt %%
            \belowdisplayskip=3pt plus 1pt minus 1pt %% 2006 
            \belowdisplayshortskip=3pt plus 1pt %% 2006
            \parskip0pt plus 0.5pt %% 2006
            \input{\jobname.exa}
          \end{trivlist}
        \end{minipage}
        }%
      }%
    }\label{exa:\theexacnt}%
  \par
  \endgroup %% *** TP ***
  \addvspace{2.0ex plus 1.0ex minus 1.0ex}\vskip -\parskip
  }

\newenvironment{lined}[1]%
 {\begin{center}\begin{minipage}{#1}\hrule\medskip}
 %{\vspace{-1ex}\hrule \end{minipage}\end{center}} %%% *** TP **
 {\smallskip \hrule \end{minipage}\end{center}}

%
% =========================================================================!
%\newcommand{\TextVert}{\texttt{\char124}} % *** ? TP ****

%
% I want no headers on pages created by clearpage
\renewcommand{\cleardoublepage}
    {\clearpage\if@twoside \ifodd\c@page\else
    \hbox{}\thispagestyle{empty}\newpage\if@twocolumn\hbox{}\newpage\fi\fi\fi}
%
% **************************** TP *************************************
%
% Redefinujemy wyliczenia usuwając odstępy między punktami
% oraz przed i po wyliczeniach (bo takie są w Polsce zwyczaje)
%
\def\@listi{\leftmargin\leftmargini
            \parsep 0\p@ \@plus1\p@ \@minus\p@
            \topsep 3\p@ \@plus1\p@ \@minus\p@
            \itemsep0\p@ \@plus1\p@ \@minus\p@}
\let\@listI\@listi

\renewcommand\small{%
   \@setfontsize\small\@xpt\@xiipt
   \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
   \abovedisplayshortskip \z@ \@plus3\p@
   \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@
   \def\@listi{\leftmargin\leftmargini
               \topsep 3\p@ \@plus1\p@ \@minus\p@
               \parsep 0\p@ \@plus1\p@ \@minus\p@
               \itemsep \parsep}%
   \belowdisplayskip \abovedisplayskip
}
\renewcommand\footnotesize{%
   \@setfontsize\footnotesize\@ixpt{11}%
   \abovedisplayskip 8\p@ \@plus2\p@ \@minus4\p@
   \abovedisplayshortskip \z@ \@plus\p@
   \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@
   \def\@listi{\leftmargin\leftmargini
               \topsep 3\p@ \@plus1\p@ \@minus0\p@
               \parsep 0\p@ \@plus\p@  \@minus\p@
               \itemsep \parsep}%
   \belowdisplayskip \abovedisplayskip
}

% Definiujemy oryginalne angielskie funkcje trygonometryczne
% (pakiet polski z opcją plmath i MeX przedefiniowuje je)
%
\def\EnglishTrygFunctions{%
\def\arcsin{\mathop{\operator@font arcsin}\nolimits}%
\def\arccos{\mathop{\operator@font arccos}\nolimits}%
\def\tan{\mathop{\operator@font tan}\nolimits}%
\def\tanh{\mathop{\operator@font tanh}\nolimits}%
\def\coth{\mathop{\operator@font coth}\nolimits}%
 }

%
% zmiana oryginalnego środowiska *** TP ***
\renewenvironment{command}%
    {\unskip %% *** TP ***
     \nopagebreak %%
     \par
     \small
     \addvspace{3.2ex plus 0.8ex minus 1.2ex}%
     \vskip -\parskip
     \noindent%
     \begin{tabular}{|l|}\hline\rule{0pt}{1em}\ignorespaces}%
    {\\\hline\end{tabular}\par
       %\nopagebreak %% *** TP ***
       \addvspace{3.2ex plus 0.8ex  minus 1.2ex}%
     \vskip -\parskip}

%% Zmieniamy formatowanie śródtytułów jeżeli są użyte
%% jako przykłady (mniejsze odstępny, mniejszy stopień pisma)
%% jest to potrzebne w przykładzie nt. spisów bibliograficznych
\def\FormatChapterHeadinsideExample{%
\def\@makeschapterhead##1{%
  \vspace*{18\p@}%
  {\parindent \z@ \raggedright \normalfont
    \interlinepenalty\@M
     \large \bfseries  ##1\par\nobreak
    \vskip 12\p@ }}
}

% *** TP **
\newenvironment{NoVSpace}{\def\addvspace##1{\par}}{}

% Definicje dotyczące składania adresów internetowych
% szczególnie w kontekście formatu PDF
\newcommand{\MyCTANSite}{ftp://ftp.dante.de/tex-archive}
\newcommand{\CTAN}[1]{%\url{ftp://ftp.dante.de/tex-archive/}
  \begingroup
  %
  % BELOW we redefine low level hyperref command (which is risky)!
  % In hyperref package
  % \hyper@linkurl macro defined inside \url command has two arguments
  %  --  #1 is the printed text
  %  --  #2 is the url
  %  the idea is to print CTAN://xxxxxx
  %  but put an address of someting real, i.e. ftp.dante.de
  %
  \def\url@##1{\hyper@linkurl{\Hurl{CTAN://#1}}{\MyCTANSite/#1}}%
  \url{CTAN://#1}%
  \endgroup 
}
\newcommand{\GUST}[1]{\url{ftp://ftp.gust.org.pl/TeX/#1}}
\newcommand{\GUSThp}[1]{\url{http://www.gust.org.pl/#1}}

\newcommand{\przypang}[1]{(ang.~\emph{{\language0 #1\/}})}

\newcommand{\secby}[2]{\nopagebreak\par\addvspace{-1.5ex}%
     %\vskip -\parskip\noindent{\tiny By #1 \mailto|#2|}\par\nopagebreak%
     \vskip -\parskip\noindent{\tiny #1 \mailto|#2|}\par\nopagebreak%
     \addvspace{1ex plus 0.8ex minus 0.2ex}% 
     \vskip -\parskip\noindent\ignorespaces}
\renewcommand{\Email}{\begingroup \def\UrlLeft{<}\def\UrlRight{>} \urlstyle{tt}\Url}     % email address
\def\mailto|#1|{\href{mailto:#1}{\Email|#1|}}        % url to mail somewhere

%
% To co poniżej dotyczy wersji w formacie PDF
%
\ifpdf
 \def\TPFrontMatter{%
 % Zmieniamy definicję rozdziału (zmienioną przez pakiet hyperref)
 % ale tak, żeby to dotyczyło tylko wstępu, tj. wszystkiego przed
 % deklaracją mainmatter.
   \def\hyper@warn##1{\relax}% ***
 %  \def\@chapter[##1]##2{%
 %  \H@old@chapter[{##1}]{##2}%
 %    \if@mainmatter %%
 %     \@writetorep{##1}{chapter.\theHchapter}{0}%
 %  \else \fi
 % }%
 }
%% Extra information to PDF general info *** TP ***
 \def\@pdftitle{Nie za krotkie wprowadzenie do systemu LaTeXe}%
 \def\@pdfauthor{T. Oetiker, H. Partl, E. Schlegl, I. Hyna, %
    J. Goldasz, R. Kubiak, T. Przechlewski}%
%\def\@pdfproducer{pdftex}%
 \def\@pdfcreator{LaTeX with hyperref package}%
 \def\@pdfsubject{LaTeX}%
 \def\@pdfkeywords{Zobacz takze: http://www.GUST.org.pl}%
\else
 \def\TPFrontMatter{\relax}%
 \def\pdfbookmark#1#2{\relax}%
 %%\def\NoHyper{}
 %%\def\endNoHyper{}
\fi

%% Uzupełnienia (kwiecień 2000):
%% Dodanie kropki po numerach punktów i podpunktów
\renewcommand*\@seccntformat[1]{\csname the#1\endcsname.\enspace}
%% dodanie kropki w spisach treści, tabel i rysunków
\def\numberline#1{\hb@xt@\@tempdima{#1.\hfil}} % !!!
%%

\renewenvironment{theindex}{%
 \clearpage %%% <<---
 \addtolength{\textwidth}{11mm}% zwiększ szerokość szpalty o 11m
 \addtolength{\hsize}{11mm}%% ditto dla \hsize
 %\addtolength{\headwidth}{-10mm} %% to jest niepotrzebne
 \advance\linewidth11mm %% ten wymiar jest dla środowiska multicol
 %% kolumna tekstu ma 10,5cm a kreska pod paginą 12,0
 %%
 %\input{multicol.sty}
 \parskip\z@ \@plus .3\p@\relax \columnsep 9.9pt
 %\advance \evensidemargin-15mm
 % oryginalne nastawienia na 2-kolumny:
 %\def\indexemdashes{%
 %\def\@idxitem{\par\hangindent 0pt}
 %\def\subitem{\par\hangindent 0pt --- }
 %\def\subsubitem{\par\hangindent 0pt --- --- }
 %\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}}
 %\indexemdashes
 %
 \renewcommand\@idxitem{\par\hangindent 12\p@\noindent}%%
 \renewcommand\subitem{\@idxitem \hspace*{0\p@}$\triangleright$ }%%
 %\renewcommand\subitem{\@idxitem \hspace*{0\p@}$\hookrightarrow$ }%%
 \let\item\@idxitem 
 \chapter*{Skorowidz}\@mkboth{\indexname}{\indexname}%
 \addcontentsline{toc}{chapter}{\indexname}%
 \UwagaDoSkorowidza \endgraf 
\rightskip0pt plus4em
\pretolerance10001
\begin{multicols}{3}}{%
% etykieta verylast ustala liczbę stron w dokumencie
% oryginalnie była doczepiona do ostatniego hasła w skorowidzu (por. plik spec.tex)
\label{verylast}\end{multicols}}

%% Wpisanie minut/minuty w zależności od liczby minut:
%% Polecenie to wykorzystuje wewnętrzne polecenie pakietu hyperref `\HyPsd@pageref',
%% które jest używane zamiast \pageref, bo to ostatnie bruździ 
\def\IleMinut#1{%
  % http://groups.google.pl/group/comp.text.tex/browse_frm/thread/2d172e2c641e681a/
  %\def\@tmp@arga{#1}\def\@tmp@arg@empty{??}%
  \expandafter\ifx\csname r@#1\endcsname\relax ?? minut\else % sprawdza czy etykieta
  \ifpdf \def\IleJestMinut{\HyPsd@pageref{#1}}\else     % verylast jest zdefiniowana
  \def\IleJestMinut{\pageref{#1}}\fi%
  %
  % Teraz wyznaczamy resztę z dzielenia modulo, całkowitej liczby stron przez 10
  \@tempcnta=\IleJestMinut
  \@tempcntb=\@tempcnta
  \divide\@tempcntb by 10
  \multiply\@tempcntb by -10
  \advance\@tempcnta by \@tempcntb
  % licznik \@tempcnta zawiera (<counter> mod n)
   \ifnum\@tempcnta=2 \def\MinTxt{minuty}\else % Minuty/Minut
     \ifnum\@tempcnta=3 \def\MinTxt{minuty}\else
        \ifnum\@tempcnta=4 \def\MinTxt{minuty}\else
          \def\MinTxt{minut}\fi\fi\fi
 \IleJestMinut~\MinTxt \fi }

\endinput