old-arrows (11sep15)

git-svn-id: svn://tug.org/texlive/trunk@38349 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 38 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/latex/old-arrows/old-arrows.sty b/Master/texmf-dist/tex/latex/old-arrows/old-arrows.sty
index 9682143e409..eedce346cdf 100644
--- a/Master/texmf-dist/tex/latex/old-arrows/old-arrows.sty
+++ b/Master/texmf-dist/tex/latex/old-arrows/old-arrows.sty
@@ -1,5 +1,5 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% old-arrows.sty. Version: 1.0 - August 15, 2015.
+% old-arrows.sty. Version: 1.1 - September 10, 2015.
 % Author: Riccardo DOSSENA <riccardo.dossena@gmail.com>
 %
 % This package provides old-style cm arrows with smaller arrowheads,
@@ -24,7 +24,7 @@
 %
 %
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{old-arrows}[2015/08/15 v1.0 Old Arrows]
+\ProvidesPackage{old-arrows}[2015/09/10 v1.1 Old Arrows]
 
 \@ifpackageloaded{lmodern}{%
 \DeclareFontFamily{OMS}{oasy}{\skewchar\font48 }
@@ -71,6 +71,30 @@
 \DeclareMathDelimiter{\downarrow}   {\mathrel}{oasy}{"23}{largesymbols}{"79}
 \DeclareMathDelimiter{\updownarrow} {\mathrel}{oasy}{"6C}{largesymbols}{"3F}
 
+%definitions of \meno and \relbarra
+\DeclareMathSymbol{\meno} {\mathbin}{oasy}{"00}
+\DeclareRobustCommand
+  \relbarra{\mathrel{\smash\meno}} % \smash, because -
+                               % has the same height as +
+
+\DeclareRobustCommand\longrightarrow
+     {\relbarra\joinrel\rightarrow}
+\DeclareRobustCommand\longleftarrow
+     {\leftarrow\joinrel\relbarra}
+
+\def\rightarrowfill{$\m@th\smash\meno\mkern-7mu%
+  \cleaders\hbox{$\mkern-2mu\smash\meno\mkern-2mu$}\hfill
+  \mkern-7mu\mathord\rightarrow$}
+\def\leftarrowfill{$\m@th\mathord\leftarrow\mkern-7mu%
+  \cleaders\hbox{$\mkern-2mu\smash\meno\mkern-2mu$}\hfill
+  \mkern-7mu\smash\meno$}
+
+\@ifpackageloaded{amsmath}{%
+\ams@def\relbarra{\mathrel{\mathpalette\mathsm@sh\meno}}
+\def\leftarrowfill@{\arrowfill@\leftarrow\relbarra\relbarra}
+\def\rightarrowfill@{\arrowfill@\relbarra\relbarra\rightarrow}
+\def\leftrightarrowfill@{\arrowfill@\leftarrow\relbarra\rightarrow}
+\relax}{}
 
 %new style arrows: \var before every command
 \DeclareOption{new}{
@@ -164,6 +188,18 @@
   \mathpalette{\underarrow@\varleftrightarrowfill@}}
 \newcommand{\varxrightarrow}[2][]{\ext@arrow 0359\varrightarrowfill@{#1}{#2}}
 \newcommand{\varxleftarrow}[2][]{\ext@arrow 3095\varleftarrowfill@{#1}{#2}}
+\def\varvarinjlim{%
+  \mathop{\mathpalette\varlim@{\varrightarrowfill@\textstyle}}\nmlimits@
+}
+\def\varvarprojlim{%
+  \mathop{\mathpalette\varlim@{\varleftarrowfill@\textstyle}}\nmlimits@
+}
+\relax}{}
+
+%new-style support for St Mary's Road fonts
+\@ifpackageloaded{stmaryrd}{%
+\stmry@if\def\varmapsfrom{\varleftarrow\mapsfromchar}\fi
+\stmry@if\def\varlongmapsfrom{\varlongleftarrow\mapsfromchar}\fi
 \relax}{}
 
 }